/[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.2 by stephd, Mon Dec 19 19:14:34 2005 UTC revision 1.3 by jmc, Tue Oct 9 00:09:25 2007 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
6    
# Line 79  C       end of Tracer loop Line 82  C       end of Tracer loop
82  #endif  #endif
83    
84  C read in mask for relaxing  C read in mask for relaxing
85        do irbc=1,maskLEN        do irbc=1,maskLEN
86         IF ( relaxMaskFile(irbc).NE. ' ' ) THEN         IF ( relaxMaskFile(irbc).NE. ' ' ) THEN
87          _BEGIN_MASTER( myThid )          _BEGIN_MASTER( myThid )
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_R8(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
95        enddo        enddo
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22