Add variable for the convect_dp_gw net filepath to be read from namel…

…ist.

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."// &