@@ -800,6 +800,8 @@ module GFS_typedefs
800
800
! < (yr, mon, day, t-zone, hr, min, sec, mil-sec)
801
801
integer :: idate(4 ) ! < initial date with different size and ordering
802
802
! < (hr, mon, day, yr)
803
+ logical :: gfs_phys_time_vary_is_init= .false. ! < GFS_phys_time_vary interstitial initialization flag
804
+
803
805
!- -- radiation control parameters
804
806
real (kind= kind_phys) :: fhswr ! < frequency for shortwave radiation (secs)
805
807
real (kind= kind_phys) :: fhlwr ! < frequency for longwave radiation (secs)
@@ -1026,7 +1028,7 @@ module GFS_typedefs
1026
1028
real (kind= kind_phys) :: dt_inner ! < time step for the inner loop in s
1027
1029
logical :: sedi_semi ! < flag for semi Lagrangian sedi of rain
1028
1030
integer :: decfl ! < deformed CFL factor
1029
- logical :: thpsnmp_is_init ! < Local scheme initialization flag
1031
+ logical :: thompson_mp_is_init = .false. ! < Local scheme initialization flag
1030
1032
1031
1033
!- -- GFDL microphysical paramters
1032
1034
logical :: lgfdlmprad ! < flag for GFDL mp scheme and radiation consistency
@@ -1216,6 +1218,7 @@ module GFS_typedefs
1216
1218
integer :: ichoice = 0 ! < flag for closure of C3/GF deep convection
1217
1219
integer :: ichoicem = 13 ! < flag for closure of C3/GF mid convection
1218
1220
integer :: ichoice_s = 3 ! < flag for closure of C3/GF shallow convection
1221
+ logical :: gf_coldstart ! < flag for cold start GF
1219
1222
integer :: conv_cf_opt ! < option for convection scheme cloud fraction computation
1220
1223
! < 0: Chaboureau-Bechtold
1221
1224
! < 1: Xu-Randall
@@ -3996,6 +3999,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
3996
3999
integer :: ichoice = 0 ! < flag for closure of C3/GF deep convection
3997
4000
integer :: ichoicem = 13 ! < flag for closure of C3/GF mid convection
3998
4001
integer :: ichoice_s = 3 ! < flag for closure of C3/GF shallow convection
4002
+ logical :: gf_coldstart = .false. ! < flag for cold start GF
3999
4003
4000
4004
!- - chem nml variables for RRFS-SD
4001
4005
real (kind= kind_phys) :: dust_drylimit_factor = 1.0
@@ -4225,7 +4229,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
4225
4229
do_smoke_transport,smoke_conv_wet_coef,n_dbg_lines, &
4226
4230
add_fire_moist_flux, sc_factor, &
4227
4231
!- -- C3/GF closures
4228
- ichoice,ichoicem,ichoice_s, &
4232
+ ichoice,ichoicem,ichoice_s,gf_coldstart, &
4229
4233
!- -- (DFI) time ranges with radar-prescribed microphysics tendencies
4230
4234
! and (maybe) convection suppression
4231
4235
fh_dfi_radar, radar_tten_limits, do_cap_suppress, &
@@ -4237,8 +4241,8 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
4237
4241
! do_land_iau, land_iau_delthrs, land_iau_inc_files, &
4238
4242
! land_iau_fhrs, land_iau_filter_increments, lsoil_incr, &
4239
4243
! land_iau_upd_stc, land_iau_upd_slc, &
4240
- ! land_iau_do_stcsmc_adjustment, land_iau_min_T_increment
4241
-
4244
+ ! land_iau_do_stcsmc_adjustment, land_iau_min_T_increment
4245
+
4242
4246
4243
4247
!- -- other parameters
4244
4248
integer :: nctp = 0 ! < number of cloud types in CS scheme
@@ -4549,6 +4553,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
4549
4553
Model% ichoice_s = ichoice_s
4550
4554
Model% ichoicem = ichoicem
4551
4555
Model% ichoice = ichoice
4556
+ Model% gf_coldstart = gf_coldstart
4552
4557
4553
4558
!- -- integrated dynamics through earth's atmosphere
4554
4559
Model% lsidea = lsidea
@@ -6663,6 +6668,7 @@ subroutine control_print(Model)
6663
6668
print * ,' ichoice_s : ' , Model% ichoice_s
6664
6669
print * ,' ichoicem : ' , Model% ichoicem
6665
6670
print * ,' ichoice : ' , Model% ichoice
6671
+ print * ,' gf_coldstart : ' , Model% gf_coldstart
6666
6672
endif
6667
6673
if (model% rrfs_sd) then
6668
6674
print * , ' '
0 commit comments