@@ -155,34 +155,64 @@ MODULE W3IDATMD
155
155
! /
156
156
! / Data structure INPUT
157
157
! /
158
- TYPE INPUT
159
- INTEGER :: TFN(2 ,- 7 :10 ), TC0(2 ), TW0(2 ), &
160
- TU0(2 ), TR0(2 ), TDN(2 ), TG0(2 )
161
- REAL :: GA0, GD0, GAN, GDN
158
+ TYPE, PUBLIC :: INPUT
159
+ INTEGER :: TFN(2 ,- 7 :10 )
160
+ INTEGER :: TC0(2 )
161
+ INTEGER :: TW0(2 )
162
+ INTEGER :: TU0(2 )
163
+ INTEGER :: TR0(2 )
164
+ INTEGER :: TDN(2 )
165
+ INTEGER :: TG0(2 )
166
+ REAL :: GA0
167
+ REAL :: GD0
168
+ REAL :: GAN
169
+ REAL :: GDN
162
170
#ifdef W3_WRST
163
- REAL , POINTER :: WXNwrst(:,:),WYNwrst(:,:)
171
+ REAL , POINTER :: WXNwrst(:,:)
172
+ REAL , POINTER :: WYNwrst(:,:)
164
173
#endif
165
- REAL , POINTER :: WX0(:,:), WY0(:,:), DT0(:,:), &
166
- WXN(:,:), WYN(:,:), DTN(:,:), &
167
- CX0(:,:), CY0(:,:), CXN(:,:), &
168
- CYN(:,:), WLEV(:,:), ICEI(:,:), &
169
- UX0(:,:), UY0(:,:), UXN(:,:), &
170
- UYN(:,:), RH0(:,:), RHN(:,:), &
171
- BERGI(:,:), MUDT(:,:), MUDV(:,:), &
172
- MUDD(:,:), ICEP1(:,:), ICEP2(:,:), &
173
- ICEP3(:,:), ICEP4(:,:), ICEP5(:,:)
174
+ REAL , POINTER :: WX0(:,:)
175
+ REAL , POINTER :: WY0(:,:)
176
+ REAL , POINTER :: DT0(:,:)
177
+ REAL , POINTER :: WXN(:,:)
178
+ REAL , POINTER :: WYN(:,:)
179
+ REAL , POINTER :: DTN(:,:)
180
+ REAL , POINTER :: CX0(:,:)
181
+ REAL , POINTER :: CY0(:,:)
182
+ REAL , POINTER :: CXN(:,:)
183
+ REAL , POINTER :: CYN(:,:)
184
+ REAL , POINTER :: WLEV(:,:)
185
+ REAL , POINTER :: ICEI(:,:)
186
+ REAL , POINTER :: UX0(:,:)
187
+ REAL , POINTER :: UY0(:,:)
188
+ REAL , POINTER :: UXN(:,:)
189
+ REAL , POINTER :: UYN(:,:)
190
+ REAL , POINTER :: RH0(:,:)
191
+ REAL , POINTER :: RHN(:,:)
192
+ REAL , POINTER :: BERGI(:,:)
193
+ REAL , POINTER :: MUDT(:,:)
194
+ REAL , POINTER :: MUDV(:,:)
195
+ REAL , POINTER :: MUDD(:,:)
196
+ REAL , POINTER :: ICEP1(:,:)
197
+ REAL , POINTER :: ICEP2(:,:)
198
+ REAL , POINTER :: ICEP3(:,:)
199
+ REAL , POINTER :: ICEP4(:,:)
200
+ REAL , POINTER :: ICEP5(:,:)
201
+
174
202
#ifdef W3_TIDE
175
- REAL , POINTER :: CXTIDE(:,:,:,:), CYTIDE(:,:,:,:), &
176
- WLTIDE(:,:,:,:)
203
+ REAL , POINTER :: CXTIDE(:,:,:,:)
204
+ REAL , POINTER :: CYTIDE(:,:,:,:)
205
+ REAL , POINTER :: WLTIDE(:,:,:,:)
177
206
#endif
178
- LOGICAL :: IINIT
207
+ LOGICAL :: IINIT
179
208
#ifdef W3_WRST
180
- LOGICAL :: WRSTIINIT= .FALSE.
209
+ LOGICAL :: WRSTIINIT= .FALSE.
181
210
#endif
182
211
! note that if size of INFLAGS1 is changed, then TFLAGS in wminitmd.ftn
183
212
! also must be resized.
184
- LOGICAL :: INFLAGS1(- 7 :14 ), FLAGSC(- 7 :14 ), &
185
- INFLAGS2(- 7 :14 )
213
+ LOGICAL :: INFLAGS1(- 7 :14 )
214
+ LOGICAL :: FLAGSC(- 7 :14 )
215
+ LOGICAL :: INFLAGS2(- 7 :14 )
186
216
END TYPE INPUT
187
217
! /
188
218
! / Data storage
0 commit comments