WSNOW_FROM_SNOW_FRAC_GROUND Function

  1. mode_surf_snow_frac.F90
  2. MODE_SURF_SNOW_FRAC
  3. WSNOW_FROM_SNOW_FRAC_GROUND

public function WSNOW_FROM_SNOW_FRAC_GROUND(PPSNG) result(PWSNOW)

Uses

Arguments

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

Return Value real, DIMENSION(SIZE(PPSNG))


Contents

Source Code

WSNOW_FROM_SNOW_FRAC_GROUND

Source Code

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