fix another optional argument in RUC LSM

NCAR · Oct 24, 2024 · 0678f44 · 0678f44
1 parent 5bdca0d
commit 0678f44
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/physics/SFC_Models/Land/RUC/lsm_ruc.F90 b/physics/SFC_Models/Land/RUC/lsm_ruc.F90
@@ -455,13 +455,13 @@ subroutine lsm_ruc_run                                            & ! inputs
      ! for land
      &       sncovr1_lnd, qsurf_lnd, gflux_lnd, evap_lnd,                &
      &       cmm_lnd, chh_lnd, hflx_lnd, sbsno,                          &
-     &       acsnow_lnd, snowmt_lnd, snohf,                              &
+     &       snowmt_lnd, snohf,                                          &
      ! for ice
      &       sncovr1_ice, qsurf_ice, gflux_ice, evap_ice, ep1d_ice,      &
      &       cmm_ice, chh_ice, hflx_ice,                                 &
      &       snowmt_ice
       real (kind_phys), dimension(:), intent(inout), optional ::         &
-             acsnow_ice
+             acsnow_lnd, acsnow_ice
       real (kind_phys), dimension(:), intent(  out) ::                   &
      &       albdvis_lnd, albdnir_lnd,  albivis_lnd,  albinir_lnd
       real (kind_phys), dimension(:), intent(  out), optional ::         &

diff --git a/physics/SFC_Models/Land/RUC/lsm_ruc.meta b/physics/SFC_Models/Land/RUC/lsm_ruc.meta
@@ -1489,6 +1489,7 @@
   type = real
   kind = kind_phys
   intent = inout
+  optional = True
 [snowmt_lnd]
   standard_name = surface_snow_melt_over_land
   long_name = snow melt during timestep over land