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

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

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

revision 1.2 by jmc, Tue Jan 24 02:59:47 2006 UTC revision 1.3 by jmc, Mon Jul 31 16:26:32 2006 UTC
# Line 42  C     == Local variables == Line 42  C     == Local variables ==
42        INTEGER ioUnit        INTEGER ioUnit
43        INTEGER k, nbReg        INTEGER k, nbReg
44        _RS     tmpVar(1-OLx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)        _RS     tmpVar(1-OLx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
45          COMMON / SET_REGIONS_LOCAL / tmpVar
46  #else  #else
47        LOGICAL flag        LOGICAL flag
48  #endif  #endif
# Line 62  C--   Initialize region-mask array to ze Line 63  C--   Initialize region-mask array to ze
63          ENDDO          ENDDO
64         ENDDO         ENDDO
65        ENDDO        ENDDO
66          ioUnit = -1
67    
68        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
69          ioUnit = standardMessageUnit
70  C--   Check size & parameter first:  C--   Check size & parameter first:
71        IF ( (diagSt_regMaskFile.NE.' ' .AND. nSetRegMskFile.EQ.0)        IF ( (diagSt_regMaskFile.NE.' ' .AND. nSetRegMskFile.EQ.0)
72       & .OR.(diagSt_regMaskFile.EQ.' ' .AND. nSetRegMskFile.GT.0) ) THEN       & .OR.(diagSt_regMaskFile.EQ.' ' .AND. nSetRegMskFile.GT.0) ) THEN
# Line 83  C--   Check size & parameter first: Line 86  C--   Check size & parameter first:
86    
87  C--   Read region-mask from file  C--   Read region-mask from file
88        IF ( diagSt_regMaskFile .NE. ' ' ) THEN        IF ( diagSt_regMaskFile .NE. ' ' ) THEN
89           _BARRIER
90         iLen = ILNBLNK(diagSt_regMaskFile)         iLen = ILNBLNK(diagSt_regMaskFile)
91         ioUnit = standardMessageUnit         IF (ioUnit.GE.0 ) WRITE(ioUnit,'(2A)')
        IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(2A)')  
92       &   ' DIAGSTATS_SET_REGIONS: start reading region-mask file: ',       &   ' DIAGSTATS_SET_REGIONS: start reading region-mask file: ',
93       &   diagSt_regMaskFile(1:iLen)       &   diagSt_regMaskFile(1:iLen)
94         DO k=1,nSetRegMskFile         DO k=1,nSetRegMskFile
95  C       _BEGIN_MASTER( myThid )  C       _BEGIN_MASTER( myThid )
96           IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(A,I3)')           IF (ioUnit.GE.0 )  WRITE(ioUnit,'(A,I3)')
97       &   ' DIAGSTATS_SET_REGIONS:  reading set k=',k       &   ' DIAGSTATS_SET_REGIONS:  reading set k=',k
98           CALL READ_REC_XY_RS( diagSt_regMaskFile, tmpVar, k,           CALL READ_REC_XY_RS( diagSt_regMaskFile, tmpVar, k,
99       &                        nIter0, myThid )       &                        nIter0, myThid )
100           IF (debugLevel.GE.debLevB) WRITE(ioUnit,'(A,I3,A)')           IF (ioUnit.GE.0 ) WRITE(ioUnit,'(A,I3,A)')
101       &   ' DIAGSTATS_SET_REGIONS:          set k=',k,' <= done'       &   ' DIAGSTATS_SET_REGIONS:          set k=',k,' <= done'
102  C       _END_MASTER( myThid )  C       _END_MASTER( myThid )
103          _EXCH_XY_RS( tmpVar, myThid )          _EXCH_XY_RS( tmpVar, myThid )
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22