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 |
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 |
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 |
|
|
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 |
280 |
C |
C |
281 |
RETURN |
RETURN |
282 |
END |
END |
|
|
|
|
C $Id$ |
|