Skip to content

Commit 64d33d5

Browse files
committed
After rebase switching tab to spaces
1 parent cc25fdd commit 64d33d5

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

physics/SFC_Models/Land/RUC/module_sf_ruclsm.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1520,7 +1520,7 @@ SUBROUTINE SFCTMP (debug_print, delt,ktau,conflx,i,j, & !--- input varia
15201520
GSW,GSWnew,GLW,SOILT,EMISS,ALB,ALBice,SNWE
15211521
ENDIF
15221522

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

0 commit comments

Comments
 (0)