From e222de4405d9343a956ab75c5145c86dfb283600 Mon Sep 17 00:00:00 2001
From: George Gayno <George.Gayno@noaa.gov>
Date: Fri, 5 Mar 2021 15:31:52 +0000
Subject: [PATCH] doxygen updates to ./global_cycle.fd/sfcsub.F

Fixes #191
Fixes #341
---
 sorc/global_cycle.fd/sfcsub.F | 37 ++++++++++++++++++-----------------
 1 file changed, 19 insertions(+), 18 deletions(-)

diff --git a/sorc/global_cycle.fd/sfcsub.F b/sorc/global_cycle.fd/sfcsub.F
index a52a1d1b8..748e812f6 100644
--- a/sorc/global_cycle.fd/sfcsub.F
+++ b/sorc/global_cycle.fd/sfcsub.F
@@ -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
@@ -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