7 pswd, pswu, plwd, plwu, pfmu, pfmv,&
34 USE yomhook
,ONLY : lhook, dr_hook
35 USE parkind1
,ONLY : jprb
43 REAL,
INTENT(IN) :: ptstep
44 REAL,
DIMENSION(:),
INTENT(IN) :: prn
45 REAL,
DIMENSION(:),
INTENT(IN) :: ph
46 REAL,
DIMENSION(:),
INTENT(IN) :: ple
47 REAL,
DIMENSION(:),
INTENT(IN) :: plei
48 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux
49 REAL,
DIMENSION(:),
INTENT(IN) :: pevap
50 REAL,
DIMENSION(:),
INTENT(IN) :: psubl
51 REAL,
DIMENSION(:),
INTENT(IN) :: pswd
52 REAL,
DIMENSION(:),
INTENT(IN) :: pswu
53 REAL,
DIMENSION(:),
INTENT(IN) :: plwd
54 REAL,
DIMENSION(:),
INTENT(IN) :: plwu
55 REAL,
DIMENSION(:),
INTENT(IN) :: pfmu
56 REAL,
DIMENSION(:),
INTENT(IN) :: pfmv
57 REAL(KIND=JPRB) :: zhook_handle
65 IF (lhook) CALL dr_hook(
'DIAG_SURF_BUDGETC_IDEAL',0,zhook_handle)
66 dgl%XSWDC(:) = dgl%XSWDC(:) + pswd(:) * ptstep
67 dgl%XSWUC(:) = dgl%XSWUC(:) + pswu(:) * ptstep
71 dgl%XLWDC(:) = dgl%XLWDC(:) + plwd(:) * ptstep
72 dgl%XLWUC(:) = dgl%XLWUC(:) + plwu(:) * ptstep
76 dgl%XRNC(:) = dgl%XRNC(:) + prn(:) * ptstep
80 dgl%XHC(:) = dgl%XHC(:) + ph(:) * ptstep
84 dgl%XLEC (:) = dgl%XLEC (:) + ple(:) * ptstep
85 dgl%XLEIC(:) = dgl%XLEIC(:) + plei(:) * ptstep
89 dgl%XEVAPC(:) = dgl%XEVAPC(:) + pevap(:) * ptstep
90 dgl%XSUBLC(:) = dgl%XSUBLC(:) + psubl(:) * ptstep
94 dgl%XGFLUXC(:) = dgl%XGFLUXC(:) + pgflux(:) * ptstep
98 dgl%XFMUC(:) = dgl%XFMUC(:) + pfmu(:) * ptstep
99 dgl%XFMVC(:) = dgl%XFMVC(:) + pfmv(:) * ptstep
101 IF (lhook) CALL dr_hook(
'DIAG_SURF_BUDGETC_IDEAL',1,zhook_handle)
subroutine diag_surf_budgetc_ideal(DGL, PTSTEP, PRN, PH, PLE, PLEI, PGFLUX, PSWD, PSWU, PLWD, PLWU, PFMU, PFMV, PEVAP, PSUBL)