/[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.2 by adcroft, Tue May 29 14:01:37 2001 UTC revision 1.12 by edhill, Thu Oct 30 12:00:41 2003 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7    CBOP
8    C     !ROUTINE: INI_DYNVARS
9    C     !INTERFACE:
10        SUBROUTINE INI_DYNVARS( myThid )        SUBROUTINE INI_DYNVARS( myThid )
11  C     /==========================================================\  C     !DESCRIPTION: \bv
12  C     | SUBROUTINE INI_DYNVARS                                   |  C     *==========================================================*
13  C     | o Initialise to zero all DYNVARS.h arrays                |  C     | SUBROUTINE INI_DYNVARS                                    
14  C     \==========================================================/  C     | o Initialise to zero all DYNVARS.h arrays                  
15        IMPLICIT NONE  C     *==========================================================*
16    C     | Sets all the State variables to zero.
17  C     Sets all the State variables to zero.  C     | Sets all the Gs (arrays used for multi-level time-stepping)
18  C     Sets all the Gs (arrays used for multi-level time-stepping)  C     | to zero.
19  C     to zero.  C     *==========================================================*
20    C     \ev
21    
22    C     !USES:
23          IMPLICIT NONE
24  C     === Global variables ===  C     === Global variables ===
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 22  C     === Global variables === Line 29  C     === Global variables ===
29  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
30  #include "GW.h"  #include "GW.h"
31  #endif  #endif
32    #ifdef ALLOW_CD_CODE
33    #include "CD_CODE_VARS.h"
34    #endif
35    
36    C     !INPUT/OUTPUT PARAMETERS:
37  C     == Routine arguments ==  C     == Routine arguments ==
38  C     myThid -  Number of this instance of INI_UVEL  C     myThid -  Number of this instance of INI_UVEL
39        INTEGER myThid        INTEGER myThid
 CEndOfInterface  
40    
41    C     !LOCAL VARIABLES:
42  C     == Local variables ==  C     == Local variables ==
43  C     bi,bj  - Loop counters  C     bi,bj  - Loop counters
44  C     I,J,K  C     I,J,K
45        INTEGER bi, bj        INTEGER bi, bj
46        INTEGER  I,  J, K        INTEGER  I,  J, K
47    CEOP
48    
49  C--   Over all tiles  C--   Over all tiles
50        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
# Line 43  C-      3D arrays Line 55  C-      3D arrays
55           DO J=1-Oly,sNy+Oly           DO J=1-Oly,sNy+Oly
56            DO I=1-Olx,sNx+Olx            DO I=1-Olx,sNx+Olx
57    
58             uVel(I,J,K,bi,bj)=0.             uVel(I,J,K,bi,bj)=0. _d 0
59             vVel(I,J,K,bi,bj)=0.             vVel(I,J,K,bi,bj)=0. _d 0
60             wVel(I,J,K,bi,bj)=0.             wVel(I,J,K,bi,bj)=0. _d 0
61             theta(I,J,K,bi,bj)=0.             theta(I,J,K,bi,bj)=0. _d 0
62             salt(I,J,K,bi,bj)=0.             salt(I,J,K,bi,bj)=0. _d 0
63    
64             gU(I,J,K,bi,bj)=0.             gU(I,J,K,bi,bj)=0. _d 0
65             gV(I,J,K,bi,bj)=0.             gV(I,J,K,bi,bj)=0. _d 0
66             gT(I,J,K,bi,bj)=0.             gT(I,J,K,bi,bj)=0. _d 0
67             gS(I,J,K,bi,bj)=0.             gS(I,J,K,bi,bj)=0. _d 0
68             gUnm1(I,J,K,bi,bj)=0.             gUnm1(I,J,K,bi,bj)=0. _d 0
69             gVnm1(I,J,K,bi,bj)=0.             gVnm1(I,J,K,bi,bj)=0. _d 0
70             gTnm1(I,J,K,bi,bj)=0.             gTnm1(I,J,K,bi,bj)=0. _d 0
71             gSnm1(I,J,K,bi,bj)=0.             gSnm1(I,J,K,bi,bj)=0. _d 0
72    
73  #ifdef INCLUDE_CD_CODE  #ifdef ALLOW_CD_CODE
74             guCD(I,J,K,bi,bj)=0.             uNM1(I,J,K,bi,bj)=0. _d 0
75             gvCD(I,J,K,bi,bj)=0.             vNM1(I,J,K,bi,bj)=0. _d 0
76             uNM1(I,J,K,bi,bj)=0.             uVeld(I,J,K,bi,bj)=0. _d 0
77             vNM1(I,J,K,bi,bj)=0.             vVeld(I,J,K,bi,bj)=0. _d 0
            uVeld(I,J,K,bi,bj)=0.  
            vVeld(I,J,K,bi,bj)=0.  
78  #endif  #endif
79    
80  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
81             gW(I,J,K,bi,bj)=0.  ceh3 needs an IF ( useNONHYDROSTATIC ) THEN
82             gWnm1(I,J,K,bi,bj)=0.             gW(I,J,K,bi,bj)=0. _d 0
83               gWnm1(I,J,K,bi,bj)=0. _d 0
84  #endif  #endif
85    
86               totPhiHyd(I,J,K,bi,bj)=0. _d 0
87            ENDDO            ENDDO
88           ENDDO           ENDDO
89          ENDDO          ENDDO
# Line 79  C-      3D arrays Line 91  C-      3D arrays
91  C-      2D arrays  C-      2D arrays
92          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
93           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
94            etaN(I,J,bi,bj)=0.            etaN(I,J,bi,bj)=0. _d 0
95            etaNm1(I,J,bi,bj)=0.            etaH(I,J,bi,bj)=0. _d 0
96    #ifdef ALLOW_CD_CODE
97              etaNm1(I,J,bi,bj)=0. _d 0
98    #endif
99              phiHydLow(I,J,bi,bj)=0. _d 0
100           ENDDO           ENDDO
101          ENDDO          ENDDO
102    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22