/[MITgcm]/MITgcm/pkg/mdsio/mdsio_writevec_loc.F
ViewVC logotype

Diff of /MITgcm/pkg/mdsio/mdsio_writevec_loc.F

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

revision 1.7 by jmc, Thu Dec 23 14:54:02 2010 UTC revision 1.8 by jmc, Tue Jun 7 22:30:29 2011 UTC
# Line 175  C--   Open the file: Line 175  C--   Open the file:
175       &            access='direct', recl=length_of_rec )       &            access='direct', recl=length_of_rec )
176              fileIsOpen=.TRUE.              fileIsOpen=.TRUE.
177            ENDIF            ENDIF
178            IF ( debugLevel.GE.debLevB ) THEN            IF ( debugLevel.GE.debLevC ) THEN
179              WRITE(msgBuf,'(2A)')              WRITE(msgBuf,'(2A)')
180       &      ' MDS_WRITEVEC_LOC: open file: ',dataFname(1:pIL+13)       &      ' MDS_WRITEVEC_LOC: open file: ',dataFname(1:pIL+13)
181              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,              CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22