SNOW_FRAC_NAT_1D Function

  1. mode_surf_snow_frac.F90
  2. MODE_SURF_SNOW_FRAC
  3. SNOW_FRAC_NAT_1D

public function SNOW_FRAC_NAT_1D(PWSNOW) result(BIDON)

Arguments

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

Return Value real


Contents

Source Code

SNOW_FRAC_NAT_1D

Source Code

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