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

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

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

revision 1.4 by jmc, Thu Feb 14 15:41:43 2008 UTC revision 1.5 by jmc, Tue Apr 28 18:10:47 2009 UTC
# Line 111  C--     Global min,max & sum (at each le Line 111  C--     Global min,max & sum (at each le
111          DO k=1,klev          DO k=1,klev
112             tmpVol = qtmp1(0,k)             tmpVol = qtmp1(0,k)
113             DO i=0,iv             DO i=0,iv
114              _GLOBAL_SUM_R8(qtmp1(i,k),myThid)              _GLOBAL_SUM_RL(qtmp1(i,k),myThid)
115             ENDDO             ENDDO
116             IF ( qtmp1(0,k).GT.0. .AND. tmpVol.LE.0. ) THEN             IF ( qtmp1(0,k).GT.0. .AND. tmpVol.LE.0. ) THEN
117  C-      In case 1 processor has only empty tiles:  C-      In case 1 processor has only empty tiles:
# Line 121  C-      In case 1 processor has only emp Line 121  C-      In case 1 processor has only emp
121               tmpMin = -qtmp1(im,k)               tmpMin = -qtmp1(im,k)
122               tmpMax =  qtmp1(ix,k)               tmpMax =  qtmp1(ix,k)
123             ENDIF             ENDIF
124             _GLOBAL_MAX_R8(tmpMin,myThid)             _GLOBAL_MAX_RL(tmpMin,myThid)
125             _GLOBAL_MAX_R8(tmpMax,myThid)             _GLOBAL_MAX_RL(tmpMax,myThid)
126             qtmp1(im,k) = -tmpMin             qtmp1(im,k) = -tmpMin
127             qtmp1(ix,k) =  tmpMax             qtmp1(ix,k) =  tmpMax
128          ENDDO          ENDDO
129          IF ( mate.GT.0 ) THEN          IF ( mate.GT.0 ) THEN
130           DO k=1,kMlev           DO k=1,kMlev
131             DO i=0,1             DO i=0,1
132              _GLOBAL_SUM_R8(qtmp2(i,k),myThid)              _GLOBAL_SUM_RL(qtmp2(i,k),myThid)
133             ENDDO             ENDDO
134           ENDDO           ENDDO
135          ENDIF          ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22