/[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.15 by jmc, Fri Apr 15 14:02:54 2005 UTC revision 1.20 by jmc, Sun Aug 24 21:32:17 2008 UTC
# Line 9  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 25  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  
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 76  C-      3D arrays Line 73  C-      3D arrays
73             gtNm1(I,J,K,bi,bj) =0. _d 0             gtNm1(I,J,K,bi,bj) =0. _d 0
74             gsNm1(I,J,K,bi,bj) =0. _d 0             gsNm1(I,J,K,bi,bj) =0. _d 0
75  #endif  #endif
   
 #ifdef ALLOW_NONHYDROSTATIC  
 ceh3 needs an IF ( useNONHYDROSTATIC ) THEN  
            gW(I,J,K,bi,bj)=0. _d 0  
            gWnm1(I,J,K,bi,bj)=0. _d 0  
 #endif  
   
76             totPhiHyd(I,J,K,bi,bj)=0. _d 0             totPhiHyd(I,J,K,bi,bj)=0. _d 0
77             IVDConvCount(i,j,k,bi,bj) = 0. _d 0             IVDConvCount(i,j,k,bi,bj) = 0. _d 0
78    #ifdef ALLOW_ADDFLUID
79               addMass(I,J,K,bi,bj) = 0. _d 0
80    #endif
81            ENDDO            ENDDO
82           ENDDO           ENDDO
83          ENDDO          ENDDO
# Line 95  C-      2D arrays Line 88  C-      2D arrays
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            phiHydLow(I,J,bi,bj)=0. _d 0            phiHydLow(I,J,bi,bj)=0. _d 0
91              hMixLayer(I,J,bi,bj)=0. _d 0
92           ENDDO           ENDDO
93          ENDDO          ENDDO
94    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22