210 |
IF ( useStevensNorth ) THEN |
IF ( useStevensNorth ) THEN |
211 |
WRITE(fn,'(2A)') 'pickup_stevensN.',suff(1:iL) |
WRITE(fn,'(2A)') 'pickup_stevensN.',suff(1:iL) |
212 |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNvStevens, 1,myIter,myThid) |
213 |
|
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNtStevens, 2,myIter,myThid) |
214 |
|
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBNsStevens, 3,myIter,myThid) |
215 |
ENDIF |
ENDIF |
216 |
#endif /* ALLOW_OBCS_NORTH */ |
#endif /* ALLOW_OBCS_NORTH */ |
217 |
|
|
219 |
IF ( useStevensSouth ) THEN |
IF ( useStevensSouth ) THEN |
220 |
WRITE(fn,'(2A)') 'pickup_stevensS.',suff(1:iL) |
WRITE(fn,'(2A)') 'pickup_stevensS.',suff(1:iL) |
221 |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSvStevens, 1,myIter,myThid) |
222 |
|
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBStStevens, 2,myIter,myThid) |
223 |
|
CALL WRITE_REC_XZ_RL(fn,prec,Nr,OBSsStevens, 3,myIter,myThid) |
224 |
ENDIF |
ENDIF |
225 |
#endif /* ALLOW_OBCS_SOUTH */ |
#endif /* ALLOW_OBCS_SOUTH */ |
226 |
|
|
228 |
IF ( useStevensEast ) THEN |
IF ( useStevensEast ) THEN |
229 |
WRITE(fn,'(2A)') 'pickup_stevensE.',suff(1:iL) |
WRITE(fn,'(2A)') 'pickup_stevensE.',suff(1:iL) |
230 |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEuStevens, 1,myIter,myThid) |
231 |
|
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEtStevens, 2,myIter,myThid) |
232 |
|
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBEsStevens, 3,myIter,myThid) |
233 |
ENDIF |
ENDIF |
234 |
#endif /* ALLOW_OBCS_EAST */ |
#endif /* ALLOW_OBCS_EAST */ |
235 |
|
|
237 |
IF ( useStevensWest ) THEN |
IF ( useStevensWest ) THEN |
238 |
WRITE(fn,'(2A)') 'pickup_stevensW.',suff(1:iL) |
WRITE(fn,'(2A)') 'pickup_stevensW.',suff(1:iL) |
239 |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWuStevens, 1,myIter,myThid) |
240 |
|
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWtStevens, 2,myIter,myThid) |
241 |
|
CALL WRITE_REC_YZ_RL(fn,prec,Nr,OBWsStevens, 3,myIter,myThid) |
242 |
ENDIF |
ENDIF |
243 |
#endif /* ALLOW_OBCS_WEST */ |
#endif /* ALLOW_OBCS_WEST */ |
244 |
#endif /* ALLOW_OBCS_STEVENS */ |
#endif /* ALLOW_OBCS_STEVENS */ |