/[MITgcm]/MITgcm/pkg/rbcs/rbcs_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/rbcs/rbcs_init_fixed.F

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

revision 1.7 by jmc, Tue Jun 7 22:25:10 2011 UTC revision 1.8 by jmc, Tue Dec 31 22:28:39 2013 UTC
# Line 37  C     msgBuf      :: Informational/error Line 37  C     msgBuf      :: Informational/error
37  #ifndef DISABLE_RBCS_MOM  #ifndef DISABLE_RBCS_MOM
38        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
39  #endif  #endif
40          CHARACTER*(12) filName
41    
42  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
43    
# Line 98  C--   Apply mask: Line 99  C--   Apply mask:
99            ENDDO            ENDDO
100           ENDDO           ENDDO
101           IF ( debugLevel.GE.debLevC ) THEN           IF ( debugLevel.GE.debLevC ) THEN
102             _BARRIER             WRITE(filName,'(A,I3.3)') 'RBC_mask_',irbc
103             _BEGIN_MASTER( myThid )             CALL WRITE_FLD_XYZ_RS( filName,' ',
104             CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc),       &                RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid )
105       &                          'Boundary Relaxing' ,1, myThid )           ENDIF
            _END_MASTER(myThid)  
         ENDIF  
106         ENDIF         ENDIF
107        ENDDO        ENDDO
108    
# Line 168  C--   Apply mask: Line 167  C--   Apply mask:
167            ENDDO            ENDDO
168           ENDDO           ENDDO
169           IF ( debugLevel.GE.debLevC ) THEN           IF ( debugLevel.GE.debLevC ) THEN
170             _BARRIER             CALL WRITE_FLD_XYZ_RS('RBC_maskU',' ',RBC_maskU,0,myThid )
171             _BEGIN_MASTER( myThid )             CALL WRITE_FLD_XYZ_RS('RBC_maskV',' ',RBC_maskV,0,myThid )
172             CALL PLOT_FIELD_XYRS( RBC_maskU,           ENDIF
      &                          'Boundary Relaxing U' ,1, myThid )  
            CALL PLOT_FIELD_XYRS( RBC_maskV,  
      &                          'Boundary Relaxing V' ,1, myThid )  
            _END_MASTER(myThid)  
         ENDIF  
173        ENDIF        ENDIF
174  #endif /* DISABLE_RBCS_MOM */  #endif /* DISABLE_RBCS_MOM */
175    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22