/[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.12 by cnh, Wed Oct 28 03:11:35 1998 UTC revision 1.13 by cnh, Fri Nov 6 22:44:42 1998 UTC
# Line 544  C               Str  - stride within blo Line 544  C               Str  - stride within blo
544        INTEGER lChList        INTEGER lChList
545        PARAMETER ( lChList = 28 )        PARAMETER ( lChList = 28 )
546        CHARACTER*(lChList) chList        CHARACTER*(lChList) chList
547        REAL fMin        _RL  fMin
548        REAL fMax        _RL  fMax
549        REAL fRange        _RL  fRange
550        REAL val        _RL  val
551        REAL small        _RL  small
552        CHARACTER*2  accLab        CHARACTER*2  accLab
553        CHARACTER*7  dwnLab        CHARACTER*7  dwnLab
554        CHARACTER*3  pltLab        CHARACTER*3  pltLab
# Line 565  C               Str  - stride within blo Line 565  C               Str  - stride within blo
565        LOGICAL validRange        LOGICAL validRange
566    
567        chList = '-abcdefghijklmnopqrstuvwxyz+'        chList = '-abcdefghijklmnopqrstuvwxyz+'
568        small  = 1. _d -15        small  =  1. _d -15
569        fMin   =  1. _d 32        fMin   =  1. _d  32
570        fMax   = -1. _d 32        fMax   = -1. _d  32
571        validRange = .FALSE.        validRange = .FALSE.
572    
573  C--   Calculate field range  C--   Calculate field range
# Line 811  C      Data Line 811  C      Data
811               ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN               ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN
812                val = fld(K,I,J,bk,bi)                val = fld(K,I,J,bk,bi)
813               ENDIF               ENDIF
814               IF ( validRange ) THEN               IF ( validRange .AND. val .NE. 0. ) THEN
815                IDX = NINT(                IDX = NINT(
816       &              FLOAT( lChList-1 )*( val-fMin ) / (fRange)       &              FLOAT( lChList-1 )*( val-fMin ) / (fRange)
817       &             )+1       &             )+1
# Line 952  C               Str  - stride within blo Line 952  C               Str  - stride within blo
952        INTEGER lChList        INTEGER lChList
953        PARAMETER ( lChList = 28 )        PARAMETER ( lChList = 28 )
954        CHARACTER*(lChList) chList        CHARACTER*(lChList) chList
955        REAL fMin        _RL  fMin
956        REAL fMax        _RL  fMax
957        REAL fRange        _RL  fRange
958        REAL val        _RL  val
959        REAL small        _RL  small
960        CHARACTER*2  accLab        CHARACTER*2  accLab
961        CHARACTER*7  dwnLab        CHARACTER*7  dwnLab
962        CHARACTER*3  pltLab        CHARACTER*3  pltLab
# Line 1218  C      Data Line 1218  C      Data
1218               ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN               ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN
1219                val = fld(K,I,J,bk,bi)                val = fld(K,I,J,bk,bi)
1220               ENDIF               ENDIF
1221               IF ( validRange ) THEN               IF ( validRange .AND. val .NE. 0. ) THEN
1222                IDX = NINT(                IDX = NINT(
1223       &               FLOAT( lChList-1 )*( val-fMin ) / (fRange)       &               FLOAT( lChList-1 )*( val-fMin ) / (fRange)
1224       &              )+1       &              )+1
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22