diff --git a/ccpp/physics b/ccpp/physics index 9b527e42d..36920bc73 160000 --- a/ccpp/physics +++ b/ccpp/physics @@ -1 +1 @@ -Subproject commit 9b527e42d1152a86555ff1057b4ba1782571f05c +Subproject commit 36920bc73b3c34568db0e45615c67bbeed14a3cb diff --git a/scm/src/GFS_typedefs.F90 b/scm/src/GFS_typedefs.F90 index 5bc6cfeb7..aef46ae96 100644 --- a/scm/src/GFS_typedefs.F90 +++ b/scm/src/GFS_typedefs.F90 @@ -1155,6 +1155,7 @@ module GFS_typedefs logical :: do_ugwp_v1 !< flag for version 1 ugwp GWD logical :: do_ugwp_v1_orog_only !< flag for version 1 ugwp GWD (orographic drag only) logical :: do_ugwp_v1_w_gsldrag !< flag for version 1 ugwp with OGWD of GSL + logical :: do_ngw_ec !< flag for ecmwf ngw logical :: mstrat !< flag for moorthi approach for stratus logical :: moist_adj !< flag for moist convective adjustment logical :: cscnv !< flag for Chikira-Sugiyama convection @@ -3737,6 +3738,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & logical :: do_ugwp_v1 = .false. !< flag for version 1 ugwp GWD logical :: do_ugwp_v1_orog_only = .false. !< flag for version 1 ugwp GWD (orographic drag only) logical :: do_ugwp_v1_w_gsldrag = .false. !< flag for version 1 ugwp GWD (orographic drag only) + logical :: do_ngw_ec = .false. !< flag for ecmwf ngwd algorithm !--- vay-2018 logical :: ldiag_ugwp = .false. !< flag for UGWP diag fields logical :: ugwp_seq_update = .false. !< flag for updating winds between UGWP steps @@ -4190,7 +4192,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & gwd_opt, do_ugwp_v0, do_ugwp_v0_orog_only, & do_ugwp_v0_nst_only, & do_gsl_drag_ls_bl, do_gsl_drag_ss, do_gsl_drag_tofd, & - do_gwd_opt_psl, & + do_gwd_opt_psl, do_ngw_ec, & do_ugwp_v1, do_ugwp_v1_orog_only, do_ugwp_v1_w_gsldrag, & ugwp_seq_update, var_ric, coef_ric_l, coef_ric_s, hurr_pbl, & do_myjsfc, do_myjpbl, & @@ -5170,6 +5172,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & Model%do_gsl_drag_ss = do_gsl_drag_ss Model%do_gsl_drag_tofd = do_gsl_drag_tofd Model%do_gwd_opt_psl = do_gwd_opt_psl + Model%do_ngw_ec = do_ngw_ec Model%do_ugwp_v1 = do_ugwp_v1 Model%do_ugwp_v1_orog_only = do_ugwp_v1_orog_only Model%do_ugwp_v1_w_gsldrag = do_ugwp_v1_w_gsldrag @@ -5441,7 +5444,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & ! Last index of outermost dimension of dtend Model%ndtend = 0 allocate (Model%dtidx(Model%ntracp100,Model%nprocess)) - Model%dtidx = -99 + Model%dtidx = no_tracer if(Model%ntchm>0) then Model%ntdu1 = get_tracer_index(Model%tracer_names, 'dust1') @@ -5700,8 +5703,8 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, & ENDIF error stop ENDIF - Model%ntccn = -99 - Model%ntccna = -99 + Model%ntccn = no_tracer + Model%ntccna = no_tracer ELSEIF ( Model%ntccn < 1 ) THEN if (Model%me == Model%master) then write(*,*) 'NSSL micro: error! CCN is ON but ntccn < 1. Must have ccn_nc in field_table if nssl_ccn_on=T' @@ -7044,6 +7047,7 @@ subroutine control_print(Model) print *, ' do_gsl_drag_tofd : ', Model%do_gsl_drag_tofd print *, ' do_gwd_opt_psl : ', Model%do_gwd_opt_psl print *, ' do_ugwp_v1 : ', Model%do_ugwp_v1 + print *, ' do_ngw_ec : ', Model%do_ngw_ec print *, ' do_ugwp_v1_orog_only : ', Model%do_ugwp_v1_orog_only print *, ' do_ugwp_v1_w_gsldrag : ', Model%do_ugwp_v1_w_gsldrag print *, ' hurr_pbl : ', Model%hurr_pbl diff --git a/scm/src/GFS_typedefs.meta b/scm/src/GFS_typedefs.meta index f45f4454e..4fc1a345c 100644 --- a/scm/src/GFS_typedefs.meta +++ b/scm/src/GFS_typedefs.meta @@ -7810,6 +7810,12 @@ dimensions = () type = real kind = kind_phys +[do_ngw_ec] + standard_name = flag_for_ngw_ec + long_name = flag to activate ecmwf ngwd + units = flag + dimensions = () + type = logical [do_ugwp_v1] standard_name = flag_for_ugwp_version_1 long_name = flag to activate ver 1 CIRES UGWP