Skip to content

Commit

Permalink
After rebase switching tab to spaces
Browse files Browse the repository at this point in the history
  • Loading branch information
scrasmussen committed Dec 11, 2024
1 parent 6abaa2d commit add0661
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1520,7 +1520,7 @@ SUBROUTINE SFCTMP (debug_print, delt,ktau,conflx,i,j, & !--- input varia
GSW,GSWnew,GLW,SOILT,EMISS,ALB,ALBice,SNWE
ENDIF

if(snhei.gt.0.0081_kind_phys*rhowater/rhosn) then
if(snhei.gt.0.0081_kind_phys*rhowater/rhosn) then
!*** Update snow density for current temperature (Koren et al 1999,doi:10.1029/1999JD900232.)
BSN=delt/3600._kind_phys*c1sn*exp(0.08_kind_phys*min(zero,tsnav)-c2sn*rhosn*1.e-3_kind_phys)
if(bsn*snwe*100._kind_phys.lt.1.e-4_kind_phys) goto 777
Expand Down

0 comments on commit add0661

Please sign in to comment.