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

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

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

revision 1.5 by mlosch, Tue Oct 25 15:09:18 2011 UTC revision 1.6 by mlosch, Fri Dec 2 15:27:02 2011 UTC
# Line 210  C     Write E and W OB storage and phase Line 210  C     Write E and W OB storage and phase
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    
# Line 217  C     Write E and W OB storage and phase Line 219  C     Write E and W OB storage and phase
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    
# Line 224  C     Write E and W OB storage and phase Line 228  C     Write E and W OB storage and phase
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    
# Line 231  C     Write E and W OB storage and phase Line 237  C     Write E and W OB storage and phase
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 */
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22