/[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.3 by jmc, Tue Oct 9 00:09:25 2007 UTC revision 1.4 by jmc, Tue Apr 28 18:18:30 2009 UTC
# Line 88  C read in mask for relaxing Line 88  C read in mask for relaxing
88           CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ',           CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ',
89       &                RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid)       &                RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid)
90          _END_MASTER(myThid)          _END_MASTER(myThid)
91          _EXCH_XYZ_R8(RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid )          _EXCH_XYZ_RL(RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid )
92         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),
93       &          'Boundary Relaxing' ,1, myThid )       &          'Boundary Relaxing' ,1, myThid )
94         ENDIF         ENDIF
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22