222 |
IF ( useStevensNorth ) THEN |
IF ( useStevensNorth ) THEN |
223 |
WRITE(fn,'(2A)') 'pickup_stevensN.',suff |
WRITE(fn,'(2A)') 'pickup_stevensN.',suff |
224 |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
225 |
|
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNtStevens, 2,myIter,myThid) |
226 |
|
CALL READ_REC_XZ_RL(fn,prec,Nr,OBNsStevens, 3,myIter,myThid) |
227 |
ENDIF |
ENDIF |
228 |
#endif /* ALLOW_OBCS_NORTH */ |
#endif /* ALLOW_OBCS_NORTH */ |
229 |
|
|
231 |
IF ( useStevensSouth ) THEN |
IF ( useStevensSouth ) THEN |
232 |
WRITE(fn,'(2A)') 'pickup_stevensS.',suff |
WRITE(fn,'(2A)') 'pickup_stevensS.',suff |
233 |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
CALL READ_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
234 |
|
CALL READ_REC_XZ_RL(fn,prec,Nr,OBStStevens, 2,myIter,myThid) |
235 |
|
CALL READ_REC_XZ_RL(fn,prec,Nr,OBSsStevens, 3,myIter,myThid) |
236 |
ENDIF |
ENDIF |
237 |
#endif /* ALLOW_OBCS_SOUTH */ |
#endif /* ALLOW_OBCS_SOUTH */ |
238 |
|
|
240 |
IF ( useStevensEast ) THEN |
IF ( useStevensEast ) THEN |
241 |
WRITE(fn,'(2A)') 'pickup_stevensE.',suff |
WRITE(fn,'(2A)') 'pickup_stevensE.',suff |
242 |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
243 |
|
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEtStevens, 2,myIter,myThid) |
244 |
|
CALL READ_REC_YZ_RL(fn,prec,Nr,OBEsStevens, 3,myIter,myThid) |
245 |
ENDIF |
ENDIF |
246 |
#endif /* ALLOW_OBCS_EAST */ |
#endif /* ALLOW_OBCS_EAST */ |
247 |
|
|
249 |
IF ( useStevensWest ) THEN |
IF ( useStevensWest ) THEN |
250 |
WRITE(fn,'(2A)') 'pickup_stevensW.',suff |
WRITE(fn,'(2A)') 'pickup_stevensW.',suff |
251 |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
252 |
|
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWtStevens, 2,myIter,myThid) |
253 |
|
CALL READ_REC_YZ_RL(fn,prec,Nr,OBWsStevens, 3,myIter,myThid) |
254 |
ENDIF |
ENDIF |
255 |
#endif /* ALLOW_OBCS_WEST */ |
#endif /* ALLOW_OBCS_WEST */ |
256 |
#endif /* ALLOW_OBCS_STEVENS */ |
#endif /* ALLOW_OBCS_STEVENS */ |