/[MITgcm]/MITgcm/pkg/monitor/mon_stats_latbnd_rl.F
ViewVC logotype

Diff of /MITgcm/pkg/monitor/mon_stats_latbnd_rl.F

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

revision 1.7 by jmc, Mon Oct 15 00:18:40 2007 UTC revision 1.8 by jmc, Tue Apr 28 18:16:53 2009 UTC
# Line 134  C-    Check local Dim Line 134  C-    Check local Dim
134          theVar(n) = theVar(n) -theMean(n)*theMean(n)          theVar(n) = theVar(n) -theMean(n)*theMean(n)
135          IF ( noPnts(n) ) theMin(n) = theMean(n)          IF ( noPnts(n) ) theMin(n) = theMean(n)
136          theMin(n) = -theMin(n)          theMin(n) = -theMin(n)
137          _GLOBAL_MAX_R8(theMin(n), myThid)          _GLOBAL_MAX_RL(theMin(n), myThid)
138          theMin(n)=-theMin(n)          theMin(n)=-theMin(n)
139          IF ( noPnts(n) ) theMax(n) = theMin(n)          IF ( noPnts(n) ) theMax(n) = theMin(n)
140          _GLOBAL_MAX_R8(theMax(n), myThid)          _GLOBAL_MAX_RL(theMax(n), myThid)
141         ENDIF         ENDIF
142        ENDDO        ENDDO
143    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22