From 3a869a7bc320ea8616a83593fd042b824163ce84 Mon Sep 17 00:00:00 2001 From: George Gayno Date: Wed, 24 Feb 2021 22:01:08 +0000 Subject: [PATCH 1/2] Update doxygen for ./chgres_cube.fd/surface.F90 Fixes #281 --- sorc/chgres_cube.fd/surface.F90 | 20 +++++++++++++++++--- 1 file changed, 17 insertions(+), 3 deletions(-) diff --git a/sorc/chgres_cube.fd/surface.F90 b/sorc/chgres_cube.fd/surface.F90 index 19ff3feb2..f77d9aa64 100644 --- a/sorc/chgres_cube.fd/surface.F90 +++ b/sorc/chgres_cube.fd/surface.F90 @@ -11,7 +11,7 @@ !! associated with the target grid. "input" indicates field associated !! with the input grid. !! -!! @author gayno NCEP/EMC +!! @author George Gayno NCEP/EMC module surface use esmf @@ -133,10 +133,11 @@ module surface contains -!> @brief Driver routine to process surface/nst data +!> Driver routine to process surface/nst data !! -!! @author gayno NCEP/EMC +!! @param[in] localpet ESMF local persistent execution thread !! +!! @author George Gayno NCEP/EMC subroutine surface_driver(localpet) use input_data, only : cleanup_input_sfc_data, & @@ -292,6 +293,8 @@ end subroutine surface_driver !> Horizontally interpolate surface fields using esmf routines. !! +!! @param[in] localpet ESMF local persistent execution thread +!! !! @author George Gayno NOAA/EMC subroutine interp(localpet) @@ -3659,6 +3662,9 @@ subroutine adjust_soil_levels(localpet) end subroutine adjust_soil_levels !> Set roughness length at land and sea ice. +!! At land, roughness is set from a lookup table +!! based on the vegetation type. At sea ice, roughness is +!! set to 1 cm. !! !! @author George Gayno NOAA/EMC subroutine roughness @@ -4765,6 +4771,10 @@ subroutine ij_to_i_j(ij, itile, jtile, i, j) end subroutine ij_to_i_j +!> Free up memory once the target grid surface fields are +!! no longer needed. +!! +!! @author George Gayno NOAA/EMC subroutine cleanup_target_sfc_data implicit none @@ -4797,6 +4807,10 @@ subroutine cleanup_target_sfc_data end subroutine cleanup_target_sfc_data +!> Free up memory once the target grid nst fields are +!! no longer needed. +!! +!! @author George Gayno NOAA/EMC subroutine cleanup_target_nst_data implicit none From e4b30bd7b945de558b7eff08c0ce28c35ffd0d8c Mon Sep 17 00:00:00 2001 From: George Gayno Date: Thu, 25 Feb 2021 16:00:15 +0000 Subject: [PATCH 2/2] Minor doxygen updates to ./chgres_cube.fd/surface.F90 Fixes #281 --- sorc/chgres_cube.fd/surface.F90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/sorc/chgres_cube.fd/surface.F90 b/sorc/chgres_cube.fd/surface.F90 index f77d9aa64..d31727b49 100644 --- a/sorc/chgres_cube.fd/surface.F90 +++ b/sorc/chgres_cube.fd/surface.F90 @@ -20,8 +20,11 @@ module surface private -! noah land ice option is applied at these vegetation types. integer, parameter :: veg_type_landice_target = 15 + !< Vegetation type category that + !< defines permanent land ice points. + !< The Noah LSM land ice physics + !< are applied at these points. ! surface fields (not including nst) type(esmf_field), public :: canopy_mc_target_grid