/[MITgcm]/MITgcm/pkg/flt/flt_mdsreadvector.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_mdsreadvector.F

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

revision 1.2 by jmc, Wed Dec 3 01:43:07 2008 UTC revision 1.3 by jmc, Wed Dec 3 02:34:10 2008 UTC
# Line 138  c       ENDIF Line 138  c       ENDIF
138    
139  C If we are reading from a global file then we open it here  C If we are reading from a global file then we open it here
140        IF (globalFile) THEN        IF (globalFile) THEN
141         IF ( debugLevel.GE.debLevA ) THEN         IF ( debugLevel.GE.debLevB ) THEN
142          WRITE(msgbuf,'(A,A)')          WRITE(msgbuf,'(A,A)')
143       &   ' FLT_MDSREADVECTOR: opening global file: ',dataFName(1:iLfn)       &   ' FLT_MDSREADVECTOR: opening global file: ',dataFName(1:iLfn)
144          CALL PRINT_MESSAGE( msgbuf, standardmessageunit,          CALL PRINT_MESSAGE( msgbuf, standardmessageunit,
# Line 164  C If we are reading from a tiled MDS fil Line 164  C If we are reading from a tiled MDS fil
164  C Of course, we only open the file IF the tile is "active"  C Of course, we only open the file IF the tile is "active"
165  C (This is a place-holder for the active/passive mechanism)  C (This is a place-holder for the active/passive mechanism)
166           IF (exst) THEN           IF (exst) THEN
167            IF ( debugLevel.GE.debLevA ) THEN            IF ( debugLevel.GE.debLevB ) THEN
168             WRITE(msgbuf,'(A,A)')             WRITE(msgbuf,'(A,A)')
169       &      ' FLT_MDSREADVECTOR: opening file: ',dataFName(1:iLfn)       &      ' FLT_MDSREADVECTOR: opening file: ',dataFName(1:iLfn)
170             CALL PRINT_MESSAGE( msgbuf, standardmessageunit,             CALL PRINT_MESSAGE( msgbuf, standardmessageunit,
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22