Merge pull request #1069 from dustinswales/replay_fixLSMinit

Add NoahMP LSM Init to SCM time-vary
NCAR · Apr 10, 2024 · 6d8fccb · 6d8fccb
2 parents fd85f43 + 5e56dce
commit 6d8fccb
Showing 1 changed file with 7 additions and 2 deletions.
diff --git a/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90 b/physics/Interstitials/UFS_SCM_NEPTUNE/GFS_phys_time_vary.scm.F90
@@ -30,12 +30,12 @@ module GFS_phys_time_vary
       use set_soilveg_mod, only: set_soilveg
 
       ! --- needed for Noah MP init
-      use noahmp_tables, only: laim_table,saim_table,sla_table,      &
+      use noahmp_tables, only: read_mp_table_parameters,             &
+                               laim_table,saim_table,sla_table,      &
                                bexp_table,smcmax_table,smcwlt_table, &
                                dwsat_table,dksat_table,psisat_table, &
                                isurban_table,isbarren_table,         &
                                isice_table,iswater_table
-
       implicit none
 
       private
@@ -247,6 +247,11 @@ subroutine GFS_phys_time_vary_init (
 !> - Initialize soil vegetation (needed for sncovr calculation further down)
          call set_soilveg(me, isot, ivegsrc, nlunit, errmsg, errflg)
 
+!> - read in NoahMP table (needed for NoahMP init)
+         if(lsm == lsm_noahmp) then
+            call read_mp_table_parameters(errmsg, errflg)
+         endif
+
 !> - Setup spatial interpolation indices for ozone physics.
          if (ntoz > 0) then
             call ozphys%setup_o3prog(xlat_d, jindx1_o3, jindx2_o3, ddy_o3)