Move LSM vegetation lookup tables into CCPP, clean up RUC snow cover …

…on ice initialization
NOAA-EMC · Feb 4, 2021 · 2e991c5 · 2e991c5
1 parent c2fc3de
commit 2e991c5
Show file tree

Hide file tree

Showing 6 changed files with 7 additions and 512 deletions.
diff --git a/ccpp/driver/GFS_init.F90 b/ccpp/driver/GFS_init.F90
@@ -127,13 +127,6 @@ subroutine GFS_initialize (Model, Statein, Stateout, Sfcprop,     &
     !--- populate the grid components
     call GFS_grid_populate (Grid, Init_parm%xlon, Init_parm%xlat, Init_parm%area)
 
-! DH* TODO - MOVE TO CCPP
-! sfc_drv.f/lsm_noah_init and sfc_noahmp_drv.f/noahmpdrv_init; Note: This is
-! automatically called during the CCPP physics initialization stage.
-    !--- initialize soil vegetation
-    call set_soilveg(Model%me, Model%isot, Model%ivegsrc, Model%nlunit)
-! *DH
-
   end subroutine GFS_initialize
 
 !------------------

diff --git a/ccpp/physics b/ccpp/physics
diff --git a/gfsphysics/CMakeLists.txt b/gfsphysics/CMakeLists.txt
@@ -12,8 +12,6 @@ if(32BIT)
 endif()
 
 set(CCPP_SOURCES
-    physics/namelist_soilveg.f
-    physics/set_soilveg.f
     physics/noahmp_tables.f90
 )
 

diff --git a/gfsphysics/physics/namelist_soilveg.f b/gfsphysics/physics/namelist_soilveg.f