Don't reset accumulation if flag is set in namelist

NCAR · Sep 26, 2024 · b95205c · b95205c
1 parent e993ef5
commit b95205c
Show file tree

Hide file tree

Showing 5 changed files with 968 additions and 962 deletions.
diff --git a/src/CPL/NoahMP_cpl/hrldas_drv_HYDRO.F b/src/CPL/NoahMP_cpl/hrldas_drv_HYDRO.F
@@ -395,6 +395,14 @@ subroutine get_iocflag(did, iocflag)
          iocflag = nlst(did)%io_config_outputs
       end subroutine get_iocflag
 
+      subroutine get_rstrt_swc(did, restart_flag)
+         use config_base, only: nlst
+         implicit none
+         integer, intent(in)  :: did
+         integer, intent(out) :: restart_flag
+         restart_flag = nlst(did)%RSTRT_SWC
+      end subroutine
+
       subroutine get_t0OutputFlag(did, t0OutputFlag)
         use config_base, only: nlst
          implicit none