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_WATER',0,zhook_handle)
71 dgw%XSWDC(:) = dgw%XSWDC(:) + pswd(:) * ptstep
72 dgw%XSWUC(:) = dgw%XSWUC(:) + pswu(:) * ptstep
76 dgw%XLWDC(:) = dgw%XLWDC(:) + plwd(:) * ptstep
77 dgw%XLWUC(:) = dgw%XLWUC(:) + plwu(:) * ptstep
81 dgw%XRNC(:) = dgw%XRNC(:) + prn(:) * ptstep
85 dgw%XHC(:) = dgw%XHC(:) + ph(:) * ptstep
89 dgw%XLEC (:) = dgw%XLEC (:) + ple(:) * ptstep
90 dgw%XLEIC(:) = dgw%XLEIC(:) + plei(:) * ptstep
94 dgw%XEVAPC(:) = dgw%XEVAPC(:) + pevap(:) * ptstep
95 dgw%XSUBLC(:) = dgw%XSUBLC(:) + psubl(:) * ptstep
99 dgw%XGFLUXC(:) = dgw%XGFLUXC(:) + pgflux(:) * ptstep
103 dgw%XFMUC(:) = dgw%XFMUC(:) + pfmu(:) * ptstep
104 dgw%XFMVC(:) = dgw%XFMVC(:) + pfmv(:) * ptstep
106 IF (lhook) CALL dr_hook(
'DIAG_SURF_BUDGETC_WATER',1,zhook_handle)
subroutine diag_surf_budgetc_water(DGW, PTSTEP, PRN, PH, PLE, PLEI, PGFLUX, PSWD, PSWU, PLWD, PLWU, PFMU, PFMV, PEVAP, PSUBL)