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
92 REAL,
POINTER,
DIMENSION(:) :: XALBT
93 REAL,
POINTER,
DIMENSION(:) :: XSWE
97 REAL,
POINTER,
DIMENSION(:) :: XRNC
98 REAL,
POINTER,
DIMENSION(:) :: XHC
99 REAL,
POINTER,
DIMENSION(:) :: XLEC
100 REAL,
POINTER,
DIMENSION(:) :: XLEIC
101 REAL,
POINTER,
DIMENSION(:) :: XGFLUXC
102 REAL,
POINTER,
DIMENSION(:) :: XEVAPC
103 REAL,
POINTER,
DIMENSION(:) :: XSUBLC
104 REAL,
POINTER,
DIMENSION(:) :: XLWDC
105 REAL,
POINTER,
DIMENSION(:) :: XLWUC
106 REAL,
POINTER,
DIMENSION(:) :: XSWDC
107 REAL,
POINTER,
DIMENSION(:) :: XSWUC
108 REAL,
POINTER,
DIMENSION(:) :: XFMUC
109 REAL,
POINTER,
DIMENSION(:) :: XFMVC
127 REAL(KIND=JPRB) :: zhook_handle
128 IF (lhook) CALL dr_hook(
"MODD_DIAG_IDEAL_N:DIAG_IDEAL_INIT",0,zhook_handle)
129 nullify(ydiag_ideal%XRI)
130 nullify(ydiag_ideal%XCD)
131 nullify(ydiag_ideal%XCH)
132 nullify(ydiag_ideal%XCE)
133 nullify(ydiag_ideal%XZ0)
134 nullify(ydiag_ideal%XZ0H)
135 nullify(ydiag_ideal%XRN)
136 nullify(ydiag_ideal%XH)
137 nullify(ydiag_ideal%XLE)
138 nullify(ydiag_ideal%XLEI)
139 nullify(ydiag_ideal%XGFLUX)
140 nullify(ydiag_ideal%XEVAP)
141 nullify(ydiag_ideal%XSUBL)
142 nullify(ydiag_ideal%XT2M)
143 nullify(ydiag_ideal%XT2M_MIN)
144 nullify(ydiag_ideal%XT2M_MAX)
145 nullify(ydiag_ideal%XQ2M)
146 nullify(ydiag_ideal%XHU2M)
147 nullify(ydiag_ideal%XHU2M_MIN)
148 nullify(ydiag_ideal%XHU2M_MAX)
149 nullify(ydiag_ideal%XQS)
150 nullify(ydiag_ideal%XZON10M)
151 nullify(ydiag_ideal%XMER10M)
152 nullify(ydiag_ideal%XWIND10M)
153 nullify(ydiag_ideal%XWIND10M_MAX)
154 nullify(ydiag_ideal%XLWD)
155 nullify(ydiag_ideal%XLWU)
156 nullify(ydiag_ideal%XSWD)
157 nullify(ydiag_ideal%XSWU)
158 nullify(ydiag_ideal%XSWBD)
159 nullify(ydiag_ideal%XSWBU)
160 nullify(ydiag_ideal%XFMU)
161 nullify(ydiag_ideal%XFMV)
162 nullify(ydiag_ideal%XDIAG_TS)
163 nullify(ydiag_ideal%XALBT)
164 nullify(ydiag_ideal%XSWE)
165 nullify(ydiag_ideal%XRNC)
166 nullify(ydiag_ideal%XHC)
167 nullify(ydiag_ideal%XLEC)
168 nullify(ydiag_ideal%XLEIC)
169 nullify(ydiag_ideal%XGFLUXC)
170 nullify(ydiag_ideal%XEVAPC)
171 nullify(ydiag_ideal%XSUBLC)
172 nullify(ydiag_ideal%XLWDC)
173 nullify(ydiag_ideal%XLWUC)
174 nullify(ydiag_ideal%XSWDC)
175 nullify(ydiag_ideal%XSWUC)
176 nullify(ydiag_ideal%XFMUC)
177 nullify(ydiag_ideal%XFMVC)
178 ydiag_ideal%XDIAG_TSTEP=0.
180 ydiag_ideal%L2M_MIN_ZS=.false.
181 ydiag_ideal%LSURF_BUDGET=.false.
182 ydiag_ideal%LRAD_BUDGET=.false.
183 ydiag_ideal%LCOEF=.false.
184 ydiag_ideal%LSURF_VARS=.false.
185 ydiag_ideal%LSURF_BUDGETC=.false.
186 ydiag_ideal%LRESET_BUDGETC=.false.
187 IF (lhook) CALL dr_hook(
"MODD_DIAG_IDEAL_N:DIAG_IDEAL_INIT",1,zhook_handle)
subroutine diag_ideal_init(YDIAG_IDEAL)