/[MITgcm]/MITgcm/pkg/debug/debug_fld_stats_rl.F
ViewVC logotype

Diff of /MITgcm/pkg/debug/debug_fld_stats_rl.F

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

revision 1.2 by edhill, Thu Oct 9 04:19:19 2003 UTC revision 1.3 by jmc, Tue Apr 28 18:10:47 2009 UTC
# Line 67  C     === Local variables ==== Line 67  C     === Local variables ====
67        ENDDO        ENDDO
68    
69        theMin=-theMin        theMin=-theMin
70        _GLOBAL_MAX_R8(theMin,myThid)        _GLOBAL_MAX_RL(theMin,myThid)
71        theMin=-theMin        theMin=-theMin
72        _GLOBAL_MAX_R8(theMax,myThid)        _GLOBAL_MAX_RL(theMax,myThid)
73        _GLOBAL_SUM_R8(theMean,myThid)        _GLOBAL_SUM_RL(theMean,myThid)
74        _GLOBAL_SUM_R8(theVar,myThid)        _GLOBAL_SUM_RL(theVar,myThid)
75        tmpVal=FLOAT(numPnts)        tmpVal=FLOAT(numPnts)
76        _GLOBAL_SUM_R8(tmpVal,myThid)        _GLOBAL_SUM_RL(tmpVal,myThid)
77        numPnts=INT(tmpVal+0.5)        numPnts=INT(tmpVal+0.5)
78    
79        IF (tmpVal.GT.0.) THEN        IF (tmpVal.GT.0.) THEN
# Line 96  C     === Local variables ==== Line 96  C     === Local variables ====
96          ENDDO          ENDDO
97         ENDDO         ENDDO
98    
99         _GLOBAL_SUM_R8(theSD,myThid)         _GLOBAL_SUM_RL(theSD,myThid)
100    
101         theSD=sqrt(theSD*rNumPnts)         theSD=sqrt(theSD*rNumPnts)
102  c      theSD=sqrt(theVar-theMean**2)  c      theSD=sqrt(theVar-theMean**2)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22