/[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.12 by edhill, Thu Oct 30 12:00:41 2003 UTC revision 1.27 by jmc, Tue Jan 20 20:46:55 2015 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "PACKAGES_CONFIG.h"  
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CBOP  CBOP
# Line 10  C     !INTERFACE: Line 9  C     !INTERFACE:
9        SUBROUTINE INI_DYNVARS( myThid )        SUBROUTINE INI_DYNVARS( myThid )
10  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
11  C     *==========================================================*  C     *==========================================================*
12  C     | SUBROUTINE INI_DYNVARS                                      C     | SUBROUTINE INI_DYNVARS
13  C     | o Initialise to zero all DYNVARS.h arrays                    C     | o Initialise to zero all DYNVARS.h arrays
14  C     *==========================================================*  C     *==========================================================*
15  C     | Sets all the State variables to zero.  C     | Sets all the State variables to zero.
16  C     | Sets all the Gs (arrays used for multi-level time-stepping)  C     | Sets all the Gs (arrays used for multi-level time-stepping)
# Line 26  C     === Global variables === Line 25  C     === Global variables ===
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "DYNVARS.h"  #include "DYNVARS.h"
 #ifdef ALLOW_NONHYDROSTATIC  
 #include "GW.h"  
 #endif  
 #ifdef ALLOW_CD_CODE  
 #include "CD_CODE_VARS.h"  
 #endif  
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
31  C     myThid -  Number of this instance of INI_UVEL  C     myThid  :: my Thread Id. number
32        INTEGER myThid        INTEGER myThid
33    
34  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
35  C     == Local variables ==  C     == Local variables ==
36  C     bi,bj  - Loop counters  C     bi,bj   :: tile indices
37  C     I,J,K  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 51  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             theta(i,j,k,bi,bj) = 0. _d 0
55             salt(I,J,K,bi,bj)=0. _d 0             salt (i,j,k,bi,bj) = 0. _d 0
56    
57             gU(I,J,K,bi,bj)=0. _d 0             gU(i,j,k,bi,bj) = 0. _d 0
58             gV(I,J,K,bi,bj)=0. _d 0             gV(i,j,k,bi,bj) = 0. _d 0
59             gT(I,J,K,bi,bj)=0. _d 0  #ifdef USE_OLD_EXTERNAL_FORCING
60             gS(I,J,K,bi,bj)=0. _d 0             gT(i,j,k,bi,bj) = 0. _d 0
61             gUnm1(I,J,K,bi,bj)=0. _d 0             gS(i,j,k,bi,bj) = 0. _d 0
            gVnm1(I,J,K,bi,bj)=0. _d 0  
            gTnm1(I,J,K,bi,bj)=0. _d 0  
            gSnm1(I,J,K,bi,bj)=0. _d 0  
   
 #ifdef ALLOW_CD_CODE  
            uNM1(I,J,K,bi,bj)=0. _d 0  
            vNM1(I,J,K,bi,bj)=0. _d 0  
            uVeld(I,J,K,bi,bj)=0. _d 0  
            vVeld(I,J,K,bi,bj)=0. _d 0  
62  #endif  #endif
63    #ifdef ALLOW_ADAMSBASHFORTH_3
64  #ifdef ALLOW_NONHYDROSTATIC             guNm(i,j,k,bi,bj,1) = 0. _d 0
65  ceh3 needs an IF ( useNONHYDROSTATIC ) THEN             gvNm(i,j,k,bi,bj,1) = 0. _d 0
66             gW(I,J,K,bi,bj)=0. _d 0             gtNm(i,j,k,bi,bj,1) = 0. _d 0
67             gWnm1(I,J,K,bi,bj)=0. _d 0             gsNm(i,j,k,bi,bj,1) = 0. _d 0
68               guNm(i,j,k,bi,bj,2) = 0. _d 0
69               gvNm(i,j,k,bi,bj,2) = 0. _d 0
70               gtNm(i,j,k,bi,bj,2) = 0. _d 0
71               gsNm(i,j,k,bi,bj,2) = 0. _d 0
72    #else
73               guNm1(i,j,k,bi,bj) = 0. _d 0
74               gvNm1(i,j,k,bi,bj) = 0. _d 0
75               gtNm1(i,j,k,bi,bj) = 0. _d 0
76               gsNm1(i,j,k,bi,bj) = 0. _d 0
77  #endif  #endif
78               totPhiHyd (i,j,k,bi,bj) = 0. _d 0
79             totPhiHyd(I,J,K,bi,bj)=0. _d 0             rhoInSitu (i,j,k,bi,bj) = 0. _d 0
80               IVDConvCount(i,j,k,bi,bj) = 0. _d 0
81            ENDDO            ENDDO
82           ENDDO           ENDDO
83          ENDDO          ENDDO
84    
85  C-      2D arrays  C-      2D arrays
86          DO J=1-Oly,sNy+Oly          DO J=1-OLy,sNy+OLy
87           DO I=1-Olx,sNx+Olx           DO I=1-OLx,sNx+OLx
88            etaN(I,J,bi,bj)=0. _d 0            etaN(i,j,bi,bj) = 0. _d 0
89            etaH(I,J,bi,bj)=0. _d 0            etaH(i,j,bi,bj) = 0. _d 0
90  #ifdef ALLOW_CD_CODE            phiHydLow(i,j,bi,bj) = 0. _d 0
91            etaNm1(I,J,bi,bj)=0. _d 0            hMixLayer(i,j,bi,bj) = 0. _d 0
 #endif  
           phiHydLow(I,J,bi,bj)=0. _d 0  
92           ENDDO           ENDDO
93          ENDDO          ENDDO
94    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22