7 ptstep, prn, ph, ple, plei, pgflux, &
8 pswd, pswu, plwd, plwu, pfmu, pfmv,&
38 USE yomhook
,ONLY : lhook, dr_hook
39 USE parkind1
,ONLY : jprb
48 REAL,
INTENT(IN) :: ptstep
49 REAL,
DIMENSION(:),
INTENT(IN) :: prn
50 REAL,
DIMENSION(:),
INTENT(IN) :: ph
51 REAL,
DIMENSION(:),
INTENT(IN) :: ple
52 REAL,
DIMENSION(:),
INTENT(IN) :: plei
53 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux
54 REAL,
DIMENSION(:),
INTENT(IN) :: pevap
55 REAL,
DIMENSION(:),
INTENT(IN) :: psubl
56 REAL,
DIMENSION(:),
INTENT(IN) :: pswd
57 REAL,
DIMENSION(:),
INTENT(IN) :: pswu
58 REAL,
DIMENSION(:),
INTENT(IN) :: plwd
59 REAL,
DIMENSION(:),
INTENT(IN) :: plwu
60 REAL,
DIMENSION(:),
INTENT(IN) :: pfmu
61 REAL,
DIMENSION(:),
INTENT(IN) :: pfmv
62 REAL(KIND=JPRB) :: zhook_handle
70 IF (lhook) CALL dr_hook(
'DIAG_SURF_BUDGETC_FLAKE',0,zhook_handle)
71 dgf%XSWDC(:) = dgf%XSWDC(:) + pswd(:) * ptstep
72 dgf%XSWUC(:) = dgf%XSWUC(:) + pswu(:) * ptstep
76 dgf%XLWDC(:) = dgf%XLWDC(:) + plwd(:) * ptstep
77 dgf%XLWUC(:) = dgf%XLWUC(:) + plwu(:) * ptstep
81 dgf%XRNC(:) = dgf%XRNC(:) + prn(:) * ptstep
85 dgf%XHC(:) = dgf%XHC(:) + ph(:) * ptstep
89 dgf%XLEC (:) = dgf%XLEC (:) + ple(:) * ptstep
90 dgf%XLEIC(:) = dgf%XLEIC(:) + plei(:) * ptstep
94 dgf%XEVAPC(:) = dgf%XEVAPC(:) + pevap(:) * ptstep
95 dgf%XSUBLC(:) = dgf%XSUBLC(:) + psubl(:) * ptstep
99 dgf%XGFLUXC(:) = dgf%XGFLUXC(:) + pgflux(:) * ptstep
103 dgf%XFMUC(:) = dgf%XFMUC(:) + pfmu(:) * ptstep
104 dgf%XFMVC(:) = dgf%XFMVC(:) + pfmv(:) * ptstep
106 IF (lhook) CALL dr_hook(
'DIAG_SURF_BUDGETC_FLAKE',1,zhook_handle)
subroutine diag_surf_budgetc_flake(DGF, PTSTEP, PRN, PH, PLE, PLEI, PGFLUX, PSWD, PSWU, PLWD, PLWU, PFMU, PFMV, PEVAP, PSUBL)