SNOW_FRAC_GROUND_2D Function

public function SNOW_FRAC_GROUND_2D(PWSNOW) result(BIDON)

Arguments

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

Return Value real


Contents

Source Code


Source Code

      FUNCTION SNOW_FRAC_GROUND_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_GROUND_2D',0,ZHOOK_HANDLE)
BIDON=PWSNOW(1)
IF (LHOOK) CALL DR_HOOK('MODE_SURF_SNOW_FRAC:SNOW_FRAC_GROUND_2D',1,ZHOOK_HANDLE)

!
END FUNCTION SNOW_FRAC_GROUND_2D