From 410021503aa7643e0329981279be1c5c648d8ca2 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Mon, 23 Jul 2018 14:43:14 -0600 Subject: [PATCH 1/2] Rename standard names error_message and error_flag to ccpp_error_message and ccpp_error_flag, change suffix for GFS_surface_loop_control from .f to .F90 --- physics/GFS_DCNV_generic.f90 | 8 +- physics/GFS_MP_generic_post.f90 | 4 +- physics/GFS_MP_generic_pre.f90 | 4 +- physics/GFS_PBL_generic.f90 | 8 +- physics/GFS_SCNV_generic.f90 | 8 +- physics/GFS_calpreciptype.f90 | 4 +- physics/GFS_debug.F90 | 8 +- physics/GFS_phys_time_vary.fv3.f90 | 8 +- physics/GFS_phys_time_vary.scm.f90 | 8 +- physics/GFS_rad_time_vary.fv3.f90 | 4 +- physics/GFS_rad_time_vary.scm.f90 | 4 +- physics/GFS_rrtmg_post.F90 | 4 +- physics/GFS_rrtmg_pre.F90 | 4 +- physics/GFS_rrtmg_setup.F90 | 12 +-- physics/GFS_stochastics.F90 | 4 +- physics/GFS_suite_interstitial.F90 | 24 ++--- physics/GFS_suite_setup_scm.F90 | 12 +-- physics/GFS_surface_generic.f90 | 8 +- ...control.f => GFS_surface_loop_control.F90} | 101 +++++------------- physics/GFS_zhao_carr_pre.f90 | 4 +- physics/cnvc90.f | 4 +- physics/dcyc2.f | 8 +- physics/get_prs_fv3.f90 | 8 +- physics/gfdl_cloud_microphys.F90 | 16 +-- physics/gfdl_cloud_microphys_pre_post.F90 | 8 +- physics/gfdl_fv_sat_adj.F90 | 12 +-- physics/gfdl_fv_sat_adj_pre.F90 | 4 +- physics/gmtb_scm_sfc_flux_spec.f90 | 4 +- physics/gscond.f | 4 +- physics/gwdc.f | 12 +-- physics/gwdps.f | 12 +-- physics/memcheck.F90 | 4 +- physics/mfdeepcnv.f | 4 +- physics/mfshalcnv.f | 8 +- physics/moninedmf.f | 4 +- physics/ozphys.f | 8 +- physics/precpd.f | 4 +- physics/radlw_main.f | 4 +- physics/radsw_main.f | 4 +- physics/rayleigh_damp.f | 4 +- physics/rrtmg_lw_post.F90 | 4 +- physics/rrtmg_lw_pre.F90 | 4 +- physics/rrtmg_sw_post.F90 | 4 +- physics/rrtmg_sw_pre.F90 | 4 +- physics/samfdeepcnv.f | 4 +- physics/samfshalcnv.f | 4 +- physics/sfc_diag.f | 4 +- physics/sfc_diff.f | 4 +- physics/sfc_drv.f | 12 +-- physics/sfc_nst.f | 12 +-- physics/sfc_sice.f | 12 +-- 51 files changed, 198 insertions(+), 247 deletions(-) rename physics/{GFS_surface_loop_control.f => GFS_surface_loop_control.F90} (59%) diff --git a/physics/GFS_DCNV_generic.f90 b/physics/GFS_DCNV_generic.f90 index d6e690f0c..ed736750e 100644 --- a/physics/GFS_DCNV_generic.f90 +++ b/physics/GFS_DCNV_generic.f90 @@ -28,8 +28,8 @@ end subroutine GFS_DCNV_generic_pre_finalize !! | save_v | y_wind_save | y-wind before entering a physics scheme | m s-1 | 2 | real | kind_phys | inout | F | !! | save_t | air_temperature_save | air temperature before entering a physics scheme | K | 2 | real | kind_phys | inout | F | !! | save_qv | water_vapor_specific_humidity_save | water vapor specific humidity before entering a physics scheme | kg kg-1 | 2 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_DCNV_generic_pre_run (im, levs, ldiag3d, cnvgwd, lgocart, gu0, gv0, gt0, gq0_water_vapor, & save_u, save_v, save_t, save_qv, errmsg, errflg) @@ -136,8 +136,8 @@ end subroutine GFS_DCNV_generic_post_finalize !! | cnvc | convective_cloud_cover | convective cloud cover | frac | 2 | real | kind_phys | inout | F | !! | cnvw_phy_f3d | convective_cloud_water_mixing_ratio_in_phy_f3d | convective cloud water mixing ratio in the phy_f3d array | kg kg-1 | 2 | real | kind_phys | inout | F | !! | cnvc_phy_f3d | convective_cloud_cover_in_phy_f3d | convective cloud cover in the phy_f3d array | frac | 2 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_DCNV_generic_post_run (im, levs, lssav, ldiag3d, lgocart, frain, rain1, dtf, cld1d, & save_u, save_v, save_t, save_qv, gu0, gv0, gt0, gq0_water_vapor, ud_mf, dd_mf, dt_mf, con_g, & diff --git a/physics/GFS_MP_generic_post.f90 b/physics/GFS_MP_generic_post.f90 index 368e1c70e..28d5b2317 100644 --- a/physics/GFS_MP_generic_post.f90 +++ b/physics/GFS_MP_generic_post.f90 @@ -40,8 +40,8 @@ end subroutine GFS_MP_generic_post_init !! | dt3dt6 | large_scale_condensate_heating_rate_at_model_layers | large scale condensate heating rate at model layers | K s-1 | 2 | real | kind_phys | inout | F | !! | dq3dt4 | large_scale_condensate_moistening_rate_at_model_layers | large scale condensate moistening rate at model layers | kg kg-1 s-1 | 2 | real | kind_phys | inout | F | !! | pwat | column_precipitable_water | column integrated precipitable water | kg m-2 | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_MP_generic_post_run(im,ix,levs,dtf,del, & lssav,ldiag3d,rain,frain,ntcw,ncld,cwm, & ! input diff --git a/physics/GFS_MP_generic_pre.f90 b/physics/GFS_MP_generic_pre.f90 index 12a1f2f0c..d9c8f904a 100644 --- a/physics/GFS_MP_generic_pre.f90 +++ b/physics/GFS_MP_generic_pre.f90 @@ -30,8 +30,8 @@ end subroutine GFS_MP_generic_pre_init !! | save_t | air_temperature_save | air temperature before entering a physics scheme | K | 2 | real | kind_phys | out | F | !! | save_qv | water_vapor_specific_humidity_save | water vapor specific humidity before entering a physics scheme | kg kg-1 | 2 | real | kind_phys | out | F | !! | save_qcw | cloud_condensed_water_mixing_ratio_save | moist cloud condensed water mixing ratio before entering a physics scheme | kg kg-1 | 2 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_MP_generic_pre_run(im, ix, levs, clw1, clw2, & ldiag3d, ntcw, ncld, num_p3d, t, q, & diff --git a/physics/GFS_PBL_generic.f90 b/physics/GFS_PBL_generic.f90 index 407ae7c57..b088fadc8 100644 --- a/physics/GFS_PBL_generic.f90 +++ b/physics/GFS_PBL_generic.f90 @@ -17,8 +17,8 @@ end subroutine GFS_PBL_generic_pre_finalize !! | im | horizontal_loop_extent | horizontal loop extent | count | 0 | integer | | in | F | !! | levs | vertical_dimension | vertical layer dimension | count | 0 | integer | | in | F | !! | kinver | index_of_highest_temperature_inversion | index of highest temperature inversion | index | 1 | integer | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_PBL_generic_pre_run (im, levs, kinver, errmsg, errflg) @@ -67,8 +67,8 @@ end subroutine GFS_PBL_generic_post_finalize !! | dqdt | tendency_of_tracers_due_to_model_physics | updated tendency of the tracers | kg kg-1 s-1 | 3 | real | kind_phys | in | F | !! | xmu | zenith_angle_temporal_adjustment_factor_for_shortwave_fluxes | zenith angle temporal adjustment factor for shortwave fluxes | none | 1 | real | kind_phys | in | F | !! | Diag | FV3-GFS_Diag_type | Fortran DDT containing FV3-GFS fields targeted for diagnostic output | DDT | 0 | GFS_diag_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_PBL_generic_post_run (Grid, Model, Radtend, dusfc1, dvsfc1, dtsfc1, dqsfc1, & dudt, dvdt, dtdt, dqdt, xmu, Diag, errmsg, errflg) diff --git a/physics/GFS_SCNV_generic.f90 b/physics/GFS_SCNV_generic.f90 index b0742eda5..55cc9ec1c 100644 --- a/physics/GFS_SCNV_generic.f90 +++ b/physics/GFS_SCNV_generic.f90 @@ -19,8 +19,8 @@ end subroutine GFS_SCNV_generic_pre_finalize !! | Grid | FV3-GFS_Grid_type | Fortran DDT containing FV3-GFS grid and interpolation related data | DDT | 0 | GFS_grid_type | | in | F | !! | save_t | air_temperature_save | air temperature before entering a physics scheme | K | 2 | real | kind_phys | inout | F | !! | save_qv | water_vapor_specific_humidity_save | water vapor specific humidity before entering a physics scheme | kg kg-1 | 2 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_SCNV_generic_pre_run (Model, Stateout, Grid, save_t, save_qv, errmsg, errflg) @@ -72,8 +72,8 @@ end subroutine GFS_SCNV_generic_post_finalize !! | frain | dynamics_to_physics_timestep_ratio | ratio of dynamics timestep to physics timestep | none | 0 | real | kind_phys | in | F | !! | Diag | FV3-GFS_Diag_type | Fortran DDT containing FV3-GFS fields targeted for diagnostic output | DDT | 0 | GFS_diag_type | | inout | F | !! | clw | convective_transportable_tracers | array to contain cloud water and other convective trans. tracers | kg kg-1 | 3 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_SCNV_generic_post_run (Model, Stateout, Grid, save_t, save_qv, frain, Diag, clw, errmsg, errflg) diff --git a/physics/GFS_calpreciptype.f90 b/physics/GFS_calpreciptype.f90 index d7a96a316..25065578f 100644 --- a/physics/GFS_calpreciptype.f90 +++ b/physics/GFS_calpreciptype.f90 @@ -77,8 +77,8 @@ end subroutine GFS_calpreciptype_finalize !! | cplflx | flag_for_flux_coupling | flag controlling cplflx collection (default off) | flag | 0 | logical | | in | F | !! | rain_cpl | lwe_thickness_of_precipitation_amount_for_coupling | total rain precipitation for model coupling | m | 1 | real | kind_phys | inout | F | !! | snow_cpl | lwe_thickness_of_snow_amount_for_coupling | total snow precipitation for model coupling | m | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_calpreciptype_run(kdt,nrcm,im,ix,lm,lp1,randomno, & cal_pre,lssav,ldiag3d, & diff --git a/physics/GFS_debug.F90 b/physics/GFS_debug.F90 index 0182e7253..6f94bf766 100644 --- a/physics/GFS_debug.F90 +++ b/physics/GFS_debug.F90 @@ -44,8 +44,8 @@ end subroutine GFS_diagtoscreen_finalize !! | Diag | FV3-GFS_Diag_type | derived type GFS_diag_type in FV3 | DDT | 0 | GFS_diag_type | | in | F | !! | Interstitial | FV3-GFS_Interstitial_type | derived type GFS_interstitial_type in FV3 | DDT | 0 | GFS_interstitial_type | | in | F | !! | nthreads | omp_threads | number of OpenMP threads or fast physics schemes | count | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_diagtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling, & Grid, Tbd, Cldprop, Radtend, Diag, Interstitial, & @@ -293,8 +293,8 @@ end subroutine GFS_interstitialtoscreen_finalize !! | Diag | FV3-GFS_Diag_type | derived type GFS_diag_type in FV3 | DDT | 0 | GFS_diag_type | | in | F | !! | Interstitial | FV3-GFS_Interstitial_type | derived type GFS_interstitial_type in FV3 | DDT | 0 | GFS_interstitial_type | | in | F | !! | nthreads | omp_threads | number of OpenMP threads or fast physics schemes | count | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_interstitialtoscreen_run (Model, Statein, Stateout, Sfcprop, Coupling, & Grid, Tbd, Cldprop, Radtend, Diag, Interstitial, & diff --git a/physics/GFS_phys_time_vary.fv3.f90 b/physics/GFS_phys_time_vary.fv3.f90 index 25fb0f210..eb139ac83 100644 --- a/physics/GFS_phys_time_vary.fv3.f90 +++ b/physics/GFS_phys_time_vary.fv3.f90 @@ -15,8 +15,8 @@ end subroutine GFS_phys_time_vary_1_finalize !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------|--------------------------------------------------------|-------------------------------------------------------------------------|----------|------|-----------------------|-----------|--------|----------| !! | Model | FV3-GFS_Control_type | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_phys_time_vary_1_run (Model, errmsg, errflg) @@ -96,8 +96,8 @@ end subroutine GFS_phys_time_vary_2_finalize !! | Sfcprop | FV3-GFS_Sfcprop_type_all_blocks | Fortran DDT containing FV3-GFS surface fields | DDT | 1 | GFS_sfcprop_type | | inout | F | !! | Cldprop | FV3-GFS_Cldprop_type_all_blocks | Fortran DDT containing FV3-GFS cloud fields | DDT | 1 | GFS_cldprop_type | | inout | F | !! | Diag | FV3-GFS_Diag_type_all_blocks | Fortran DDT containing FV3-GFS fields targeted for diagnostic output | DDT | 1 | GFS_diag_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_phys_time_vary_2_run (Grid, Model, Tbd, Sfcprop, Cldprop, Diag, errmsg, errflg) diff --git a/physics/GFS_phys_time_vary.scm.f90 b/physics/GFS_phys_time_vary.scm.f90 index 7fce6b7f0..8ffd2ebd3 100644 --- a/physics/GFS_phys_time_vary.scm.f90 +++ b/physics/GFS_phys_time_vary.scm.f90 @@ -16,8 +16,8 @@ end subroutine GFS_phys_time_vary_1_finalize !! |----------------|--------------------------------------------------------|-----------------------------------------------------------------------|---------------|------|-----------------------|-----------|--------|----------| !! | Model | FV3-GFS_Control_type | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | inout | F | !! | Tbd | FV3-GFS_Tbd_type | Fortran DDT containing FV3-GFS miscellaneous data | DDT | 0 | GFS_tbd_type | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_phys_time_vary_1_run (Model, Tbd, errmsg, errflg) @@ -100,8 +100,8 @@ end subroutine GFS_phys_time_vary_2_finalize !! | Sfcprop | FV3-GFS_Sfcprop_type | Fortran DDT containing FV3-GFS surface fields | DDT | 0 | GFS_sfcprop_type | | inout | F | !! | Cldprop | FV3-GFS_Cldprop_type | Fortran DDT containing FV3-GFS cloud fields | DDT | 0 | GFS_cldprop_type | | inout | F | !! | Diag | FV3-GFS_Diag_type | Fortran DDT containing FV3-GFS fields targeted for diagnostic output | DDT | 0 | GFS_diag_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_phys_time_vary_2_run (Grid, Model, Tbd, Sfcprop, Cldprop, Diag, errmsg, errflg) diff --git a/physics/GFS_rad_time_vary.fv3.f90 b/physics/GFS_rad_time_vary.fv3.f90 index 91d35c4d4..1926e0253 100644 --- a/physics/GFS_rad_time_vary.fv3.f90 +++ b/physics/GFS_rad_time_vary.fv3.f90 @@ -17,8 +17,8 @@ end subroutine GFS_rad_time_vary_init !! | Model | FV3-GFS_Control_type | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | inout | F | !! | Statein | FV3-GFS_Statein_type_all_blocks | Fortran DDT containing FV3-GFS prognostic state data in from dycore | DDT | 1 | GFS_statein_type | | in | F | !! | Tbd | FV3-GFS_Tbd_type_all_blocks | Fortran DDT containing FV3-GFS data not yet assigned to a defined container | DDT | 1 | GFS_tbd_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_rad_time_vary_run (Model, Statein, Tbd, errmsg, errflg) diff --git a/physics/GFS_rad_time_vary.scm.f90 b/physics/GFS_rad_time_vary.scm.f90 index f21e76fd1..fff74fa28 100644 --- a/physics/GFS_rad_time_vary.scm.f90 +++ b/physics/GFS_rad_time_vary.scm.f90 @@ -17,8 +17,8 @@ end subroutine GFS_rad_time_vary_init !! | Model | FV3-GFS_Control_type | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | inout | F | !! | Statein | FV3-GFS_Statein_type | Fortran DDT containing FV3-GFS prognostic state data in from dycore | DDT | 0 | GFS_statein_type | | in | F | !! | Tbd | FV3-GFS_Tbd_type | Fortran DDT containing FV3-GFS data not yet assigned to a defined container | DDT | 0 | GFS_tbd_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_rad_time_vary_run (Model, Statein, Tbd, errmsg, errflg) diff --git a/physics/GFS_rrtmg_post.F90 b/physics/GFS_rrtmg_post.F90 index 74fc53654..87b4f9860 100644 --- a/physics/GFS_rrtmg_post.F90 +++ b/physics/GFS_rrtmg_post.F90 @@ -34,8 +34,8 @@ end subroutine GFS_rrtmg_post_init !! | clouds1 | total_cloud_fraction | layer total cloud fraction | frac | 2 | real | kind_phys | in | F | !! | clouds10 | cloud_optical_depth_weighted | cloud optical depth, weighted | none | 2 | real | kind_phys | in | F | !! | clouds11 | cloud_optical_depth_layers_678 | cloud optical depth from bands 6,7,8 | none | 2 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_rrtmg_post_run (Model, Grid, Diag, Radtend, Statein, & Coupling, scmpsw, im, lm, ltp, kt, kb, kd, raddt, aerodp, & diff --git a/physics/GFS_rrtmg_pre.F90 b/physics/GFS_rrtmg_pre.F90 index ef75b9888..7adf06125 100644 --- a/physics/GFS_rrtmg_pre.F90 +++ b/physics/GFS_rrtmg_pre.F90 @@ -72,8 +72,8 @@ end subroutine GFS_rrtmg_pre_init !! | mtopa | model_layer_number_at_cloud_top | vertical indices for low, middle and high cloud tops | index | 2 | integer | | out | F | !! | mbota | model_layer_number_at_cloud_base | vertical indices for low, middle and high cloud bases | index | 2 | integer | | out | F | !! | alb1d | surface_albedo_perturbation | surface albedo perturbation | frac | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! ! Attention - the output arguments lm, im, lmk, lmp must not be set ! in the CCPP version - they are defined in the interstitial_create routine diff --git a/physics/GFS_rrtmg_setup.F90 b/physics/GFS_rrtmg_setup.F90 index 850724b48..d7c23437d 100644 --- a/physics/GFS_rrtmg_setup.F90 +++ b/physics/GFS_rrtmg_setup.F90 @@ -69,8 +69,8 @@ module GFS_rrtmg_setup !! | faersw | aerosol_optical_properties_for_shortwave_bands_01-16 | aerosol optical properties for shortwave bands 01-16 | various | 4 | real | kind_phys | in | F | !! | aerodp | atmosphere_optical_thickness_due_to_ambient_aerosol_particles | vertical integrated optical depth for various aerosol species | none | 2 | real | kind_phys | in | F | !! | me | mpi_rank | current MPI-rank | index | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_rrtmg_setup_init ( & si, levr, ictm, isol, ico2, iaer, ialb, iems, ntcw, num_p2d, & @@ -262,8 +262,8 @@ end subroutine GFS_rrtmg_setup_init !! | sdec | sine_of_solar_declination_angle | sin of the solar declination angle | none | 0 | real | kind_phys | out | F | !! | cdec | cosine_of_solar_declination_angle | cos of the solar declination angle | none | 0 | real | kind_phys | out | F | !! | solcon | solar_constant | solar constant (sun-earth distant adjusted) | W m-2 | 0 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_rrtmg_setup_run ( & idate, jdate, deltsw, deltim, lsswr, me, & @@ -304,8 +304,8 @@ end subroutine GFS_rrtmg_setup_run !> \section arg_table_GFS_rrtmg_setup_finalize Argument Table !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |--------------------------|-------------------------------------------------------------------------------|---------------------------------------------------------|---------------|------|-----------|-----------|--------|----------| -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_rrtmg_setup_finalize (errmsg, errflg) diff --git a/physics/GFS_stochastics.F90 b/physics/GFS_stochastics.F90 index f29e504e3..6a4eba767 100644 --- a/physics/GFS_stochastics.F90 +++ b/physics/GFS_stochastics.F90 @@ -46,8 +46,8 @@ end subroutine GFS_stochastics_finalize !! | snow_cpl | lwe_thickness_of_snow_amount_for_coupling | total snow precipitation | m | 1 | real | kind_phys | inout | F | !! | drain_cpl | tendency_of_lwe_thickness_of_precipitation_amount_for_coupling | change in rain_cpl (coupling_type) | m | 1 | real | kind_phys | in | F | !! | dsnow_cpl | tendency_of_lwe_thickness_of_snow_amount_for_coupling | change in show_cpl (coupling_type) | m | 1 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !------------------------------------------------------------------------- ! GFS stochastic_driver diff --git a/physics/GFS_suite_interstitial.F90 b/physics/GFS_suite_interstitial.F90 index 39e2aa6c0..a4d80dc07 100644 --- a/physics/GFS_suite_interstitial.F90 +++ b/physics/GFS_suite_interstitial.F90 @@ -15,8 +15,8 @@ end subroutine GFS_suite_interstitial_rad_reset_finalize !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------|--------------------------------------------------------|---------------------------------------------------------|---------------|------|-----------------------|-----------|--------|----------| !! | Interstitial | FV3-GFS_Interstitial_type | derived type GFS_interstitial_type in FV3 | DDT | 0 | GFS_interstitial_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_interstitial_rad_reset_run (Interstitial, errmsg, errflg) @@ -54,8 +54,8 @@ end subroutine GFS_suite_interstitial_phys_reset_finalize !! |----------------|--------------------------------------------------------|---------------------------------------------------------|---------------|------|-----------------------|-----------|--------|----------| !! | Interstitial | FV3-GFS_Interstitial_type | derived type GFS_interstitial_type in FV3 | DDT | 0 | GFS_interstitial_type | | inout | F | !! | Model | FV3-GFS_Control_type | Fortran DDT containing FV3-GFS model control parameters | DDT | 0 | GFS_control_type | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_interstitial_phys_reset_run (Interstitial, Model, errmsg, errflg) @@ -110,8 +110,8 @@ end subroutine GFS_suite_interstitial_1_finalize !! | dtdt | tendency_of_air_temperature_due_to_model_physics | updated tendency of the temperature | K s-1 | 2 | real | kind_phys | out | F | !! | dtdtc | tendency_of_air_temperature_due_to_radiative_heating_assuming_clear_sky | clear sky radiative (shortwave + longwave) heating rate at current time | K s-1 | 2 | real | kind_phys | out | F | !! | dqdt | tendency_of_tracers_due_to_model_physics | updated tendency of the tracers | kg kg-1 s-1 | 3 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_interstitial_1_run (Model, Grid, Sfcprop, Statein, Diag, rhbbot, rhpbl, rhbtop, frain, islmsk, & frland, work1, work2, dudt, dvdt, dtdt, dtdtc, dqdt, errmsg, errflg) @@ -201,8 +201,8 @@ end subroutine GFS_suite_interstitial_2_finalize !! | kcnv | flag_deep_convection | flag indicating whether convection occurs in column (0 or 1) | flag | 1 | integer | | out | F | !! | hflx | kinematic_surface_upward_sensible_heat_flux | kinematic surface upward sensible heat flux | K m s-1 | 1 | real | kind_phys | out | F | !! | evap | kinematic_surface_upward_latent_heat_flux | kinematic surface upward latent heat flux | kg kg-1 m s-1 | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_interstitial_2_run (Model, Grid, Statein, Radtend, xcosz, adjsfcdsw, adjsfcdlw, adjsfculw, xmu, & Diag, kcnv, hflx, evap, errmsg, errflg) @@ -308,8 +308,8 @@ end subroutine GFS_suite_update_stateout_finalize !! | dtdt | tendency_of_air_temperature_due_to_model_physics | updated tendency of the temperature | K s-1 | 2 | real | kind_phys | in | F | !! | dqdt | tendency_of_tracers_due_to_model_physics | updated tendency of the tracers | kg kg-1 s-1 | 3 | real | kind_phys | in | F | !! | Stateout | FV3-GFS_Stateout_type | Fortran DDT containing FV3-GFS prognostic state to return to dycore | DDT | 0 | GFS_stateout_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_update_stateout_run (Statein, Model, Grid, dudt, dvdt, dtdt, dqdt, Stateout, errmsg, errflg) @@ -370,8 +370,8 @@ end subroutine GFS_suite_interstitial_3_finalize !! | ktop | vertical_index_at_cloud_top | vertical index at cloud top | index | 1 | integer | | inout | F | !! | kbot | vertical_index_at_cloud_base | vertical index at cloud base | index | 1 | integer | | inout | F | !! | rhc | critical_relative_humidity | critical relative humidity | frac | 2 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_interstitial_3_run (Model, Grid, Statein, rhbbot, rhbtop, work1, work2, clw, cnvc, cnvw, & ktop, kbot, rhc, errmsg, errflg) diff --git a/physics/GFS_suite_setup_scm.F90 b/physics/GFS_suite_setup_scm.F90 index 693d69ad0..7aa85c9ca 100644 --- a/physics/GFS_suite_setup_scm.F90 +++ b/physics/GFS_suite_setup_scm.F90 @@ -39,8 +39,8 @@ module GFS_suite_setup_scm !! | ozone_pres | natural_log_of_ozone_forcing_data_pressure_levels_from_host | natural logarithm of the pressure levels of the ozone forcing data | Pa | 1 | real | kind_phys | in | F | !! | ozone_time | time_levels_in_ozone_forcing_data_from_host | time values of the ozone forcing data coming from host | day | 1 | real | kind_phys | in | F | !! | ozone_forcing_in | ozone_forcing_from_host | ozone forcing data from host | various | 4 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_setup_scm_init (Model, Statein, Stateout, Sfcprop, & Coupling, Grid, Tbd, Cldprop, Radtend, Diag, & @@ -201,8 +201,8 @@ end subroutine GFS_suite_setup_scm_init !> \section arg_table_GFS_suite_setup_scm_run Argument Table !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------------|-------------------------------------------------------------|-------------------------------------------------------------------------|---------------|------|-------------------------------|-----------|--------|----------| -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_setup_scm_run (errmsg, errflg) character(len=*), intent(out) :: errmsg @@ -216,8 +216,8 @@ end subroutine GFS_suite_setup_scm_run !> \section arg_table_GFS_suite_setup_scm_finalize Argument Table !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------------|-------------------------------------------------------------|-------------------------------------------------------------------------|---------------|------|-------------------------------|-----------|--------|----------| -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_suite_setup_scm_finalize (errmsg, errflg) diff --git a/physics/GFS_surface_generic.f90 b/physics/GFS_surface_generic.f90 index 75d40c064..e39f7ef20 100644 --- a/physics/GFS_surface_generic.f90 +++ b/physics/GFS_surface_generic.f90 @@ -32,8 +32,8 @@ end subroutine GFS_surface_generic_pre_finalize !! | flag_guess | flag_for_guess_run | flag for guess run | flag | 1 | logical | | inout | F | !! | flag_iter | flag_for_iteration | flag for iteration | flag | 1 | logical | | inout | F | !! | ep1d | surface_upward_potential_latent_heat_flux | surface upward potential latent heat flux | W m-2 | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_surface_generic_pre_run (Model, Grid, Sfcprop, Radtend, Statein, adjsfcdlw, Diag, sigmaf, islmsk, & soiltyp, vegtype, slopetyp, work3, gabsbdlw, tsurf, flag_guess, flag_iter, ep1d, errmsg, errflg) @@ -150,8 +150,8 @@ end subroutine GFS_surface_generic_post_finalize !! | snohf | snow_freezing_rain_upward_latent_heat_flux | latent heat flux due to snow and frz rain | W m-2 | 1 | real | kind_phys | in | F | !! | Diag | FV3-GFS_Diag_type | Fortran DDT containing FV3-GFS fields targeted for diagnostic output | DDT | 0 | GFS_diag_type | | inout | F | !! | Sfcprop | FV3-GFS_Sfcprop_type | Fortran DDT containing FV3-GFS surface fields | DDT | 0 | GFS_sfcprop_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_surface_generic_post_run (Model, Grid, ep1d, gflx, evbs, evcw, trans, sbsno, snowc, snohf, Diag, & Sfcprop, errmsg, errflg) diff --git a/physics/GFS_surface_loop_control.f b/physics/GFS_surface_loop_control.F90 similarity index 59% rename from physics/GFS_surface_loop_control.f rename to physics/GFS_surface_loop_control.F90 index 88d8a1899..429a3b96a 100644 --- a/physics/GFS_surface_loop_control.f +++ b/physics/GFS_surface_loop_control.F90 @@ -1,54 +1,6 @@ -!> \file GFS_surface_loop_control.f +!> \file GFS_surface_loop_control.F90 !! This file contains the GFS_surface_loop_control scheme. -!> \defgroup GFS_surface_loop_control GFS_surface_loop_control scheme -!! @{ - - module GFS_surface_loop_control_part0 - contains - - subroutine GFS_surface_loop_control_part0_init - end subroutine GFS_surface_loop_control_part0_init - - subroutine GFS_surface_loop_control_part0_finalize - end subroutine GFS_surface_loop_control_part0_finalize - -!> \brief Brief description of the subroutine -!! -!! \section arg_table_GFS_surface_loop_control_part0_run Arguments -!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | -!! |----------------|--------------------------------------------------------|--------------------------------------------|------------|------|-----------|-----------|--------|----------| -!! | iter | iteration_number | number of iteration | index | 0 | integer | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | -!! -!! \section general General Algorithm -!! \section detailed Detailed Algorithm -!! @{ - - subroutine GFS_surface_loop_control_part0_run & - & ( iter,errmsg,errflg - & ) - ! DH* TODO - instead of using this routine, we should make the - ! subcycling loop counter available to the code and use this as iter - implicit none - -! --- interface variables - integer, intent(inout) :: iter - character(len=*), intent(out) :: errmsg - integer, intent(out) :: errflg - - ! Initialize CCPP error handling variables - errmsg = '' - errflg = 0 - - iter = iter + 1 - - end subroutine GFS_surface_loop_control_part0_run -!> @} - end module GFS_surface_loop_control_part0 -!> @} - !> \defgroup GFS_surface_loop_control GFS_surface_loop_control scheme !! @{ @@ -63,34 +15,33 @@ end subroutine GFS_surface_loop_control_part1_finalize !> \brief Brief description of the subroutine !! +#if 0 !! \section arg_table_GFS_surface_loop_control_part1_run Arguments !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------|--------------------------------------------------------|--------------------------------------------|------------|------|-----------|-----------|--------|----------| !! | im | horizontal_loop_extent | horizontal loop extent | count | 0 | integer | | in | F | -!! | iter | iteration_number | number of iteration | index | 0 | integer | | in | F | +!! | iter | ccpp_loop_counter | loop counter for subcycling loops in CCPP | index | 0 | integer | | in | F | !! | wind | wind_speed_at_lowest_model_layer | wind speed at lowest model level | m s-1 | 1 | real | kind_phys | in | F | !! | flag_guess | flag_for_guess_run | flag for guess run | flag | 1 | logical | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! +#endif !! \section general General Algorithm !! \section detailed Detailed Algorithm !! @{ - subroutine GFS_surface_loop_control_part1_run & - & ( im,iter,wind,flag_guess,errmsg,errflg - & ) + subroutine GFS_surface_loop_control_part1_run (im, iter, wind, flag_guess, errmsg, errflg) use machine, only: kind_phys implicit none ! Interface variables - integer, intent(in) :: im, iter - real(kind=kind_phys), dimension(im), intent(in) :: & - & wind - logical, dimension(im), intent(inout) :: & - & flag_guess + integer, intent(in) :: im + integer, intent(in) :: iter + real(kind=kind_phys), dimension(im), intent(in) :: wind + logical, dimension(im), intent(inout) :: flag_guess character(len=*), intent(out) :: errmsg integer, intent(out) :: errflg @@ -127,39 +78,40 @@ end subroutine GFS_surface_loop_control_part2_finalize !> \brief Brief description of the subroutine !! +#if 0 !! \section arg_table_GFS_surface_loop_control_part2_run Arguments !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------|--------------------------------------------------------|--------------------------------------------|------------|------|-----------|-----------|--------|----------| !! | im | horizontal_loop_extent | horizontal loop extent | count | 0 | integer | | in | F | -!! | iter | iteration_number | number of iteration | index | 0 | integer | | in | F | +!! | iter | ccpp_loop_counter | loop counter for subcycling loops in CCPP | index | 0 | integer | | in | F | !! | wind | wind_speed_at_lowest_model_layer | wind speed at lowest model level | m s-1 | 1 | real | kind_phys | in | F | !! | flag_guess | flag_for_guess_run | flag for guess run | flag | 1 | logical | | inout | F | !! | flag_iter | flag_for_iteration | flag for iteration | flag | 1 | logical | | inout | F | !! | islmsk | sea_land_ice_mask | landmask: sea/land/ice=0/1/2 | flag | 1 | integer | | in | F | !! | nstf_name1 | flag_for_nsstm_run | NSSTM flag: off/uncoupled/coupled=0/1/2 | flag | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! +#endif !! \section general General Algorithm !! \section detailed Detailed Algorithm !! @{ - subroutine GFS_surface_loop_control_part2_run & - & (im,iter,wind,flag_guess,flag_iter,islmsk,nstf_name1, & - & errmsg,errflg & - & ) + subroutine GFS_surface_loop_control_part2_run (im, iter, wind, & + flag_guess, flag_iter, islmsk, nstf_name1, errmsg, errflg) use machine, only: kind_phys implicit none ! Interface variables - integer, intent(in) :: im, iter, nstf_name1 - integer, dimension(im), intent(in) :: islmsk - real(kind=kind_phys), dimension(im), intent(in) :: & - & wind - logical, dimension(im), intent(inout) :: & - & flag_guess,flag_iter + integer, intent(in) :: im + integer, intent(in) :: iter + integer, intent(in) :: nstf_name1 + integer, dimension(im), intent(in) :: islmsk + real(kind=kind_phys), dimension(im), intent(in) :: wind + logical, dimension(im), intent(inout) :: flag_guess + logical, dimension(im), intent(inout) :: flag_iter character(len=*), intent(out) :: errmsg integer, intent(out) :: errflg @@ -176,8 +128,7 @@ subroutine GFS_surface_loop_control_part2_run & flag_guess(i) = .false. if (iter == 1 .and. wind(i) < 2.0) then - if ((islmsk(i) == 1) .or. ((islmsk(i) == 0) .and. & - & (nstf_name1 > 0))) then + if ( (islmsk(i) == 1) .or. ((islmsk(i) == 0) .and. (nstf_name1 > 0)) ) then flag_iter(i) = .true. endif endif diff --git a/physics/GFS_zhao_carr_pre.f90 b/physics/GFS_zhao_carr_pre.f90 index 01cef5dc4..d0c688712 100644 --- a/physics/GFS_zhao_carr_pre.f90 +++ b/physics/GFS_zhao_carr_pre.f90 @@ -21,8 +21,8 @@ end subroutine GFS_zhao_carr_pre_init !! | levs | vertical_dimension | vertical layer dimension | count | 0 | integer | | in | F | !! | cwm | cloud_condensed_water_mixing_ratio_updated_by_physics | moist cloud condensed water mixing ratio | kg kg-1 | 2 | real | kind_phys | in | F | !! | clw1 | cloud_ice_mixing_ratio | moist cloud ice mixing ratio | kg kg-1 | 2 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine GFS_zhao_carr_pre_run (im, ix, levs, cwm, clw1, errmsg, errflg) ! diff --git a/physics/cnvc90.f b/physics/cnvc90.f index f7fee684a..87303b86d 100644 --- a/physics/cnvc90.f +++ b/physics/cnvc90.f @@ -25,8 +25,8 @@ end subroutine cnvc90_init !! | cv | fraction_of_convective_cloud | fraction of convective cloud | frac | 1 | real | kind_phys | inout | F | !! | cvb | pressure_at_bottom_of_convective_cloud | pressure at bottom of convective cloud | Pa | 1 | real | kind_phys | inout | F | !! | cvt | pressure_at_top_of_convective_cloud | pressure at top of convective cloud | Pa | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! SUBROUTINE cnvc90_run(CLSTP,IM,IX,RN,KBOT,KTOP,KM,PRSI, & & ACV,ACVB,ACVT,CV,CVB,CVT,errmsg,errflg) diff --git a/physics/dcyc2.f b/physics/dcyc2.f index cb8efeeca..d4b83f5ed 100644 --- a/physics/dcyc2.f +++ b/physics/dcyc2.f @@ -199,8 +199,8 @@ end subroutine dcyc2t3_init !! | adjnirdfd | surface_downwelling_diffuse_near_infrared_shortwave_flux | surface downwelling diffuse near-infrared shortwave flux at current time | W m-2 | 1 | real | kind_phys | out | F | !! | adjvisbmd | surface_downwelling_direct_ultraviolet_and_visible_shortwave_flux | surface downwelling beam ultraviolet plus visible shortwave flux at current time | W m-2 | 1 | real | kind_phys | out | F | !! | adjvisdfd | surface_downwelling_diffuse_ultraviolet_and_visible_shortwave_flux | surface downwelling diffuse ultraviolet plus visible shortwave flux at current time | W m-2 | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine dcyc2t3_run & !................................... @@ -364,8 +364,8 @@ end subroutine dcyc2t3_post_init !! | adjsfcdsw | surface_downwelling_shortwave_flux | surface downwelling shortwave flux at current time | W m-2 | 1 | real | kind_phys | in | F | !! | adjsfcnsw | surface_net_downwelling_shortwave_flux | surface net downwelling shortwave flux at current time | W m-2 | 1 | real | kind_phys | in | F | !! | Diag | FV3-GFS_Diag_type | GFS diagnostics derived data type variable | DDT | 0 | GFS_diag_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine dcyc2t3_post_run( & & im, adjsfcdlw, adjsfculw, adjsfcdsw, adjsfcnsw, Diag, & diff --git a/physics/get_prs_fv3.f90 b/physics/get_prs_fv3.f90 index 3f12b003b..25074908d 100644 --- a/physics/get_prs_fv3.f90 +++ b/physics/get_prs_fv3.f90 @@ -30,8 +30,8 @@ end subroutine get_prs_fv3_init !! | qgrs1 | water_vapor_specific_humidity | mid-layer specific humidity of water vapor | kg kg-1 | 2 | real | kind_phys | in | F | !! | del | air_pressure_difference_between_midlayers | difference between mid-layer pressures | Pa | 2 | real | kind_phys | out | F | !! | del_gz | geopotential_difference_between_midlayers_divided_by_midlayer_virtual_temperature | difference between mid-layer geopotentials divided by mid-layer virtual temperature | m2 s-2 K-1 | 2 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine get_prs_fv3_run(ix, levs, phii, prsi, tgrs, qgrs1, del, del_gz, errmsg, errflg) @@ -108,8 +108,8 @@ end subroutine get_phi_fv3_init !! | del_gz | geopotential_difference_between_midlayers_divided_by_midlayer_virtual_temperature | difference between mid-layer geopotentials divided by mid-layer virtual temperature | m2 s-2 K-1 | 2 | real | kind_phys | inout | F | !! | phii | geopotential_at_interface | interface geopotential | m2 s-2 | 2 | real | kind_phys | out | F | !! | phil | geopotential | mid-layer geopotential | m2 s-2 | 2 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine get_phi_fv3_run(ix, levs, gt0, gq01, del_gz, phii, phil, errmsg, errflg) diff --git a/physics/gfdl_cloud_microphys.F90 b/physics/gfdl_cloud_microphys.F90 index 2ecae8288..d56975ed4 100644 --- a/physics/gfdl_cloud_microphys.F90 +++ b/physics/gfdl_cloud_microphys.F90 @@ -337,8 +337,8 @@ module gfdl_cloud_microphys !! | imp_physics | flag_for_microphysics_scheme | choice of microphysics scheme | flag | 0 | integer | | in | F | !! | imp_physics_gfdl | flag_for_gfdl_microphysics_scheme | choice of GFDL microphysics scheme | flag | 0 | integer | | in | F | !! | do_shoc | flag_for_shoc | flag to indicate use of SHOC | flag | 0 | logical | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gfdl_cloud_microphys_init (me, master, nlunit, input_nml_file, logunit, fn_nml, & imp_physics, imp_physics_gfdl, do_shoc, errmsg, errflg) @@ -420,10 +420,10 @@ end subroutine gfdl_cloud_microphys_init ! ======================================================================= !! \section arg_table_gfdl_cloud_microphys_finalize Argument Table -!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | -!! |-------------|---------------|---------------------------------------------|---------|------|-----------|--------|--------|----------| -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | +!! |-------------|--------------------|---------------------------------------------|---------|------|-----------|--------|--------|----------| +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gfdl_cloud_microphys_finalize(errmsg, errflg) @@ -483,8 +483,8 @@ end subroutine gfdl_cloud_microphys_finalize !! | dtp | time_step_for_physics | physics timestep | s | 0 | real | kind_phys | in | F | !! | hydrostatic | flag_for_hydrostatic_solver | flag indicating hydrostatic solver | flag | 0 | logical | | in | F | !! | phys_hydrostatic | flag_for_hydrostatic_heating_from_physics | flag indicating hydrostatic heating from physics | flag | 0 | logical | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gfdl_cloud_microphys_run( & levs, im, con_g, con_fvirt, con_rd, frland, garea, & diff --git a/physics/gfdl_cloud_microphys_pre_post.F90 b/physics/gfdl_cloud_microphys_pre_post.F90 index 2923a96c3..655d33280 100644 --- a/physics/gfdl_cloud_microphys_pre_post.F90 +++ b/physics/gfdl_cloud_microphys_pre_post.F90 @@ -24,8 +24,8 @@ end subroutine gfdl_cloud_microphys_pre_finalize !! | ice0 | lwe_thickness_of_ice_amount_per_day | ice fall over 24h period | mm | 1 | real | kind_phys | out | F | !! | snow0 | lwe_thickness_of_snow_amount_per_day | snow fall over 24h period | mm | 1 | real | kind_phys | out | F | !! | graupel0 | lwe_thickness_of_graupel_amount_per_day | graupel fall over 24h period | mm | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gfdl_cloud_microphys_pre_run(im, rain0, ice0, snow0, graupel0, errmsg, errflg) @@ -90,8 +90,8 @@ end subroutine gfdl_cloud_microphys_post_finalize !! | graupel1 | lwe_thickness_of_graupel_amount_on_dynamics_timestep | graupel fall at this time step | m | 1 | real | kind_phys | out | F | !! | sr | ratio_of_snowfall_to_rainfall | snow ratio: ratio of snow to total precipitation | frac | 1 | real | kind_phys | out | F | !! | dtp | time_step_for_physics | physics timestep | s | 0 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gfdl_cloud_microphys_post_run(im, rain0, ice0, snow0, graupel0, & rain1, ice1, snow1, graupel1, & diff --git a/physics/gfdl_fv_sat_adj.F90 b/physics/gfdl_fv_sat_adj.F90 index 020cda641..b50c32802 100644 --- a/physics/gfdl_fv_sat_adj.F90 +++ b/physics/gfdl_fv_sat_adj.F90 @@ -114,8 +114,8 @@ module fv_sat_adj !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------|---------------------------------------------------------------|----------------------------------------------------------------------------------------|---------|------|-----------|-----------|--------|----------| !! | kmp | top_layer_index_for_fast_physics | top_layer_inder_for_gfdl_mp | index | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine fv_sat_adj_init(kmp, errmsg, errflg) @@ -163,8 +163,8 @@ end subroutine fv_sat_adj_init !! \section arg_table_fv_sat_adj_finalize Argument Table !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------|---------------------------------------------------------------|----------------------------------------------------------------------------------------|---------|------|-----------|-----------|--------|----------| -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine fv_sat_adj_finalize (errmsg, errflg) @@ -236,8 +236,8 @@ end subroutine fv_sat_adj_finalize !! | do_qa | flag_for_inline_cloud_fraction_calculation | flag for the inline cloud fraction calculation | flag | 0 | logical | | in | F | !! | qa | cloud_fraction_at_Lagrangian_surface | cloud fraction at Lagrangian surface | none | 3 | real | | out | F | !! | nthreads | omp_threads | number of OpenMP threads available for fast physics schemes | count | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine fv_sat_adj_run(mdt, zvir, is, ie, isd, ied, kmp, km, kmdelz, js, je, jsd, jed, & ng, hydrostatic, fast_mp_consv, te0_2d, te0, qv, ql, qi, qr, qs, qg, & diff --git a/physics/gfdl_fv_sat_adj_pre.F90 b/physics/gfdl_fv_sat_adj_pre.F90 index 33b31bd31..3fe1fa5d1 100644 --- a/physics/gfdl_fv_sat_adj_pre.F90 +++ b/physics/gfdl_fv_sat_adj_pre.F90 @@ -15,8 +15,8 @@ end subroutine fv_sat_adj_pre_finalize !! | local_name | standard_name | long_name | units | rank | type | kind | intent | optional | !! |----------------|--------------------------------------------------------|---------------------------------------------------------|---------------|------|------------------------|-----------|--------|----------| !! | Interstitial | CCPP_Interstitial_type | derived type CCPP_interstitial_type | DDT | 0 | CCPP_interstitial_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine fv_sat_adj_pre_run (Interstitial, errmsg, errflg) diff --git a/physics/gmtb_scm_sfc_flux_spec.f90 b/physics/gmtb_scm_sfc_flux_spec.f90 index ca0a72a9c..ff2d79ead 100644 --- a/physics/gmtb_scm_sfc_flux_spec.f90 +++ b/physics/gmtb_scm_sfc_flux_spec.f90 @@ -59,8 +59,8 @@ end subroutine gmtb_scm_sfc_flux_spec_finalize !! | qss | surface_specific_humidity | surface air saturation specific humidity | kg kg-1 | 1 | real | kind_phys | out | F | !! | t2m | temperature_at_2m | 2 meter temperature | K | 1 | real | kind_phys | out | F | !! | q2m | specific_humidity_at_2m | 2 meter specific humidity | kg kg-1 | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general_sfc_flux_spec General Algorithm !! -# Compute friction velocity from the wind speed at the lowest model layer, the height about the ground, and the roughness length. diff --git a/physics/gscond.f b/physics/gscond.f index a9191a2bf..095358d04 100644 --- a/physics/gscond.f +++ b/physics/gscond.f @@ -49,8 +49,8 @@ end subroutine zhaocarr_gscond_finalize !! | u | critical_relative_humidity | critical relative humidity | frac | 2 | real | kind_phys | in | F | !! | lprnt | flag_print | flag for printing diagnostics to output | flag | 0 | logical | | in | F | !! | ipr | horizontal_index_of_printed_column | horizontal index of printed column | index | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section general_gscond GFS gscond Scheme General Algorithm !! -# Calculate ice-water identification number \f$IW\f$ in order to make a distinction betwee diff --git a/physics/gwdc.f b/physics/gwdc.f index 25036dfb9..53da79723 100644 --- a/physics/gwdc.f +++ b/physics/gwdc.f @@ -32,8 +32,8 @@ end subroutine gwdc_pre_init !! | gt0_init | air_temperature_save | air temperature before entering convection scheme | K | 2 | real | kind_phys | in | F | !! | del | air_pressure_difference_between_midlayers | difference between mid-layer pressures | Pa | 2 | real | kind_phys | in | F | !! | cumabs | maximum_column_heating_rate | maximum heating rate in column | K s-1 | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gwdc_pre_run ( & & im, cgwf, dx, work1, work2, dlength, cldf, & @@ -152,8 +152,8 @@ end subroutine gwdc_init !! | vtgwc | tendency_of_y_wind_due_to_convective_gravity_wave_drag | meridional wind tendency due to convective gravity wave drag | m s-2 | 2 | real | kind_phys | out | F | !! | tauctx | instantaneous_x_stress_due_to_gravity_wave_drag | zonal stress at cloud top due to convective gravity wave drag | Pa | 1 | real | kind_phys | out | F | !! | taucty | instantaneous_y_stress_due_to_gravity_wave_drag | meridional stress at cloud top due to convective gravity wave drag | Pa | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !>\section gen_gwdc GFS Convective GWD Scheme General Algorithm !! Parameterizing subgrid-scale convection-induced gravity wave @@ -1518,8 +1518,8 @@ end subroutine gwdc_post_init !! | gu0 | x_wind_updated_by_physics | updated zonal wind | m s-1 | 2 | real | kind_phys | inout | F | !! | gv0 | y_wind_updated_by_physics | updated meridional wind | m s-1 | 2 | real | kind_phys | inout | F | !! | gt0 | air_temperature_updated_by_physics | updated air temperature | K | 2 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gwdc_post_run( & & im, levs, lssav, ldiag3d, dtf, dtp, con_cp, & diff --git a/physics/gwdps.f b/physics/gwdps.f index 7a9c14ce5..5be5a1c2d 100644 --- a/physics/gwdps.f +++ b/physics/gwdps.f @@ -26,8 +26,8 @@ end subroutine gwdps_pre_init !! | sigma | slope_of_subgrid_orography | slope of subgrid orography | none | 1 | real | kind_phys | out | F | !! | gamma | anisotropy_of_subgrid_orography | anisotropy of subgrid orography | none | 1 | real | kind_phys | out | F | !! | elvmax | maximum_subgrid_orography | maximum of subgrid orography | m | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general General Algorithm !! \section detailed Detailed Algorithm @@ -179,8 +179,8 @@ end subroutine gwdps_init !! | lprnt | flag_print | flag for debugging printouts | flag | 0 | logical | | in | F | !! | ipr | horizontal_index_of_printed_column | horizontal index of column used in debugging printouts | index | 0 | integer | | in | F | !! | rdxzb | level_of_dividing_streamline | level of the dividing streamline | none | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section gen_gwdps GFS Orographic GWD Scheme General Algorithm !! -# Calculate subgrid mountain blocking @@ -1457,8 +1457,8 @@ end subroutine gwdps_post_init !! | du3dt | cumulative_change_in_x_wind_due_to_surface_processes | cumulative change in zonal wind due to surface processes | m s-1 | 2 | real | kind_phys | inout | F | !! | dv3dt | cumulative_change_in_y_wind_due_to_surface_processes | cumulative change in meridional wind due to surface processes | m s-1 | 2 | real | kind_phys | inout | F | !! | dt3dt | cumulative_change_in_temperature_due_to_surface_processes | cumulative change in temperature due to surface processes | K | 2 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine gwdps_post_run( & & lssav, ldiag3d, dtf, dusfcg, dvsfcg, dudt, dvdt, dtdt, & diff --git a/physics/memcheck.F90 b/physics/memcheck.F90 index 280462ea8..53bb467ae 100644 --- a/physics/memcheck.F90 +++ b/physics/memcheck.F90 @@ -29,8 +29,8 @@ end subroutine memcheck_finalize !! | seconds_elapsed | seconds_elapsed_since_model_initialization | seconds elapsed since model initialization | s | 0 | real | kind_phys | in | F | !! | block_number | block_number | for explicit data blocking: block number of this block | index | 0 | integer | | in | F | !! | mpicomm | mpi_comm | MPI communicator | index | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine memcheck_run (seconds_elapsed, block_number, mpicomm, errmsg, errflg) diff --git a/physics/mfdeepcnv.f b/physics/mfdeepcnv.f index f678f0339..893c541e5 100644 --- a/physics/mfdeepcnv.f +++ b/physics/mfdeepcnv.f @@ -77,8 +77,8 @@ end subroutine sasas_deep_finalize !! | dt_mf | instantaneous_atmosphere_detrainment_convective_mass_flux | (detrainment mass flux) * delt | kg m-2 | 2 | real | kind_phys | out | F | !! | cnvw | convective_cloud_water_mixing_ratio | moist convective cloud water mixing ratio | kg kg-1 | 2 | real | kind_phys | out | F | !! | cnvc | convective_cloud_cover | convective cloud cover | frac | 2 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general_mfdeep GFS SAMF Deep Convection Scheme General Algorithm !! -# Compute preliminary quantities needed for static, dynamic, and diff --git a/physics/mfshalcnv.f b/physics/mfshalcnv.f index 3028c4cff..96d715ca6 100644 --- a/physics/mfshalcnv.f +++ b/physics/mfshalcnv.f @@ -15,8 +15,8 @@ module sasas_shal_post !! | Grid | FV3-GFS_Grid_type | Fortran DDT containing FV3-GFS grid and interpolation related data | DDT | 0 | GFS_grid_type | | in | F | !! | Diag | FV3-GFS_Diag_type | Fortran DDT containing FV3-GFS fields targeted for diagnostic output | DDT | 0 | GFS_diag_type | | inout | F | !! | Tbd | FV3-GFS_Tbd_type | Fortran DDT containing FV3-GFS miscellaneous data | DDT | 0 | GFS_tbd_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine sasas_shal_post_run (frain, rain1, cnvc, cnvw, Model, & & Grid, Diag, Tbd, errmsg, errflg) @@ -126,8 +126,8 @@ end subroutine sasas_shal_init !! | dt_mf | instantaneous_atmosphere_detrainment_convective_mass_flux | (detrainment mass flux) * delt | kg m-2 | 2 | real | kind_phys | out | F | !! | cnvw | convective_cloud_water_mixing_ratio | moist convective cloud water mixing ratio | kg kg-1 | 2 | real | kind_phys | out | F | !! | cnvc | convective_cloud_cover | convective cloud cover | frac | 2 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section general_mfshal GFS SAMF Shallow Convection Scheme General Algorithm !! -# Compute preliminary quantities needed for the static and feedback diff --git a/physics/moninedmf.f b/physics/moninedmf.f index f30b016e6..84ab5cdb0 100644 --- a/physics/moninedmf.f +++ b/physics/moninedmf.f @@ -118,8 +118,8 @@ end subroutine hedmf_finalize !! | ipr | horizontal_index_of_printed_column | horizontal index of printed column | index | 0 | integer | | in | F | !! | xkzminv | atmosphere_heat_diffusivity_background_maximum | maximum background value of heat diffusivity | m2 s-1 | 0 | real | kind_phys | in | F | !! | moninq_fac | atmosphere_diffusivity_coefficient_factor | multiplicative constant for atmospheric diffusivities | none | 0 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general_edmf Hybrid EDMF General Algorithm !! -# Compute preliminary variables from input arguments. diff --git a/physics/ozphys.f b/physics/ozphys.f index 4640785c5..b872a0dcc 100644 --- a/physics/ozphys.f +++ b/physics/ozphys.f @@ -61,8 +61,8 @@ end subroutine ozphys_init !! | ldiag3d | flag_diagnostics_3D | flag for calculating 3-D diagnostic fields | flag | 0 | logical | | in | F | !! | ozp | change_in_ozone_concentration | change in ozone concentration | kg kg-1 | 3 | real | kind_phys | inout | F | !! | me | mpi_rank | rank of the current MPI task | index | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section genal_ozphys GFS Ozone Physics Scheme General Algorithm !> @{ @@ -235,8 +235,8 @@ end subroutine ozphys_post_init !! | ldiag3d | flag_diagnostics_3D | logical flag for 3D diagnostics | flag | 0 | logical | | in | F | !! | ozp | change_in_ozone_concentration | change in ozone concentration | kg kg-1 | 3 | real | kind_phys | in | F | !! | Diag | FV3-GFS_Diag_type | GFS diagnostics derived data type variable | DDT | 0 | GFS_diag_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine ozphys_post_run(ix, levs, pl_coeff, ldiag3d, ozp, & & Diag, errmsg, errflg) diff --git a/physics/precpd.f b/physics/precpd.f index 95d1be0d9..b2e5311fb 100644 --- a/physics/precpd.f +++ b/physics/precpd.f @@ -40,8 +40,8 @@ end subroutine zhaocarr_precpd_init !! | wk1 | grid_size_related_coefficient_used_in_scale-sensitive_schemes | grid size related coefficient used in scale-sensitive schemes | none | 1 | real | kind_phys | in | F | !! | lprnt | flag_print | flag for printing diagnostics to output | flag | 0 | logical | | in | F | !! | jpr | horizontal_index_of_printed_column | horizontal index of printed column | index | 0 | integer | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section general_precpd GFS precpd Scheme General Algorithm !! The following two equations can be used to calculate the diff --git a/physics/radlw_main.f b/physics/radlw_main.f index e07e26554..800c9a799 100644 --- a/physics/radlw_main.f +++ b/physics/radlw_main.f @@ -425,8 +425,8 @@ end subroutine rrtmg_lw_init !! | cld_od_total | cloud_optical_depth_weighted | cloud optical depth, weighted | none | 2 | real | kind_phys | in | T | !! | cld_od_layer | cloud_optical_depth_layers_678 | cloud optical depth, from bands 6,7,8 | none | 2 | real | kind_phys | out | T | !! | cld_od | cloud_optical_depth | cloud optical depth | none | 2 | real | kind_phys | in | T | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section gen_lwrad RRTMG Longwave Radiation Scheme General Algorithm !> @{ diff --git a/physics/radsw_main.f b/physics/radsw_main.f index 9a0ab5952..aacefdcc0 100644 --- a/physics/radsw_main.f +++ b/physics/radsw_main.f @@ -559,8 +559,8 @@ end subroutine rrtmg_sw_init !! | cld_od | cloud_optical_depth | cloud optical depth | none | 2 | real | kind_phys | in | T | !! | cld_ssa | cloud_single_scattering_albedo | cloud single scattering albedo | frac | 2 | real | kind_phys | in | T | !! | cld_asy | cloud_asymmetry_parameter | cloud asymmetry parameter | none | 2 | real | kind_phys | in | T | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section gen_swrad RRTMG Shortwave Radiation Scheme General Algorithm !> @{ diff --git a/physics/rayleigh_damp.f b/physics/rayleigh_damp.f index 7386aa608..4df2791e0 100644 --- a/physics/rayleigh_damp.f +++ b/physics/rayleigh_damp.f @@ -37,8 +37,8 @@ end subroutine rayleigh_damp_init !! | prsl | air_pressure | mid-layer pressure | Pa | 2 | real | kind_phys | in | F | !! | prslrd0 | pressure_cutoff_for_rayleigh_damping | pressure level above which to apply Rayleigh damping | Pa | 0 | real | kind_phys | in | F | !! | ral_ts | time_scale_for_rayleigh_damping | time scale for Rayleigh damping | d | 0 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine rayleigh_damp_run ( & lsidea,IM,IX,KM,A,B,C,U1,V1,DT,CP, diff --git a/physics/rrtmg_lw_post.F90 b/physics/rrtmg_lw_post.F90 index 382044736..dd4249782 100644 --- a/physics/rrtmg_lw_post.F90 +++ b/physics/rrtmg_lw_post.F90 @@ -26,8 +26,8 @@ end subroutine rrtmg_lw_post_init !! | tsfa | surface_air_temperature_for_radiation | lowest model layer air temperature for radiation | K | 1 | real | kind_phys | in | F | !! | htlwc | tendency_of_air_temperature_due_to_longwave_heating_on_radiation_time_step | total sky heating rate due to longwave radiation | K s-1 | 2 | real | kind_phys | in | F | !! | htlw0 | tendency_of_air_temperature_due_to_longwave_heating_assuming_clear_sky_on_radiation_time_step | clear sky heating rate due to longwave radiation | K s-1 | 2 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! #endif subroutine rrtmg_lw_post_run (Model, Grid, Radtend, Coupling, & diff --git a/physics/rrtmg_lw_pre.F90 b/physics/rrtmg_lw_pre.F90 index 9ce9276a7..3e8033535 100644 --- a/physics/rrtmg_lw_pre.F90 +++ b/physics/rrtmg_lw_pre.F90 @@ -21,8 +21,8 @@ end subroutine rrtmg_lw_pre_init !! | im | horizontal_loop_extent | horizontal loop extent | count | 0 | integer | | in | F | !! | tsfg | surface_ground_temperature_for_radiation | surface ground temperature for radiation | K | 1 | real | kind_phys | in | F | !! | tsfa | surface_air_temperature_for_radiation | lowest model layer air temperature for radiation | K | 1 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine rrtmg_lw_pre_run (Model, Grid, Sfcprop, Radtend, im, tsfg, tsfa, errmsg, errflg) diff --git a/physics/rrtmg_sw_post.F90 b/physics/rrtmg_sw_post.F90 index eabea6831..9639d2688 100644 --- a/physics/rrtmg_sw_post.F90 +++ b/physics/rrtmg_sw_post.F90 @@ -31,8 +31,8 @@ end subroutine rrtmg_sw_post_init !! | sfcalb3 | surface_albedo_due_to_UV_and_VIS_direct | surface albedo due to UV+VIS direct beam | frac | 1 | real | kind_phys | in | F | !! | sfcalb4 | surface_albedo_due_to_UV_and_VIS_diffused | surface albedo due to UV+VIS diffused beam | frac | 1 | real | kind_phys | in | F | !! | scmpsw | components_of_surface_downward_shortwave_fluxes | derived type for special components of surface downward shortwave fluxes | W m-2 | 1 | cmpfsw_type | | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! #endif subroutine rrtmg_sw_post_run (Model, Grid, Diag, Radtend, Coupling, & diff --git a/physics/rrtmg_sw_pre.F90 b/physics/rrtmg_sw_pre.F90 index c9dccee0f..9229b1f13 100644 --- a/physics/rrtmg_sw_pre.F90 +++ b/physics/rrtmg_sw_pre.F90 @@ -28,8 +28,8 @@ end subroutine rrtmg_sw_pre_init !! | sfcalb3 | surface_albedo_due_to_UV_and_VIS_direct | surface albedo due to UV+VIS direct beam | frac | 1 | real | kind_phys | out | F | !! | sfcalb4 | surface_albedo_due_to_UV_and_VIS_diffused | surface albedo due to UV+VIS diffused beam | frac | 1 | real | kind_phys | out | F | !! | alb1d | surface_albedo_perturbation | surface albedo perturbation | frac | 1 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine rrtmg_sw_pre_run (Model, Grid, Sfcprop, Radtend, im, & nday, idxday, tsfg, tsfa, sfcalb1, sfcalb2, sfcalb3, sfcalb4, & diff --git a/physics/samfdeepcnv.f b/physics/samfdeepcnv.f index 9731fb103..fbd31c165 100755 --- a/physics/samfdeepcnv.f +++ b/physics/samfdeepcnv.f @@ -153,8 +153,8 @@ end subroutine samfdeepcnv_finalize !! | evfactl | rain_evaporation_coefficient_over_land_deep_convection | convective rain evaporation coefficient over land for deep conv. | frac | 0 | real | kind_phys | in | F | !! | pgcon | momentum_transport_reduction_factor_pgf_deep_convection | reduction factor in momentum transport due to deep conv. induced pressure gradient force | frac | 0 | real | kind_phys | in | F | !! | asolfac | aerosol_aware_parameter_deep_convection | aerosol-aware parameter inversely proportional to CCN number concentraion from Lim (2011) for deep conv. | none | 0 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general General Algorithm !! -# Compute preliminary quantities needed for static, dynamic, and feedback control portions of the algorithm. diff --git a/physics/samfshalcnv.f b/physics/samfshalcnv.f index 5af04d809..0052c3507 100755 --- a/physics/samfshalcnv.f +++ b/physics/samfshalcnv.f @@ -105,8 +105,8 @@ end subroutine samfshalcnv_finalize !! | c1 | detrainment_conversion_parameter_shallow_convection | convective detrainment conversion parameter for shal conv. | m-1 | 0 | real | kind_phys | in | F | !! | pgcon | momentum_transport_reduction_factor_pgf_shallow_convection | reduction factor in momentum transport due to shal conv. induced pressure gradient force | frac | 0 | real | kind_phys | in | F | !! | asolfac | aerosol_aware_parameter_shallow_convection | aerosol-aware parameter inversely proportional to CCN number concentraion from Lim (2011) for shal conv. | none | 0 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general General Algorithm !! -# Compute preliminary quantities needed for the static and feedback control portions of the algorithm. diff --git a/physics/sfc_diag.f b/physics/sfc_diag.f index 20fe9ac93..bd36f8dab 100644 --- a/physics/sfc_diag.f +++ b/physics/sfc_diag.f @@ -37,8 +37,8 @@ end subroutine sfc_diag_finalize !! | fh | Monin-Obukhov_similarity_function_for_heat | Monin-Obukhov similarity parameter for heat | none | 1 | real | kind_phys | in | F | !! | fm10 | Monin-Obukhov_similarity_function_for_momentum_at_10m | Monin-Obukhov similarity parameter for momentum | none | 1 | real | kind_phys | in | F | !! | fh2 | Monin-Obukhov_similarity_function_for_heat_at_2m | Monin-Obukhov similarity parameter for heat | none | 1 | real | kind_phys | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general General Algorithm !! \section detailed Detailed Algorithm diff --git a/physics/sfc_diff.f b/physics/sfc_diff.f index 22f2843d8..1fdc86173 100644 --- a/physics/sfc_diff.f +++ b/physics/sfc_diff.f @@ -52,8 +52,8 @@ end subroutine sfc_ex_coef_finalize !! | tsurf | surface_skin_temperature_after_iteration | surface skin temperature after iteration | K | 1 | real | kind_phys | in | F | !! | flag_iter | flag_for_iteration | flag for iteration | flag | 1 | logical | | in | F | !! | redrag | flag_for_reduced_drag_coefficient_over_sea | flag for reduced drag coefficient over sea | flag | 0 | logical | | in | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section general_diff GFS Surface Layer Scheme General Algorithm !! @{ diff --git a/physics/sfc_drv.f b/physics/sfc_drv.f index 1e0a09fbc..c4f5fe27f 100644 --- a/physics/sfc_drv.f +++ b/physics/sfc_drv.f @@ -27,8 +27,8 @@ end subroutine lsm_noah_pre_finalize !! | snohf | snow_freezing_rain_upward_latent_heat_flux | latent heat flux due to snow and frz rain | W m-2 | 1 | real | kind_phys | out | F | !! | smcwlt2 | volume_fraction_of_condensed_water_in_soil_at_wilting_point | soil water fraction at wilting point | frac | 1 | real | kind_phys | out | F | !! | smcref2 | threshold_volume_fraction_of_condensed_water_in_soil | soil moisture threshold | frac | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine lsm_noah_pre_run & & (im,km,drain,runof,evbs,evcw,trans,sbsno,snowc,snohf,smcwlt2, & @@ -90,8 +90,8 @@ end subroutine lsm_noah_post_finalize !! | runof | surface_runoff_flux | surface runoff flux | g m-2 s-1 | 1 | real | kind_phys | in | F | !! | runoff | total_runoff | total runoff | kg m-2 | 1 | real | kind_phys | inout | F | !! | srunoff | surface_runoff | surface runoff | kg m-2 | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section lsm_post_general General Algorithm !! \section lsm_post_detailed Detailed Algorithm @@ -325,8 +325,8 @@ end subroutine lsm_noah_finalize !! | smcwlt2 | volume_fraction_of_condensed_water_in_soil_at_wilting_point | soil water fraction at wilting point | frac | 1 | real | kind_phys | inout | F | !! | smcref2 | threshold_volume_fraction_of_condensed_water_in_soil | soil moisture threshold | frac | 1 | real | kind_phys | inout | F | !! | wet1 | normalized_soil_wetness | normalized soil wetness | frac | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section general_noah_drv GFS Noah Driver General Algorithm !! @{ diff --git a/physics/sfc_nst.f b/physics/sfc_nst.f index 4e69606d1..8cd46ab0e 100644 --- a/physics/sfc_nst.f +++ b/physics/sfc_nst.f @@ -83,8 +83,8 @@ end subroutine sfc_nst_finalize !! | evap | kinematic_surface_upward_latent_heat_flux | kinematic from latent heat flux | kg kg-1 m s-1 | 1 | real | kind_phys | inout | F | !! | hflx | kinematic_surface_upward_sensible_heat_flux | kinematic sensible heat flux | K m s-1 | 1 | real | kind_phys | inout | F | !! | ep | surface_upward_potential_latent_heat_flux | potential evaporation | W m-2 | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section NSST_general_algorithm GFS Near Sea Surface Temperature Scheme General Algorithm !> @{ @@ -724,8 +724,8 @@ end subroutine sfc_nst_pre_finalize !! | tsfc | surface_skin_temperature | ocean surface skin temperature | K | 1 | real | kind_phys | in | F | !! | tsurf | surface_skin_temperature_after_iteration | ocean surface skin temperature for guess run | K | 1 | real | kind_phys | inout | F | !! | tskin | surface_skin_temperature_for_nsst | ocean surface skin temperature | K | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section NSST_general_pre_algorithm General Algorithm !! @{ @@ -822,8 +822,8 @@ end subroutine sfc_nst_post_finalize !! | tsurf | surface_skin_temperature_after_iteration | ocean surface skin temperature for guess run | K | 1 | real | kind_phys | inout | F | !! | dtzm | mean_change_over_depth_in_sea_water_temperature | mean of dT(z) (zsea1 to zsea2) | K | 1 | real | kind_phys | out | F | !! | tsfc | surface_skin_temperature | ocean surface skin temperature | K | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !! \section NSST_general_post_algorithm General Algorithm !! diff --git a/physics/sfc_sice.f b/physics/sfc_sice.f index 5bd5a2ca9..d22b79a83 100644 --- a/physics/sfc_sice.f +++ b/physics/sfc_sice.f @@ -27,8 +27,8 @@ end subroutine sfc_sice_pre_finalize !! | zice | sea_ice_thickness_for_physics | sea-ice thickness | m | 1 | real | kind_phys | out | F | !! | tice | sea_ice_temperature_for_physics | sea-ice surface temperature | K | 1 | real | kind_phys | out | F | !! | work3 | ratio_of_exner_function_between_midlayer_and_interface_at_lowest_model_layer | Exner function ratio bt midlayer and interface at 1st layer | ratio | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine sfc_sice_pre_run(im, fice, hice, tisfc, prsik, prslk, & & cice, zice, tice, work3, errmsg, errflg) @@ -95,8 +95,8 @@ end subroutine sfc_sice_post_finalize !! | fice | sea_ice_concentration | sea-ice concentration [0,1] | frac | 1 | real | kind_phys | out | F | !! | hice | sea_ice_thickness | sea-ice thickness | m | 1 | real | kind_phys | out | F | !! | tisfc | sea_ice_temperature | sea-ice surface temperature | K | 1 | real | kind_phys | out | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! subroutine sfc_sice_post_run(im, islmsk, cice, zice, tice, tsfc, & & fice, hice, tisfc, errmsg, errflg) @@ -202,8 +202,8 @@ end subroutine sfc_sice_finalize !! | chh | surface_drag_mass_flux_for_heat_and_moisture_in_air | surf h&m exch coef time surf wind & density | kg m-2 s-1 | 1 | real | kind_phys | inout | F | !! | evap | kinematic_surface_upward_latent_heat_flux | evaporative latent heat flux | kg kg-1 m s-1 | 1 | real | kind_phys | inout | F | !! | hflx | kinematic_surface_upward_sensible_heat_flux | kinematic sensible heat flux | K m s-1 | 1 | real | kind_phys | inout | F | -!! | errmsg | error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | -!! | errflg | error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | +!! | errmsg | ccpp_error_message | error message for error handling in CCPP | none | 0 | character | len=* | out | F | +!! | errflg | ccpp_error_flag | error flag for error handling in CCPP | flag | 0 | integer | | out | F | !! !> \section general_sice_run GFS Sea Ice Driver General Algorithm !!The model has four prognostic variables: the snow layer thickness \f$h_s\f$, the ice layer thickness From b7bf02cb008c14bed73df9e197101bc2e07438a7 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Mon, 23 Jul 2018 16:50:01 -0600 Subject: [PATCH 2/2] GFS_suite_setup_scm.F90: bugfix, use locally-defined errmsg and errflg instead of Interstitial%errmsg/Interstitial%errflg (no longer exist) --- physics/GFS_suite_setup_scm.F90 | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/physics/GFS_suite_setup_scm.F90 b/physics/GFS_suite_setup_scm.F90 index 7aa85c9ca..7dc7f15c2 100644 --- a/physics/GFS_suite_setup_scm.F90 +++ b/physics/GFS_suite_setup_scm.F90 @@ -155,8 +155,6 @@ subroutine GFS_suite_setup_scm_init (Model, Statein, Stateout, Sfcprop, allocate(si(Model%levr+1)) si = (Init_parm%ak + Init_parm%bk * p_ref - Init_parm%ak(Model%levr+1)) & / (p_ref - Init_parm%ak(Model%levr+1)) - Interstitial%errmsg = '' - Interstitial%errflg = 0 call GFS_rrtmg_setup_init (si, Model%levr, Model%ictm, Model%isol, & Model%ico2, Model%iaer, Model%ialb, Model%iems, & Model%ntcw, Model%num_p2d, Model%num_p3d, Model%npdf3d, & @@ -165,9 +163,9 @@ subroutine GFS_suite_setup_scm_init (Model, Statein, Stateout, Sfcprop, Model%imp_physics, Model%norad_precip, Model%idate, & Model%iflip, Interstitial%im, Interstitial%faerlw, & Interstitial%faersw, Interstitial%aerodp, & - Model%me, Interstitial%errmsg, Interstitial%errflg) - if (Interstitial%errflg/=0) then - print *, "An error occured in GFS_rrtmg_setup_init: " // trim(Interstitial%errmsg) + Model%me, errmsg, errflg) + if (errflg/=0) then + print *, "An error occured in GFS_rrtmg_setup_init: " // trim(errmsg) stop endif deallocate (si)