restore if (cpllnd .and. cpllnd2atm) check

ufs-community · Oct 29, 2024 · 941323b · 941323b
1 parent f25bf2d
commit 941323b
Showing 1 changed file with 10 additions and 2 deletions.
diff --git a/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90 b/physics/SFC_Models/Land/Noahmp/noahmpdrv.F90
@@ -499,7 +499,7 @@ subroutine noahmpdrv_run                                       &
       iopt_trs,iopt_diag,xlatin, xcoszin, iyrlen, julian, garea, &
       rainn_mp, rainc_mp, snow_mp, graupel_mp, ice_mp, rhonewsn1,&
       con_hvap, con_cp, con_jcal, rhoh2o, con_eps, con_epsm1,    &
-      con_fvirt, con_rd, con_hfus, thsfc_loc,                    &
+      con_fvirt, con_rd, con_hfus, thsfc_loc, cpllnd,cpllnd2atm, &
 
 !  ---  in/outs:
       weasd, snwdph, tskin, tprcp, srflag, smc, stc, slc,        &
@@ -673,6 +673,9 @@ subroutine noahmpdrv_run                                       &
 
   logical                                , intent(in)    :: thsfc_loc  ! Flag for reference pressure in theta calculation
 
+  logical                                , intent(in)    :: cpllnd     ! Flag for land coupling (atm->lnd)
+  logical                                , intent(in)    :: cpllnd2atm ! Flag for land coupling (lnd->atm)
+
   real(kind=kind_phys), dimension(:)     , intent(inout) :: weasd      ! water equivalent accumulated snow depth [mm]
   real(kind=kind_phys), dimension(:)     , intent(inout) :: snwdph     ! snow depth [mm]
   real(kind=kind_phys), dimension(:)     , intent(inout) :: tskin      ! ground surface skin temperature [K]
@@ -1033,7 +1036,7 @@ subroutine noahmpdrv_run                                       &
   logical               :: is_snowing             ! used for penman calculation
   logical               :: is_freeze_rain         ! used for penman calculation
   integer :: i, k
-   
+
 !
 !  --- local derived constants:
 !
@@ -1050,6 +1053,11 @@ subroutine noahmpdrv_run                                       &
   errmsg = ''
   errflg = 0
 
+!
+!  --- Just return if external land component is activated for two-way interaction
+!
+  if (cpllnd .and. cpllnd2atm) return
+
   do i = 1, im
 
     if (flag_iter(i) .and. dry(i)) then