Skip to content

Commit

Permalink
Add short description to each routine in interface block
Browse files Browse the repository at this point in the history
Requested by @ekluzek
  • Loading branch information
billsacks committed Aug 4, 2019
1 parent b655a70 commit 3daf306
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions src/biogeophys/SnowCoverFractionMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand All @@ -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
Expand All @@ -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
Expand All @@ -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

Expand Down

0 comments on commit 3daf306

Please sign in to comment.