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

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

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

revision 1.20 by jmc, Sun Aug 24 21:32:17 2008 UTC revision 1.25 by m_bates, Sun Sep 15 14:28:31 2013 UTC
# Line 34  C     myThid  :: my Thread Id. number Line 34  C     myThid  :: my Thread Id. number
34  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
35  C     == Local variables ==  C     == Local variables ==
36  C     bi,bj   :: tile indices  C     bi,bj   :: tile indices
37  C     I,J,K   :: loop index  C     i,j,k   :: loop index
38        INTEGER bi, bj        INTEGER bi, bj
39        INTEGER I, J, K        INTEGER i, j, k
40  CEOP  CEOP
41    
42  C--   Over all tiles  C--   Over all tiles
# Line 44  C--   Over all tiles Line 44  C--   Over all tiles
44         DO bi = myBxLo(myThid), myBxHi(myThid)         DO bi = myBxLo(myThid), myBxHi(myThid)
45    
46  C-      3D arrays  C-      3D arrays
47          DO K=1,Nr          DO k=1,Nr
48           DO J=1-Oly,sNy+Oly           DO j=1-OLy,sNy+OLy
49            DO I=1-Olx,sNx+Olx            DO i=1-OLx,sNx+OLx
50    
51             uVel(I,J,K,bi,bj)=0. _d 0             uVel (i,j,k,bi,bj) = 0. _d 0
52             vVel(I,J,K,bi,bj)=0. _d 0             vVel (i,j,k,bi,bj) = 0. _d 0
53             wVel(I,J,K,bi,bj)=0. _d 0             wVel (i,j,k,bi,bj) = 0. _d 0
54             theta(I,J,K,bi,bj)=0. _d 0  #ifdef ALLOW_EDDYPSI
55             salt(I,J,K,bi,bj)=0. _d 0             uMean(i,j,k,bi,bj) = 0. _d 0
56               vMean(i,j,k,bi,bj) = 0. _d 0
57             gU(I,J,K,bi,bj)=0. _d 0  #endif
58             gV(I,J,K,bi,bj)=0. _d 0             theta(i,j,k,bi,bj) = 0. _d 0
59             gT(I,J,K,bi,bj)=0. _d 0             salt (i,j,k,bi,bj) = 0. _d 0
60             gS(I,J,K,bi,bj)=0. _d 0  
61               gU(i,j,k,bi,bj) = 0. _d 0
62               gV(i,j,k,bi,bj) = 0. _d 0
63               gT(i,j,k,bi,bj) = 0. _d 0
64               gS(i,j,k,bi,bj) = 0. _d 0
65  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
66             guNm(I,J,K,bi,bj,1)=0. _d 0             guNm(i,j,k,bi,bj,1) = 0. _d 0
67             gvNm(I,J,K,bi,bj,1)=0. _d 0             gvNm(i,j,k,bi,bj,1) = 0. _d 0
68             gtNm(I,J,K,bi,bj,1)=0. _d 0             gtNm(i,j,k,bi,bj,1) = 0. _d 0
69             gsNm(I,J,K,bi,bj,1)=0. _d 0             gsNm(i,j,k,bi,bj,1) = 0. _d 0
70             guNm(I,J,K,bi,bj,2)=0. _d 0             guNm(i,j,k,bi,bj,2) = 0. _d 0
71             gvNm(I,J,K,bi,bj,2)=0. _d 0             gvNm(i,j,k,bi,bj,2) = 0. _d 0
72             gtNm(I,J,K,bi,bj,2)=0. _d 0             gtNm(i,j,k,bi,bj,2) = 0. _d 0
73             gsNm(I,J,K,bi,bj,2)=0. _d 0             gsNm(i,j,k,bi,bj,2) = 0. _d 0
74  #else  #else
75             guNm1(I,J,K,bi,bj) =0. _d 0             guNm1(i,j,k,bi,bj) = 0. _d 0
76             gvNm1(I,J,K,bi,bj) =0. _d 0             gvNm1(i,j,k,bi,bj) = 0. _d 0
77             gtNm1(I,J,K,bi,bj) =0. _d 0             gtNm1(i,j,k,bi,bj) = 0. _d 0
78             gsNm1(I,J,K,bi,bj) =0. _d 0             gsNm1(i,j,k,bi,bj) = 0. _d 0
79  #endif  #endif
80             totPhiHyd(I,J,K,bi,bj)=0. _d 0             totPhiHyd (i,j,k,bi,bj) = 0. _d 0
81               rhoInSitu (i,j,k,bi,bj) = 0. _d 0
82             IVDConvCount(i,j,k,bi,bj) = 0. _d 0             IVDConvCount(i,j,k,bi,bj) = 0. _d 0
 #ifdef ALLOW_ADDFLUID  
            addMass(I,J,K,bi,bj) = 0. _d 0  
 #endif  
83            ENDDO            ENDDO
84           ENDDO           ENDDO
85          ENDDO          ENDDO
86    
87  C-      2D arrays  C-      2D arrays
88          DO J=1-Oly,sNy+Oly          DO J=1-OLy,sNy+OLy
89           DO I=1-Olx,sNx+Olx           DO I=1-OLx,sNx+OLx
90            etaN(I,J,bi,bj)=0. _d 0            etaN(i,j,bi,bj) = 0. _d 0
91            etaH(I,J,bi,bj)=0. _d 0            etaH(i,j,bi,bj) = 0. _d 0
92            phiHydLow(I,J,bi,bj)=0. _d 0            phiHydLow(i,j,bi,bj) = 0. _d 0
93            hMixLayer(I,J,bi,bj)=0. _d 0            hMixLayer(i,j,bi,bj) = 0. _d 0
94           ENDDO           ENDDO
95          ENDDO          ENDDO
96    
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22