/[MITgcm]/MITgcm/pkg/obcs/obcs_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_read_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by mlosch, Tue Oct 25 15:09:18 2011 UTC revision 1.5 by mlosch, Fri Dec 2 15:27:02 2011 UTC
# Line 222  c#endif Line 222  c#endif
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    
# Line 229  c#endif Line 231  c#endif
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    
# Line 236  c#endif Line 240  c#endif
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    
# Line 243  c#endif Line 249  c#endif
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 */
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22