SNOW_FRAC_GROUND Function

  1. mode_surf_snow_frac.F90
  2. MODE_SURF_SNOW_FRAC
  3. SNOW_FRAC_GROUND

public function SNOW_FRAC_GROUND(PWSNOW) result(PPSNG)

Uses

Arguments

Type IntentOptional AttributesName
real, intent(in), DIMENSION(:):: PWSNOW

Return Value real, DIMENSION(SIZE(PWSNOW))


Contents

Source Code

SNOW_FRAC_GROUND

Source Code

      FUNCTION SNOW_FRAC_GROUND(PWSNOW) RESULT(PPSNG)
!     ###############################################
!
USE MODD_SNOW_PAR, ONLY : XWCRN
IMPLICIT NONE
!
REAL, DIMENSION(:), INTENT(IN)  :: PWSNOW ! snow amount over natural areas (kg/m2)
REAL, DIMENSION(SIZE(PWSNOW))   :: PPSNG  ! snow fraction over bare ground
REAL(KIND=JPRB) :: ZHOOK_HANDLE
!
IF (LHOOK) CALL DR_HOOK('MODE_SURF_SNOW_FRAC:SNOW_FRAC_GROUND',0,ZHOOK_HANDLE)
PPSNG(:) = PWSNOW(:) / (PWSNOW(:)+XWCRN)       ! fraction of ground covered
IF (LHOOK) CALL DR_HOOK('MODE_SURF_SNOW_FRAC:SNOW_FRAC_GROUND',1,ZHOOK_HANDLE)
!
END FUNCTION SNOW_FRAC_GROUND