36 USE yomhook
,ONLY : lhook, dr_hook
37 USE parkind1
,ONLY : jprb
49 LOGICAL :: LSURF_BUDGET
50 LOGICAL :: LRAD_BUDGET
53 LOGICAL :: LSURF_BUDGETC
54 LOGICAL :: LRESET_BUDGETC
58 REAL,
POINTER,
DIMENSION(:) :: XRI
59 REAL,
POINTER,
DIMENSION(:) :: XCD
60 REAL,
POINTER,
DIMENSION(:) :: XCH
61 REAL,
POINTER,
DIMENSION(:) :: XCE
62 REAL,
POINTER,
DIMENSION(:) :: XZ0
63 REAL,
POINTER,
DIMENSION(:) :: XZ0H
64 REAL,
POINTER,
DIMENSION(:) :: XRN
65 REAL,
POINTER,
DIMENSION(:) :: XH
66 REAL,
POINTER,
DIMENSION(:) :: XLE
67 REAL,
POINTER,
DIMENSION(:) :: XLEI
68 REAL,
POINTER,
DIMENSION(:) :: XGFLUX
69 REAL,
POINTER,
DIMENSION(:) :: XEVAP
70 REAL,
POINTER,
DIMENSION(:) :: XSUBL
71 REAL,
POINTER,
DIMENSION(:) :: XT2M
72 REAL,
POINTER,
DIMENSION(:) :: XT2M_MIN
73 REAL,
POINTER,
DIMENSION(:) :: XT2M_MAX
74 REAL,
POINTER,
DIMENSION(:) :: XQ2M
75 REAL,
POINTER,
DIMENSION(:) :: XHU2M
76 REAL,
POINTER,
DIMENSION(:) :: XHU2M_MIN
77 REAL,
POINTER,
DIMENSION(:) :: XHU2M_MAX
78 REAL,
POINTER,
DIMENSION(:) :: XQS
79 REAL,
POINTER,
DIMENSION(:) :: XZON10M
80 REAL,
POINTER,
DIMENSION(:) :: XMER10M
81 REAL,
POINTER,
DIMENSION(:) :: XWIND10M
82 REAL,
POINTER,
DIMENSION(:) :: XWIND10M_MAX
83 REAL,
POINTER,
DIMENSION(:) :: XLWD
84 REAL,
POINTER,
DIMENSION(:) :: XLWU
85 REAL,
POINTER,
DIMENSION(:) :: XSWD
86 REAL,
POINTER,
DIMENSION(:) :: XSWU
87 REAL,
POINTER,
DIMENSION(:,:) :: XSWBD
88 REAL,
POINTER,
DIMENSION(:,:) :: XSWBU
89 REAL,
POINTER,
DIMENSION(:) :: XFMU
90 REAL,
POINTER,
DIMENSION(:) :: XFMV
91 REAL,
POINTER,
DIMENSION(:) :: XDIAG_TS
95 REAL,
POINTER,
DIMENSION(:) :: XRNC
96 REAL,
POINTER,
DIMENSION(:) :: XHC
97 REAL,
POINTER,
DIMENSION(:) :: XLEC
98 REAL,
POINTER,
DIMENSION(:) :: XLEIC
99 REAL,
POINTER,
DIMENSION(:) :: XGFLUXC
100 REAL,
POINTER,
DIMENSION(:) :: XEVAPC
101 REAL,
POINTER,
DIMENSION(:) :: XSUBLC
102 REAL,
POINTER,
DIMENSION(:) :: XLWDC
103 REAL,
POINTER,
DIMENSION(:) :: XLWUC
104 REAL,
POINTER,
DIMENSION(:) :: XSWDC
105 REAL,
POINTER,
DIMENSION(:) :: XSWUC
106 REAL,
POINTER,
DIMENSION(:) :: XFMUC
107 REAL,
POINTER,
DIMENSION(:) :: XFMVC
125 REAL(KIND=JPRB) :: zhook_handle
126 IF (lhook) CALL dr_hook(
"MODD_DIAG_WATFLUX_N:DIAG_WATFLUX_INIT",0,zhook_handle)
127 nullify(ydiag_watflux%XRI)
128 nullify(ydiag_watflux%XCD)
129 nullify(ydiag_watflux%XCH)
130 nullify(ydiag_watflux%XCE)
131 nullify(ydiag_watflux%XZ0)
132 nullify(ydiag_watflux%XZ0H)
133 nullify(ydiag_watflux%XRN)
134 nullify(ydiag_watflux%XH)
135 nullify(ydiag_watflux%XLE)
136 nullify(ydiag_watflux%XLEI)
137 nullify(ydiag_watflux%XGFLUX)
138 nullify(ydiag_watflux%XEVAP)
139 nullify(ydiag_watflux%XSUBL)
140 nullify(ydiag_watflux%XT2M)
141 nullify(ydiag_watflux%XT2M_MIN)
142 nullify(ydiag_watflux%XT2M_MAX)
143 nullify(ydiag_watflux%XQ2M)
144 nullify(ydiag_watflux%XHU2M)
145 nullify(ydiag_watflux%XHU2M_MIN)
146 nullify(ydiag_watflux%XHU2M_MAX)
147 nullify(ydiag_watflux%XQS)
148 nullify(ydiag_watflux%XZON10M)
149 nullify(ydiag_watflux%XMER10M)
150 nullify(ydiag_watflux%XWIND10M)
151 nullify(ydiag_watflux%XWIND10M_MAX)
152 nullify(ydiag_watflux%XLWD)
153 nullify(ydiag_watflux%XLWU)
154 nullify(ydiag_watflux%XSWD)
155 nullify(ydiag_watflux%XSWU)
156 nullify(ydiag_watflux%XSWBD)
157 nullify(ydiag_watflux%XSWBU)
158 nullify(ydiag_watflux%XFMU)
159 nullify(ydiag_watflux%XFMV)
160 nullify(ydiag_watflux%XDIAG_TS)
161 nullify(ydiag_watflux%XRNC)
162 nullify(ydiag_watflux%XHC)
163 nullify(ydiag_watflux%XLEC)
164 nullify(ydiag_watflux%XLEIC)
165 nullify(ydiag_watflux%XGFLUXC)
166 nullify(ydiag_watflux%XEVAPC)
167 nullify(ydiag_watflux%XSUBLC)
168 nullify(ydiag_watflux%XLWDC)
169 nullify(ydiag_watflux%XLWUC)
170 nullify(ydiag_watflux%XSWDC)
171 nullify(ydiag_watflux%XSWUC)
172 nullify(ydiag_watflux%XFMUC)
173 nullify(ydiag_watflux%XFMVC)
174 ydiag_watflux%XDIAG_TSTEP=0.
176 ydiag_watflux%L2M_MIN_ZS=.false.
177 ydiag_watflux%LSURF_BUDGET=.false.
178 ydiag_watflux%LRAD_BUDGET=.false.
179 ydiag_watflux%LCOEF=.false.
180 ydiag_watflux%LSURF_VARS=.false.
181 ydiag_watflux%LSURF_BUDGETC=.false.
182 ydiag_watflux%LRESET_BUDGETC=.false.
183 IF (lhook) CALL dr_hook(
"MODD_DIAG_WATFLUX_N:DIAG_WATFLUX_INIT",1,zhook_handle)
subroutine diag_watflux_init(YDIAG_WATFLUX)