/[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.6 by jmc, Sat May 14 19:52:12 2011 UTC revision 1.7 by jmc, Tue Jun 7 22:25:10 2011 UTC
# Line 97  C--   Apply mask: Line 97  C--   Apply mask:
97             ENDDO             ENDDO
98            ENDDO            ENDDO
99           ENDDO           ENDDO
100           IF ( debugLevel .GE. debLevB ) THEN           IF ( debugLevel.GE.debLevC ) THEN
101             _BARRIER             _BARRIER
102             _BEGIN_MASTER( myThid )             _BEGIN_MASTER( myThid )
103             CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc),             CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc),
# Line 167  C--   Apply mask: Line 167  C--   Apply mask:
167             ENDDO             ENDDO
168            ENDDO            ENDDO
169           ENDDO           ENDDO
170           IF ( debugLevel .GE. debLevB ) THEN           IF ( debugLevel.GE.debLevC ) THEN
171             _BARRIER             _BARRIER
172             _BEGIN_MASTER( myThid )             _BEGIN_MASTER( myThid )
173             CALL PLOT_FIELD_XYRS( RBC_maskU,             CALL PLOT_FIELD_XYRS( RBC_maskU,

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

  ViewVC Help
Powered by ViewVC 1.1.22