/[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.21 by cnh, Fri Nov 6 22:44:46 1998 UTC revision 1.22 by adcroft, Tue Dec 8 19:44:28 1998 UTC
# Line 19  C     === Global variables === Line 19  C     === Global variables ===
19  #include "GRID.h"  #include "GRID.h"
20  #include "DYNVARS.h"  #include "DYNVARS.h"
21  #include "CG2D.h"  #include "CG2D.h"
22    #include "OBCS.h"
23    
24  C     === Routine arguments ===  C     === Routine arguments ===
25  C     myThid - Thread no. that called this routine.  C     myThid - Thread no. that called this routine.
# Line 66  C     aS2d: integral in Z Ay/dY Line 67  C     aS2d: integral in Z Ay/dY
67            ENDDO            ENDDO
68           ENDDO           ENDDO
69          ENDDO          ENDDO
70            IF (openBoundaries) THEN
71             DO I=1,sNx
72              IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0.
73              IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0.
74              IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj)+1,bi,bj)=0.
75              IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0.
76             ENDDO
77             DO J=1,sNy
78              IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj),J,bi,bj)=0.
79              IF (OB_Ie(J,bi,bj).NE.0) aW2d(OB_Ie(J,bi,bj)+1,J,bi,bj)=0.
80              IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj)+1,J,bi,bj)=0.
81              IF (OB_Iw(J,bi,bj).NE.0) aW2d(OB_Iw(J,bi,bj),J,bi,bj)=0.
82             ENDDO
83            ENDIF
84          DO J=1,sNy          DO J=1,sNy
85           DO I=1,sNx           DO I=1,sNx
86            myNorm = MAX(ABS(aW2d(I,J,bi,bj)),myNorm)            myNorm = MAX(ABS(aW2d(I,J,bi,bj)),myNorm)
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22