Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
21 changes: 3 additions & 18 deletions sorc/global_cycle.fd/sfcsub.F
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
!> @file
!! @brief This is a limited point version of surface program.
!! @author M. Iredell, xuli, Hang Lei, George Gayno
C> @file
C> @brief This is a limited point version of surface program.
C> @author Shrinivas Moorthi Mark Iredell NOAA/EMC

!> This program runs in two different modes:
!!
Expand Down Expand Up @@ -3859,18 +3859,14 @@ subroutine filanl(tsfanl,tsfan2,wetanl,snoanl,zoranl,albanl,
& tg3anl,cvanl ,cvbanl,cvtanl,
& cnpanl,smcanl,stcanl,slianl,scvanl,veganl,
& vetanl,sotanl,alfanl,
!cwu [+1l] add ()anl for sih, sic
& sihanl,sicanl,
!clu [+1l] add ()anl for vmn, vmx, slp, abs
& vmnanl,vmxanl,slpanl,absanl,
& tsfclm,tsfcl2,wetclm,snoclm,zorclm,albclm,
& aisclm,
& tg3clm,cvclm ,cvbclm,cvtclm,
& cnpclm,smcclm,stcclm,sliclm,scvclm,vegclm,
& vetclm,sotclm,alfclm,
!cwu [+1l] add ()clm for sih, sic
& sihclm,sicclm,
!clu [+1l] add ()clm for vmn, vmx, slp, abs
& vmnclm,vmxclm,slpclm,absclm,
& len,lsoil)
use machine , only : kind_io8,kind_io4
Expand Down Expand Up @@ -4082,25 +4078,19 @@ subroutine analy(lugb,iy,im,id,ih,fh,len,lsoil,
& slmask,fntsfa,fnweta,fnsnoa,fnzora,fnalba,fnaisa,
& fntg3a,fnscva,fnsmca,fnstca,fnacna,fnvega,
& fnveta,fnsota,
!clu [+1l] add fn()a for vmn, vmx, slp, abs
& fnvmna,fnvmxa,fnslpa,fnabsa,
& tsfanl,wetanl,snoanl,zoranl,albanl,aisanl,
& tg3anl,cvanl ,cvbanl,cvtanl,
& smcanl,stcanl,slianl,scvanl,acnanl,veganl,
& vetanl,sotanl,alfanl,tsfan0,
!clu [+1l] add ()anl for vmn, vmx, slp, abs
& vmnanl,vmxanl,slpanl,absanl,
!cggg snow mods start & kpdtsf,kpdwet,kpdsno,kpdzor,kpdalb,kpdais,
& kpdtsf,kpdwet,kpdsno,kpdsnd,kpdzor,kpdalb,kpdais,
!cggg snow mods end
& kpdtg3,kpdscv,kpdacn,kpdsmc,kpdstc,kpdveg,
& kprvet,kpdsot,kpdalf,
!clu [+1l] add kpd() for vmn, vmx, slp, abs
& kpdvmn,kpdvmx,kpdslp,kpdabs,
& irttsf,irtwet,irtsno,irtzor,irtalb,irtais,
& irttg3,irtscv,irtacn,irtsmc,irtstc,irtveg,
& irtvet,irtsot,irtalf
!clu [+1l] add irt() for vmn, vmx, slp, abs
&, irtvmn,irtvmx,irtslp,irtabs
&, imsk, jmsk, slmskh, outlat, outlon
&, gaus, blno, blto, me, lanom)
Expand Down Expand Up @@ -4803,17 +4793,13 @@ subroutine filfcs(tsffcs,wetfcs,snofcs,zorfcs,albfcs,
& tg3fcs,cvfcs ,cvbfcs,cvtfcs,
& cnpfcs,smcfcs,stcfcs,slifcs,aisfcs,
& vegfcs, vetfcs, sotfcs, alffcs,
!cwu [+1l] add ()fcs for sih, sic
& sihfcs,sicfcs,
!clu [+1l] add ()fcs for vmn, vmx, slp, abs
& vmnfcs,vmxfcs,slpfcs,absfcs,
& tsfanl,wetanl,snoanl,zoranl,albanl,
& tg3anl,cvanl ,cvbanl,cvtanl,
& cnpanl,smcanl,stcanl,slianl,aisanl,
& veganl, vetanl, sotanl, alfanl,
!cwu [+1l] add ()anl for sih, sic
& sihanl,sicanl,
!clu [+1l] add ()anl for vmn, vmx, slp, abs
& vmnanl,vmxanl,slpanl,absanl,
& len,lsoil)
!
Expand Down Expand Up @@ -5686,7 +5672,6 @@ end subroutine merge
!! @author Shrinivas Moorthi
!! @author Xingen Wu
subroutine newice(slianl,slifcs,tsfanl,tsffcs,len,lsoil,
!cwu [+1l] add sihnew,sicnew,sihanl,sicanl
& sihnew,sicnew,sihanl,sicanl,
& albanl,snoanl,zoranl,smcanl,stcanl,
& albsea,snosea,zorsea,smcsea,smcice,
Expand Down