Bug fixes in Thompson MP and CLM Lake found by Dusan

climbfuji · Jun 3, 2024 · 4ed1b4f · 4ed1b4f
1 parent e176e67
commit 4ed1b4f
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/physics/MP/Thompson/module_mp_thompson.F90 b/physics/MP/Thompson/module_mp_thompson.F90
@@ -1048,7 +1048,7 @@ SUBROUTINE mp_gt_driver(qv, qc, qr, qi, qs, qg, ni, nr, nc,     &
       INTEGER, INTENT(IN) :: rand_perturb_on, kme_stoch, n_var_spp
       REAL, DIMENSION(:,:), INTENT(IN), OPTIONAL :: rand_pert
       REAL, DIMENSION(:), INTENT(IN), OPTIONAL :: spp_prt_list
-      REAL, DIMENSION(:), INTENT(IN) :: spp_stddev_cutoff
+      REAL, DIMENSION(:), INTENT(IN), OPTIONAL :: spp_stddev_cutoff
       CHARACTER(len=10), DIMENSION(:), INTENT(IN), OPTIONAL :: spp_var_list
       INTEGER, INTENT(IN):: has_reqc, has_reqi, has_reqs
 #if ( WRF_CHEM == 1 )

diff --git a/physics/MP/Thompson/mp_thompson.F90 b/physics/MP/Thompson/mp_thompson.F90
@@ -413,7 +413,7 @@ subroutine mp_thompson_run(ncol, nlev, con_g, con_rd,        &
          real(kind_phys),           intent(in), optional :: spp_wts_mp(:,:)
          real(kind_phys),           intent(in), optional :: spp_prt_list(:)
          character(len=10),         intent(in), optional :: spp_var_list(:)
-         real(kind_phys),           intent(in) :: spp_stddev_cutoff(:)
+         real(kind_phys),           intent(in), optional :: spp_stddev_cutoff(:)
 
          logical, intent (in) :: cplchm
          ! ice and liquid water 3d precipitation fluxes - only allocated if cplchm is .true.

diff --git a/physics/SFC_Models/Lake/CLM/clm_lake.f90 b/physics/SFC_Models/Lake/CLM/clm_lake.f90
@@ -5388,7 +5388,8 @@ SUBROUTINE lakeini(kdt,            ISLTYP,          gt0,             snowd,
 
   INTEGER, DIMENSION(IM), INTENT(IN)       :: ISLTYP
   REAL(KIND_PHYS),    DIMENSION(IM), INTENT(INOUT)    :: snowd,weasd
-  REAL(kind_phys),    DIMENSION(IM,KM), INTENT(IN)       :: gt0, prsi
+  REAL(kind_phys),    DIMENSION(IM,KM), INTENT(IN)       :: gt0
+  REAL(kind_phys),    DIMENSION(IM,KM+1), INTENT(IN)     :: prsi
   real(kind_phys),    intent(in)                                      :: lakedepth_default
 
   real(kind_phys),    dimension(IM),intent(inout)                      :: clm_lakedepth