Skip to content

Commit

Permalink
doxygen updates to ./global_cycle.fd/sfcsub.F
Browse files Browse the repository at this point in the history
  • Loading branch information
GeorgeGayno-NOAA committed Mar 5, 2021
1 parent b704e63 commit e222de4
Showing 1 changed file with 19 additions and 18 deletions.
37 changes: 19 additions & 18 deletions sorc/global_cycle.fd/sfcsub.F
Original file line number Diff line number Diff line change
Expand Up @@ -4911,15 +4911,16 @@ subroutine rof01(aisfld,len,op,crit)
return
end
!> ???
!> Adjust skin temperature or SST for terrain.
!!
!! @param[in] tsfc
!! @param[in] orog
!! @param[in] slmask
!! @param[in] umask
!! @param[inout] tsfc Skin temperature/SST
!! @param[in] orog Orography height.
!! @param[in] slmask Model land-sea mask.
!! @param[in] umask When '0' adjust SST, when '1' adjust skin
!! temperature.
!! @param[in] len Number of model points to process.
!! @param[in] rlapse
!! @author M. Iredell, xuli, Hang Lei, George Gayno
!! @param[in] rlapse Standard atmospheric lapse rate.
!! @author Shrinivas Moorthi
subroutine tsfcor(tsfc,orog,slmask,umask,len,rlapse)
!
use machine , only : kind_io8,kind_io4
Expand All @@ -4936,20 +4937,20 @@ subroutine tsfcor(tsfc,orog,slmask,umask,len,rlapse)
return
end
!> ???
!> Estimate snow depth at glacial, land and sea ice points.
!!
!! @param[in] scvanl
!! @param[in] slianl
!! @param[in] tsfanl
!! @param[in] snoclm
!! @param[in] glacir
!! @param[in] snwmax
!! @param[in] snwmin
!! @param[in] landice
!! @param[in] scvanl Snow cover.
!! @param[in] slianl Land-sea-ice mask.
!! @param[in] tsfanl Skin temperature.
!! @param[in] snoclm Climatological snow depth.
!! @param[in] glacir Permanent glacial point when '1'.
!! @param[in] snwmax Maximum snow depth.
!! @param[in] snwmin Minimum snow depth.
!! @param[in] landice When true, point is permanent land ice.
!! @param[in] len Number of model points to process.
!! @param[in] snoanl
!! @param[out] snoanl Snow depth.
!! @param[in] me MPI task number.
!! @author M. Iredell, xuli, Hang Lei, George Gayno
!! @author Shrinivas Moorthi
subroutine snodpth(scvanl,slianl,tsfanl,snoclm,
& glacir,snwmax,snwmin,landice,len,snoanl, me)
use machine , only : kind_io8,kind_io4
Expand Down

0 comments on commit e222de4

Please sign in to comment.