Skip to content

Commit

Permalink
Merge pull request #217 from haiqinli/production/RRFS.v1-fms-ruc
Browse files Browse the repository at this point in the history
[production/RRFS.v1] update deep soil temperature of RUC LSM
  • Loading branch information
dustinswales authored Jul 3, 2024
2 parents 2d590da + 7d1a689 commit 4128e06
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1077,8 +1077,6 @@ SUBROUTINE LSMRUC(xlat,xlon, &
tso(i,k,j) = tso1d(k)
enddo

tso(i,nzs,j) = tbot(i,j)

do k=1,nzs
smfr3d(i,k,j) = smfrkeep(k)
keepfr3dflag(i,k,j) = keepfr (k)
Expand All @@ -1104,8 +1102,10 @@ SUBROUTINE LSMRUC(xlat,xlon, &
if(snow(i,j)==zero) EMISSL(i,j) = EMISBCK(i,j)
EMISS (I,J) = EMISSL(I,J)
! SNOW is in [mm], SNWE is in [m]; CANWAT is in mm, CANWATR is in m
SNOW (i,j) = SNWE*1000._kind_phys
SNOWH (I,J) = SNHEI
!-- 17 may 2024 - cap snow for points at high elevations where all year round skin temperatures are close to 0 C
!-- Snow density for these points will be 3000/7.5=400 [kg/m^3]
SNOW (i,j) = min(3._kind_phys,SNWE)*1000._kind_phys ! cap to be < 3 m
SNOWH (I,J) = min(7.5_kind_phys,SNHEI) ! cap to be < 7.5 m
CANWAT (I,J) = CANWATR*1000._kind_phys

if (debug_print) then
Expand Down

0 comments on commit 4128e06

Please sign in to comment.