/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_sum_levels.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_sum_levels.F

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

revision 1.2 by jmc, Wed Jan 13 01:20:38 2010 UTC revision 1.3 by jmc, Sun Jul 23 00:41:59 2017 UTC
# Line 61  C     i,j,k :: loop indices Line 61  C     i,j,k :: loop indices
61        _RL     tmpFac, hFacLoc        _RL     tmpFac, hFacLoc
62  c     CHARACTER*(MAX_LEN_MBUF) msgBuf  c     CHARACTER*(MAX_LEN_MBUF) msgBuf
63        CHARACTER*(10) gcode        CHARACTER*(10) gcode
64          LOGICAL wFac
65    
66  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
67    
68        IF (fflags(listId)(2:2).EQ.'I') THEN        IF ( fflags(listId)(2:2).EQ.'I' ) THEN
69    
70          gcode = gdiag(ndId)(1:10)          gcode = gdiag(ndId)(1:10)
71            wFac = jdiag(md,listId).LT.0
72    
73  C--   start loops on tile indices bi,bj:  C--   start loops on tile indices bi,bj:
74          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
# Line 95  C--   Cumulate levels directly: Line 97  C--   Cumulate levels directly:
97                ENDDO                ENDDO
98               ENDDO               ENDDO
99    
100            ELSEIF ( gcode(3:3).EQ.'r' ) THEN            ELSEIF ( gcode(3:3).EQ.'r' .OR.
101         &            (gcode(3:3).EQ.'R' .AND. wFac) ) THEN
102  C--   Cumulate the level-thickness product:  C--   Cumulate the level-thickness product:
103    
104               DO k = 1,nlevels(listId)               DO k = 1,nlevels(listId)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22