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

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

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

revision 1.1 by jmc, Tue Dec 30 02:00:51 2008 UTC revision 1.2 by jmc, Tue Jun 7 22:28:02 2011 UTC
# Line 47  C !LOCAL VARIABLES: Line 47  C !LOCAL VARIABLES:
47        INTEGER k        INTEGER k
48    
49  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
50        IF ( debugLevel.GT.debLevB ) THEN        IF ( debugMode ) THEN
51          WRITE(msgBuf,'(A,I9,2x,I9)')          WRITE(msgBuf,'(A,I9,2x,I9)')
52       &      ' MDS_WR_REC_RS: iRec,Dim = ', iRec, nArr       &      ' MDS_WR_REC_RS: iRec,Dim = ', iRec, nArr
53          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22