From 3daf3066ae8ae4833b0dbb248a461052dfbcc5b6 Mon Sep 17 00:00:00 2001 From: Bill Sacks Date: Sat, 3 Aug 2019 20:18:28 -0600 Subject: [PATCH] Add short description to each routine in interface block Requested by @ekluzek --- src/biogeophys/SnowCoverFractionMod.F90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/biogeophys/SnowCoverFractionMod.F90 b/src/biogeophys/SnowCoverFractionMod.F90 index dfe83100a4..bfc8d7389d 100644 --- a/src/biogeophys/SnowCoverFractionMod.F90 +++ b/src/biogeophys/SnowCoverFractionMod.F90 @@ -49,6 +49,7 @@ module SnowCoverFractionMod abstract interface subroutine Init_Interface(this, bounds, col, glc_behavior, NLFilename, params_ncid) + ! Initialize this instance use decompMod, only : bounds_type use ColumnType, only : column_type use glcBehaviorMod, only : glc_behavior_type @@ -66,6 +67,7 @@ end subroutine Init_Interface subroutine UpdateSnowDepthAndFrac_Interface(this, bounds, num_c, filter_c, & urbpoi, h2osno_total, snowmelt, int_snow, newsnow, bifall, & snow_depth, frac_sno) + ! Update snow depth and snow fraction use decompMod, only : bounds_type use shr_kind_mod , only : r8 => shr_kind_r8 import :: snow_cover_fraction_type @@ -89,6 +91,7 @@ end subroutine UpdateSnowDepthAndFrac_Interface subroutine AddNewsnowToIntsnow_Interface(this, bounds, num_c, filter_c, & newsnow, h2osno_total, frac_sno, & int_snow) + ! Add new snow to integrated snow fall use decompMod, only : bounds_type use shr_kind_mod , only : r8 => shr_kind_r8 import :: snow_cover_fraction_type @@ -105,6 +108,7 @@ subroutine AddNewsnowToIntsnow_Interface(this, bounds, num_c, filter_c, & end subroutine AddNewsnowToIntsnow_Interface pure function FracSnowDuringMelt_Interface(this, c, h2osno_total, int_snow) result(frac_sno) + ! Single-point function: return fractional snow cover during melt use shr_kind_mod , only : r8 => shr_kind_r8 import :: snow_cover_fraction_type