Rename logical switches used by LSM. These switches were the same nam…

…e as the module, which was causing problems in Capgen where flat-fields are passed from the API to the suite caps (e.g. the argument lsm_noah is now a problem in the lsm_noah module, when GFS_control%lsm_noah was not a conflict
NCAR · Jan 30, 2024 · 95dba39 · 95dba39
1 parent f40230b
commit 95dba39
Show file tree

Hide file tree

Showing 3 changed files with 153 additions and 152 deletions.
diff --git a/scm/src/CCPP_typedefs.F90 b/scm/src/CCPP_typedefs.F90
@@ -820,7 +820,7 @@ subroutine gfs_interstitial_create (Interstitial, IM, Model)
        allocate (Interstitial%ncpi (IM,Model%levs))
        allocate (Interstitial%ncpl (IM,Model%levs))
     end if
-    if (Model%lsm == Model%lsm_noahmp) then
+    if (Model%lsm == Model%ilsm_noahmp) then
        allocate (Interstitial%t2mmp (IM))
        allocate (Interstitial%q2mp  (IM))
     end if
@@ -1429,7 +1429,7 @@ subroutine gfs_interstitial_phys_reset (Interstitial, Model)
        Interstitial%ncpi      = clear_val
        Interstitial%ncpl      = clear_val
     end if
-    if (Model%lsm == Model%lsm_noahmp) then
+    if (Model%lsm == Model%ilsm_noahmp) then
        Interstitial%t2mmp     = clear_val
        Interstitial%q2mp      = clear_val
     end if