205 |
print *, 'pathei: nWetiGlobal ', |
print *, 'pathei: nWetiGlobal ', |
206 |
& (nWetiGlobal(k), k=1,nr) |
& (nWetiGlobal(k), k=1,nr) |
207 |
#endif |
#endif |
208 |
|
#ifdef ALLOW_OBCSN_CONTROL |
209 |
|
do iobcs=1,nobcs |
210 |
|
print *, 'pathei: nWetobcsnGlo (iobcs=', iobcs,')', |
211 |
|
& (nWetobcsnGlo(k,iobcs), k=1,nr) |
212 |
|
enddo |
213 |
|
#endif |
214 |
|
#ifdef ALLOW_OBCSS_CONTROL |
215 |
|
do iobcs=1,nobcs |
216 |
|
print *, 'pathei: nWetobcssGlo (iobcs=', iobcs,')', |
217 |
|
& (nWetobcssGlo(k,iobcs), k=1,nr) |
218 |
|
enddo |
219 |
|
#endif |
220 |
|
#ifdef ALLOW_OBCSW_CONTROL |
221 |
|
do iobcs=1,nobcs |
222 |
|
print *, 'pathei: nWetobcswGlo (iobcs=', iobcs,')', |
223 |
|
& (nWetobcswGlo(k,iobcs), k=1,nr) |
224 |
|
enddo |
225 |
|
#endif |
226 |
|
#ifdef ALLOW_OBCSE_CONTROL |
227 |
|
do iobcs=1,nobcs |
228 |
|
print *, 'pathei: nWetobcseGlo (iobcs=', iobcs,')', |
229 |
|
& (nWetobcseGlo(k,iobcs), k=1,nr) |
230 |
|
enddo |
231 |
|
#endif |
232 |
print *, 'pathei: ncvarindex ', |
print *, 'pathei: ncvarindex ', |
233 |
& (ncvarindex(i), i=1,maxcvars) |
& (ncvarindex(i), i=1,maxcvars) |
234 |
print *, 'pathei: ncvarrecs ', |
print *, 'pathei: ncvarrecs ', |