diff --git a/src/physics/cam/gw_drag.F90 b/src/physics/cam/gw_drag.F90 index 6b2cdb32fd..07a96ae7d2 100644 --- a/src/physics/cam/gw_drag.F90 +++ b/src/physics/cam/gw_drag.F90 @@ -192,8 +192,9 @@ module gw_drag logical :: gw_top_taper=.false. real(r8), pointer :: vramp(:)=>null() - ! Switch for using ML GW parameterisation for deep convection source + ! Variables for ML GW parameterisation for deep convection character(len=16) :: gw_convect_dp_ml = "off" + character(len=132) :: gw_convect_dp_ml_net !========================================================================== contains @@ -236,7 +237,7 @@ subroutine gw_drag_readnl(nlfile) gw_oro_south_fac, gw_limit_tau_without_eff, & gw_lndscl_sgh, gw_prndl, gw_apply_tndmax, gw_qbo_hdepth_scaling, & gw_top_taper, front_gaussian_width, & - gw_convect_dp_ml + gw_convect_dp_ml, gw_convect_dp_ml_net !---------------------------------------------------------------------- if (use_simple_phys) return @@ -343,6 +344,9 @@ subroutine gw_drag_readnl(nlfile) call mpi_bcast(gw_convect_dp_ml, len(gw_convect_dp_ml), mpi_character, mstrid, mpicom, ierr) if (ierr /= 0) call endrun(sub//": FATAL: mpi_bcast: gw_convect_dp_ml") + call mpi_bcast(gw_convect_dp_ml_net, len(gw_convect_dp_ml_net), mpi_character, mstrid, mpicom, ierr) + if (ierr /= 0) call endrun(sub//": FATAL: mpi_bcast: gw_convect_dp_ml_net") + ! Check if fcrit2 was set. call shr_assert(fcrit2 /= unset_r8, & "gw_drag_readnl: fcrit2 must be set via the namelist."// &