/[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.1 by stephd, Thu Dec 8 00:14:00 2005 UTC revision 1.2 by stephd, Mon Dec 19 19:14:34 2005 UTC
# Line 31  CEOP Line 31  CEOP
31  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
32  C     i,j,k,bi,bj,iTracer  :: loop indices  C     i,j,k,bi,bj,iTracer  :: loop indices
33        INTEGER i,j,k,bi,bj        INTEGER i,j,k,bi,bj
34          INTEGER irbc
35  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
36        INTEGER iTracer        INTEGER iTracer
37  #endif  #endif
# Line 43  C           Initialize arrays in common Line 44  C           Initialize arrays in common
44              DO k=1,Nr              DO k=1,Nr
45                DO j=1-Oly,sNy+OLy                DO j=1-Oly,sNy+OLy
46                  DO i=1-Olx,sNx+Olx                  DO i=1-Olx,sNx+Olx
47                    RBC_mask(i,j,k,bi,bj) = 0. _d 0                   DO irbc=1,maskLEN
48                    RBCtemp(i,j,k,bi,bj)    = 0. _d 0                    RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0
49                    RBCsalt(i,j,k,bi,bj) = 0. _d 0                   ENDDO
50                     RBCtemp(i,j,k,bi,bj)    = 0. _d 0
51                     RBCsalt(i,j,k,bi,bj) = 0. _d 0
52                  ENDDO                  ENDDO
53                ENDDO                ENDDO
54               ENDDO               ENDDO
# Line 76  C       end of Tracer loop Line 79  C       end of Tracer loop
79  #endif  #endif
80    
81  C read in mask for relaxing  C read in mask for relaxing
82        IF ( relaxBoundaryFile.NE. ' ' ) THEN        do irbc=1,maskLEN
83         _BEGIN_MASTER( myThid )         IF ( relaxMaskFile(irbc).NE. ' ' ) THEN
84          CALL READ_FLD_XYZ_RS(relaxBoundaryFile,' ', RBC_mask, 0, myThid)          _BEGIN_MASTER( myThid )
85         _END_MASTER(myThid)           CALL READ_FLD_XYZ_RS(relaxMaskFile(irbc),' ',
86        ENDIF       &                RBC_mask(1-Olx,1-Oly,1,1,1,irbc), 0, myThid)
87            _END_MASTER(myThid)
88            _EXCH_XYZ_R8(RBC_mask(1-Olx,1-Oly,1,1,1,irbc), myThid )
89           CALL PLOT_FIELD_XYRS( RBC_mask(1-Olx,1-Oly,1,1,1,irbc),
90         &          'Boundary Relaxing' ,1, myThid )
91           ENDIF
92          enddo
93  C  C
       _EXCH_XYZ_R4(RBC_mask, myThid )  
   
       CALL PLOT_FIELD_XYRS( RBC_mask, 'Boundary Relaxing' ,  
      &                       1, myThid )  
   
94  #endif /* ALLOW_RBCS */  #endif /* ALLOW_RBCS */
95    
96        RETURN        RETURN
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22