/[MITgcm]/MITgcm/model/src/ini_cg2d.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_cg2d.F

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

revision 1.25 by adcroft, Tue May 18 17:36:55 1999 UTC revision 1.26 by adcroft, Mon May 24 15:42:23 1999 UTC
# Line 20  C     === Global variables === Line 20  C     === Global variables ===
20  #include "GRID.h"  #include "GRID.h"
21  #include "DYNVARS.h"  #include "DYNVARS.h"
22  #include "CG2D.h"  #include "CG2D.h"
23    #ifdef ALLOW_OBCS
24  #include "OBCS.h"  #include "OBCS.h"
25    #endif
26    
27  C     === Routine arguments ===  C     === Routine arguments ===
28  C     myThid - Thread no. that called this routine.  C     myThid - Thread no. that called this routine.
# Line 68  C     aS2d: integral in Z Ay/dY Line 70  C     aS2d: integral in Z Ay/dY
70            ENDDO            ENDDO
71           ENDDO           ENDDO
72          ENDDO          ENDDO
73    #ifdef ALLOW_OBCS
74          IF (openBoundaries) THEN          IF (openBoundaries) THEN
75           DO I=1,sNx           DO I=1,sNx
76            IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0.            IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0.
# Line 82  C     aS2d: integral in Z Ay/dY Line 85  C     aS2d: integral in Z Ay/dY
85            IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj),J,bi,bj)=0.            IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj),J,bi,bj)=0.
86           ENDDO           ENDDO
87          ENDIF          ENDIF
88    #endif
89          DO J=1,sNy          DO J=1,sNy
90           DO I=1,sNx           DO I=1,sNx
91            myNorm = MAX(ABS(aW2d(I,J,bi,bj)),myNorm)            myNorm = MAX(ABS(aW2d(I,J,bi,bj)),myNorm)
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22