7 plake_evap,plake_rain,plake_snow,plake_watf)
51 USE yomhook
,ONLY : lhook, dr_hook
52 USE parkind1
,ONLY : jprb
60 TYPE(flake_t),
INTENT(INOUT) :: f
63 REAL,
DIMENSION(:),
INTENT(OUT) :: plake_evap
64 REAL,
DIMENSION(:),
INTENT(OUT) :: plake_rain
65 REAL,
DIMENSION(:),
INTENT(OUT) :: plake_snow
66 REAL,
DIMENSION(:),
INTENT(OUT) :: plake_watf
71 REAL(KIND=JPRB) :: zhook_handle
74 IF (lhook) CALL dr_hook(
'GET_SFX_LAKE',0,zhook_handle)
80 plake_evap(:) = xundef
81 plake_rain(:) = xundef
82 plake_snow(:) = xundef
83 plake_watf(:) = xundef
88 IF(u%NSIZE_WATER>0)
THEN
90 CALL
unpack_same_rank(u%NR_WATER(:),f%XCPL_FLAKE_EVAP(:),plake_evap(:),xundef)
91 CALL
unpack_same_rank(u%NR_WATER(:),f%XCPL_FLAKE_RAIN(:),plake_rain(:),xundef)
92 CALL
unpack_same_rank(u%NR_WATER(:),f%XCPL_FLAKE_SNOW(:),plake_snow(:),xundef)
93 f%XCPL_FLAKE_EVAP(:) = 0.0
94 f%XCPL_FLAKE_RAIN(:) = 0.0
95 f%XCPL_FLAKE_SNOW(:) = 0.0
97 plake_watf(:) = plake_rain(:) + plake_snow(:) - plake_evap(:)
102 IF (lhook) CALL dr_hook(
'GET_SFX_LAKE',1,zhook_handle)
subroutine get_sfx_lake(F, U, PLAKE_EVAP, PLAKE_RAIN, PLAKE_SNOW, PLAKE_WATF)