SNOW_FRAC_VEG_2D Function

  1. mode_surf_snow_frac.F90
  2. MODE_SURF_SNOW_FRAC
  3. SNOW_FRAC_VEG_2D

public function SNOW_FRAC_VEG_2D(PWSNOW) result(BIDON)

Arguments

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

Return Value real


Contents

Source Code

SNOW_FRAC_VEG_2D

Source Code

      FUNCTION SNOW_FRAC_VEG_2D(PWSNOW) RESULT(BIDON)
!     ############################################################

REAL :: BIDON
REAL, DIMENSION(:), INTENT(IN)  :: PWSNOW ! snow amount over natural areas (kg/m2)
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (LHOOK) CALL DR_HOOK('MODE_SURF_SNOW_FRAC:SNOW_FRAC_VEG_2D',0,ZHOOK_HANDLE)
BIDON=PWSNOW(1)
IF (LHOOK) CALL DR_HOOK('MODE_SURF_SNOW_FRAC:SNOW_FRAC_VEG_2D',1,ZHOOK_HANDLE)
!
END FUNCTION SNOW_FRAC_VEG_2D