/[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.19 by adcroft, Fri Sep 21 14:31:12 2001 UTC revision 1.20 by dimitri, Sat Jan 10 16:59:08 2004 UTC
# Line 638  C--   Calculate field range Line 638  C--   Calculate field range
638         ENDDO         ENDDO
639        ENDDO        ENDDO
640        fRange = fMax-fMin        fRange = fMax-fMin
641        IF ( fRange .GT. small ) THEN        IF ( fRange .GT. small .AND.
642         validRange = .TRUE.       &     (MAX_LEN_PLOTBUF-35) .GT. sNx*nSx .AND.
643        ENDIF       &     (MAX_LEN_PLOTBUF-35) .GT. sNy*nSy ) validRange = .TRUE.
644    
645  C--   Write field title and statistics  C--   Write field title and statistics
646        msgBuf =        msgBuf =
# Line 799  C      X across, Z down slice Line 799  C      X across, Z down slice
799         pltStep = sNy         pltStep = sNy
800         pltLab  = 'J ='         pltLab  = 'J ='
801        ENDIF        ENDIF
802  C     IF ( validRange ) THEN        IF ( validRange ) THEN
803  C      Header  C      Header
804  C      Data  C      Data
805         DO bk=pltBlo, pltBhi, pltBstr         DO bk=pltBlo, pltBhi, pltBstr
# Line 883  C      Data Line 883  C      Data
883           ENDDO           ENDDO
884          ENDDO          ENDDO
885         ENDDO         ENDDO
886  C     ENDIF        ENDIF
887  C--   Write delimiter  C--   Write delimiter
888        msgBuf =        msgBuf =
889       & '// ======================================================='       & '// ======================================================='
# Line 1055  C--   Calculate field range Line 1055  C--   Calculate field range
1055         ENDDO         ENDDO
1056        ENDDO        ENDDO
1057        fRange = fMax-fMin        fRange = fMax-fMin
1058        IF ( fRange .GT. small ) THEN        IF ( fRange .GT. small .AND.
1059         validRange = .TRUE.       &     (MAX_LEN_PLOTBUF-35) .GT. sNx*nSx .AND.
1060        ENDIF       &     (MAX_LEN_PLOTBUF-35) .GT. sNy*nSy ) validRange = .TRUE.
1061    
1062  C--   Write field title and statistics  C--   Write field title and statistics
1063        msgBuf =        msgBuf =
# Line 1216  C      X across, Z down slice Line 1216  C      X across, Z down slice
1216         pltStep = sNy         pltStep = sNy
1217         pltLab  = 'J ='         pltLab  = 'J ='
1218        ENDIF        ENDIF
1219  C     IF ( validRange ) THEN        IF ( validRange ) THEN
1220  C      Header  C      Header
1221  C      Data  C      Data
1222         DO bk=pltBlo, pltBhi, pltBstr         DO bk=pltBlo, pltBhi, pltBstr
# Line 1297  C      Data Line 1297  C      Data
1297           ENDDO           ENDDO
1298          ENDDO          ENDDO
1299         ENDDO         ENDDO
1300  C     ENDIF        ENDIF
1301  C--   Write delimiter  C--   Write delimiter
1302        msgBuf =        msgBuf =
1303       & '// ======================================================='       & '// ======================================================='
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22