/[MITgcm]/MITgcm/model/src/cg2d.F
ViewVC logotype

Diff of /MITgcm/model/src/cg2d.F

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

revision 1.25 by adcroft, Fri Mar 24 19:06:14 2000 UTC revision 1.26 by adcroft, Fri Feb 2 21:04:47 2001 UTC
# Line 114  C     _GLOBAL_MAX_R8( rhsMax, myThid ) Line 114  C     _GLOBAL_MAX_R8( rhsMax, myThid )
114        rhsMax=1.        rhsMax=1.
115  #else  #else
116        _GLOBAL_MAX_R8( rhsMax, myThid )        _GLOBAL_MAX_R8( rhsMax, myThid )
117    Catm  rhsMax=1.
118  #endif  #endif
119        rhsNorm = 1. _d 0        rhsNorm = 1. _d 0
120        IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax        IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22