Skip to content

Commit

Permalink
Bug fixes in Thompson MP and CLM Lake found by Dusan
Browse files Browse the repository at this point in the history
  • Loading branch information
climbfuji committed Jun 3, 2024
1 parent e176e67 commit 4ed1b4f
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 3 deletions.
2 changes: 1 addition & 1 deletion physics/MP/Thompson/module_mp_thompson.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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 )
Expand Down
2 changes: 1 addition & 1 deletion physics/MP/Thompson/mp_thompson.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down
3 changes: 2 additions & 1 deletion physics/SFC_Models/Lake/CLM/clm_lake.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit 4ed1b4f

Please sign in to comment.