/[MITgcm]/MITgcm_contrib/cg2d_bench/print.F
ViewVC logotype

Diff of /MITgcm_contrib/cg2d_bench/print.F

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

revision 1.1 by ce107, Fri May 12 21:58:06 2006 UTC revision 1.2 by ce107, Fri May 12 22:25:15 2006 UTC
# Line 1  Line 1 
1    C $Id$
2  C--   File printf.F: Routines for performing formatted textual I/O  C--   File printf.F: Routines for performing formatted textual I/O
3  C--                  in the MITgcm UV implementation environment.  C--                  in the MITgcm UV implementation environment.
4  C--    Contents  C--    Contents
# Line 33  C     == Routine arguments == Line 34  C     == Routine arguments ==
34        INTEGER jLo, jHi        INTEGER jLo, jHi
35        INTEGER kLo, kHi        INTEGER kLo, kHi
36        INTEGER nBx, nBy        INTEGER nBx, nBy
37        REAL fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)        Real fld(iLo:iHi,jLo:jHi,kLo:kHi,nBx,nBy)
38        INTEGER iMin, iMax, iStr        INTEGER iMin, iMax, iStr
39        INTEGER jMin, jMax, jStr        INTEGER jMin, jMax, jStr
40        INTEGER kMin, kMax, kStr        INTEGER kMin, kMax, kStr
# Line 54  C     == Local variables == Line 55  C     == Local variables ==
55        INTEGER lChList        INTEGER lChList
56        PARAMETER ( lChList = 28 )        PARAMETER ( lChList = 28 )
57        CHARACTER*(lChList) chList        CHARACTER*(lChList) chList
58        REAL fMin        Real fMin
59        REAL fMax        Real fMax
60        REAL fRange        Real fRange
61        REAL small        Real small
62        INTEGER I, J, K, bi, bj, iStrngLo, iStrngHi, iBuf, iDx        INTEGER I, J, K, bi, bj, iStrngLo, iStrngHi, iBuf, iDx
63        LOGICAL validRange        LOGICAL validRange
64    
# Line 189  C      Data Line 190  C      Data
190             DO I=iMin, iMax, iStr             DO I=iMin, iMax, iStr
191              iBuf = iBuf + 1              iBuf = iBuf + 1
192              IDX = NINT(              IDX = NINT(
193       &             FLOAT( lChList-1 )*( fld(I,J,K,bi,bj)-fMin ) / (fRange)       &           FLOAT( lChList-1 )*( fld(I,J,K,bi,bj)-fMin ) / (fRange)
194       &            )+1       $           )+1
195              IF ( iBuf .LE. MAX_LEN_PLOTBUF )              IF ( iBuf .LE. MAX_LEN_PLOTBUF )
196       &       plotBuf(iBuf:iBuf) = chList(IDX:IDX)       &       plotBuf(iBuf:iBuf) = chList(IDX:IDX)
197              IF ( fld(I,J,K,bi,bj) .EQ. 0. ) THEN              IF ( fld(I,J,K,bi,bj) .EQ. 0. _d 0) THEN
198               IF ( iBuf .LE. MAX_LEN_PLOTBUF )               IF ( iBuf .LE. MAX_LEN_PLOTBUF )
199       &        plotBuf(iBuf:iBuf) = '*'       &        plotBuf(iBuf:iBuf) = '*'
200              ENDIF              ENDIF
# Line 279  C--   Find beginning and end of message Line 280  C--   Find beginning and end of message
280  C  C
281        RETURN        RETURN
282        END        END
   
 C $Id$  
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22