/[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.37 by cnh, Wed Sep 26 18:09:15 2001 UTC revision 1.38 by jmc, Sun Feb 10 20:04:11 2002 UTC
# Line 56  C     sumArea - Work variable used to co Line 56  C     sumArea - Work variable used to co
56        _RL     aC, aCw, aCs        _RL     aC, aCw, aCs
57  CEOP  CEOP
58    
59    C--   Initialize arrays in common blocs (CG2D.h) ; not really necessary
60    C     but safer when EXCH do not fill all the overlap regions.
61          DO bj=myByLo(myThid),myByHi(myThid)
62           DO bi=myBxLo(myThid),myBxHi(myThid)
63            DO J=1-OLy,sNy+OLy
64             DO I=1-OLx,sNx+OLx
65              aW2d(I,J,bi,bj) = 0. _d 0
66              aS2d(I,J,bi,bj) = 0. _d 0
67              pW(I,J,bi,bj) = 0. _d 0
68              pS(I,J,bi,bj) = 0. _d 0
69              pC(I,J,bi,bj) = 0. _d 0
70              cg2d_q(I,J,bi,bj) = 0. _d 0
71             ENDDO
72            ENDDO
73            DO J=1-1,sNy+1
74             DO I=1-1,sNx+1
75              cg2d_r(I,J,bi,bj) = 0. _d 0
76              cg2d_s(I,J,bi,bj) = 0. _d 0
77             ENDDO
78            ENDDO
79           ENDDO
80          ENDDO
81    
82  C--   Initialise laplace operator  C--   Initialise laplace operator
83  C     aW2d: integral in Z Ax/dX  C     aW2d: integral in Z Ax/dX
84  C     aS2d: integral in Z Ay/dY  C     aS2d: integral in Z Ay/dY
Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38
  ViewVC Help
Powered by ViewVC 1.1.22