7 ptstep,prain,psnow,psftq)
36 USE yomhook
,ONLY : lhook, dr_hook
37 USE parkind1
,ONLY : jprb
44 TYPE(flake_t),
INTENT(INOUT) :: f
46 REAL,
INTENT(IN) :: ptstep
47 REAL,
DIMENSION(:),
INTENT(IN) :: prain
48 REAL,
DIMENSION(:),
INTENT(IN) :: psnow
49 REAL,
DIMENSION(:),
INTENT(IN) :: psftq
53 REAL(KIND=JPRB) :: zhook_handle
55 IF (lhook) CALL dr_hook(
'DIAG_CPL_ESM_FLAKE',0,zhook_handle)
63 f%XCPL_FLAKE_EVAP(:) = f%XCPL_FLAKE_EVAP(:) + ptstep * psftq(:)
67 f%XCPL_FLAKE_RAIN(:) = f%XCPL_FLAKE_RAIN(:) + ptstep * prain(:)
68 f%XCPL_FLAKE_SNOW(:) = f%XCPL_FLAKE_SNOW(:) + ptstep * psnow(:)
70 IF (lhook) CALL dr_hook(
'DIAG_CPL_ESM_FLAKE',1,zhook_handle)
subroutine diag_cpl_esm_flake(F, PTSTEP, PRAIN, PSNOW, PSFTQ)