/[MITgcm]/MITgcm/eesupp/src/print.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/print.F

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

revision 1.34 by jmc, Thu Oct 11 19:15:18 2012 UTC revision 1.35 by utke, Mon Mar 4 17:49:45 2013 UTC
# Line 1017  C      Data Line 1017  C      Data
1017             iDx = accBase-1+(bi-1)*accStep+I             iDx = accBase-1+(bi-1)*accStep+I
1018             iBuf = iBuf + 1             iBuf = iBuf + 1
1019             IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN             IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN
1020              IF ( iDx. LT. 10 ) THEN              IF ( iDx .LT. 10 ) THEN
1021               WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx
1022              ELSEIF ( iDx. LT. 100 ) THEN              ELSEIF ( iDx .LT. 100 ) THEN
1023               WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx
1024              ELSEIF ( iDx. LT. 1000 ) THEN              ELSEIF ( iDx .LT. 1000 ) THEN
1025               WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx
1026              ELSEIF ( iDx. LT. 10000 ) THEN              ELSEIF ( iDx .LT. 10000 ) THEN
1027               WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx
1028              ENDIF              ENDIF
1029             ENDIF             ENDIF
# Line 1451  C      Data Line 1451  C      Data
1451             iDx = accBase-1+(bi-1)*accStep+I             iDx = accBase-1+(bi-1)*accStep+I
1452             iBuf = iBuf + 1             iBuf = iBuf + 1
1453             IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN             IF ( 10*((iBuf-6)/10) .EQ. iBuf-6 ) THEN
1454              IF ( iDx. LT. 10 ) THEN              IF ( iDx .LT. 10 ) THEN
1455               WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I1)') accLab,iDx
1456              ELSEIF ( iDx. LT. 100 ) THEN              ELSEIF ( iDx .LT. 100 ) THEN
1457               WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I2)') accLab,iDx
1458              ELSEIF ( iDx. LT. 1000 ) THEN              ELSEIF ( iDx .LT. 1000 ) THEN
1459               WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I3)') accLab,iDx
1460              ELSEIF ( iDx. LT. 10000 ) THEN              ELSEIF ( iDx .LT. 10000 ) THEN
1461               WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx               WRITE(plotBuf(iBuf:),'(A,I4)') accLab,iDx
1462              ENDIF              ENDIF
1463             ENDIF             ENDIF
Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35
  ViewVC Help
Powered by ViewVC 1.1.22