7 ptstep, prn, ph, ple, ple_ice, pgflux,&
8 pswd, pswu, plwd, plwu, pfmu, pfmv, &
9 pevap, psubl, ohandle_sic, &
10 prn_ice, ph_ice, pgflux_ice, &
11 pswu_ice, plwu_ice, pfmu_ice, pfmv_ice)
41 USE yomhook
,ONLY : lhook, dr_hook
42 USE parkind1
,ONLY : jprb
51 REAL,
INTENT(IN) :: ptstep
52 REAL,
DIMENSION(:),
INTENT(IN) :: prn
53 REAL,
DIMENSION(:),
INTENT(IN) :: ph
54 REAL,
DIMENSION(:),
INTENT(IN) :: ple
55 REAL,
DIMENSION(:),
INTENT(IN) :: ple_ice
56 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux
57 REAL,
DIMENSION(:),
INTENT(IN) :: pevap
58 REAL,
DIMENSION(:),
INTENT(IN) :: psubl
59 REAL,
DIMENSION(:),
INTENT(IN) :: pswd
60 REAL,
DIMENSION(:),
INTENT(IN) :: pswu
61 REAL,
DIMENSION(:),
INTENT(IN) :: plwd
62 REAL,
DIMENSION(:),
INTENT(IN) :: plwu
63 REAL,
DIMENSION(:),
INTENT(IN) :: pfmu
64 REAL,
DIMENSION(:),
INTENT(IN) :: pfmv
66 LOGICAL,
INTENT(IN) :: ohandle_sic
68 REAL,
DIMENSION(:),
INTENT(IN) :: prn_ice
69 REAL,
DIMENSION(:),
INTENT(IN) :: ph_ice
70 REAL,
DIMENSION(:),
INTENT(IN) :: pgflux_ice
71 REAL,
DIMENSION(:),
INTENT(IN) :: pswu_ice
72 REAL,
DIMENSION(:),
INTENT(IN) :: plwu_ice
73 REAL,
DIMENSION(:),
INTENT(IN) :: pfmu_ice
74 REAL,
DIMENSION(:),
INTENT(IN) :: pfmv_ice
79 REAL(KIND=JPRB) :: zhook_handle
83 IF (lhook) CALL dr_hook(
'DIAG_SURF_BUDGETC_SEA',0,zhook_handle)
87 dgs%XSWDC(:) = dgs%XSWDC(:) + pswd(:) * ptstep
88 dgs%XSWUC(:) = dgs%XSWUC(:) + pswu(:) * ptstep
92 dgs%XLWDC(:) = dgs%XLWDC(:) + plwd(:) * ptstep
93 dgs%XLWUC(:) = dgs%XLWUC(:) + plwu(:) * ptstep
97 dgs%XRNC(:) = dgs%XRNC(:) + prn(:) * ptstep
101 dgs%XHC(:) = dgs%XHC(:) + ph(:) * ptstep
105 dgs%XLEC (:) = dgs%XLEC (:) + ple(:) * ptstep
106 dgs%XLEC_ICE(:) = dgs%XLEC_ICE(:) + ple_ice(:) * ptstep
110 dgs%XEVAPC(:) = dgs%XEVAPC(:) + pevap(:) * ptstep
111 dgs%XSUBLC(:) = dgs%XSUBLC(:) + psubl(:) * ptstep
115 dgs%XGFLUXC(:) = dgs%XGFLUXC(:) + pgflux(:) * ptstep
119 dgs%XFMUC(:) = dgs%XFMUC(:) + pfmu(:) * ptstep
120 dgs%XFMVC(:) = dgs%XFMVC(:) + pfmv(:) * ptstep
122 IF (ohandle_sic)
THEN
126 dgs%XSWUC_ICE(:) = dgs%XSWUC_ICE(:) + pswu_ice(:) * ptstep
130 dgs%XLWUC_ICE(:) = dgs%XLWUC_ICE(:) + plwu_ice(:) * ptstep
134 dgs%XRNC_ICE(:) = dgs%XRNC_ICE(:) + prn_ice(:) * ptstep
138 dgs%XHC_ICE(:) = dgs%XHC_ICE(:) + ph_ice(:) * ptstep
142 dgs%XGFLUXC_ICE(:) = dgs%XGFLUXC_ICE(:) + pgflux_ice(:) * ptstep
146 dgs%XFMUC_ICE(:) = dgs%XFMUC_ICE(:) + pfmu_ice(:) * ptstep
147 dgs%XFMVC_ICE(:) = dgs%XFMVC_ICE(:) + pfmv_ice(:) * ptstep
151 IF (lhook) CALL dr_hook(
'DIAG_SURF_BUDGETC_SEA',1,zhook_handle)
subroutine diag_surf_budgetc_sea(DGS, PTSTEP, PRN, PH, PLE, PLE_ICE, PGFLUX, PSWD, PSWU, PLWD, PLWU, PFMU, PFMV, PEVAP, PSUBL, OHANDLE_SIC, PRN_ICE, PH_ICE, PGFLUX_ICE, PSWU_ICE, PLWU_ICE, PFMU_ICE, PFMV_ICE)