/[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.3 by heimbach, Fri Jul 13 14:26:57 2001 UTC revision 1.22 by gforget, Wed Feb 17 00:21:07 2010 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6    CBOP
7    C     !ROUTINE: INI_DYNVARS
8    C     !INTERFACE:
9        SUBROUTINE INI_DYNVARS( myThid )        SUBROUTINE INI_DYNVARS( myThid )
10  C     /==========================================================\  C     !DESCRIPTION: \bv
11  C     | SUBROUTINE INI_DYNVARS                                   |  C     *==========================================================*
12  C     | o Initialise to zero all DYNVARS.h arrays                |  C     | SUBROUTINE INI_DYNVARS
13  C     \==========================================================/  C     | o Initialise to zero all DYNVARS.h arrays
14        IMPLICIT NONE  C     *==========================================================*
15    C     | Sets all the State variables to zero.
16  C     Sets all the State variables to zero.  C     | Sets all the Gs (arrays used for multi-level time-stepping)
17  C     Sets all the Gs (arrays used for multi-level time-stepping)  C     | to zero.
18  C     to zero.  C     *==========================================================*
19    C     \ev
20    
21    C     !USES:
22          IMPLICIT NONE
23  C     === Global variables ===  C     === Global variables ===
24  #include "SIZE.h"  #include "SIZE.h"
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:
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
 CEndOfInterface  
33    
34    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
41    
42  C--   Over all tiles  C--   Over all tiles
43        DO bj = myByLo(myThid), myByHi(myThid)        DO bj = myByLo(myThid), myByHi(myThid)
# Line 53  C-      3D arrays Line 58  C-      3D arrays
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             gT(I,J,K,bi,bj)=0. _d 0
60             gS(I,J,K,bi,bj)=0. _d 0             gS(I,J,K,bi,bj)=0. _d 0
61             gUnm1(I,J,K,bi,bj)=0. _d 0  #ifdef ALLOW_ADAMSBASHFORTH_3
62             gVnm1(I,J,K,bi,bj)=0. _d 0             guNm(I,J,K,bi,bj,1)=0. _d 0
63             gTnm1(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,1)=0. _d 0
64             gSnm1(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,1)=0. _d 0
65               gsNm(I,J,K,bi,bj,1)=0. _d 0
66  #ifdef INCLUDE_CD_CODE             guNm(I,J,K,bi,bj,2)=0. _d 0
67             guCD(I,J,K,bi,bj)=0. _d 0             gvNm(I,J,K,bi,bj,2)=0. _d 0
68             gvCD(I,J,K,bi,bj)=0. _d 0             gtNm(I,J,K,bi,bj,2)=0. _d 0
69             uNM1(I,J,K,bi,bj)=0. _d 0             gsNm(I,J,K,bi,bj,2)=0. _d 0
70             vNM1(I,J,K,bi,bj)=0. _d 0  #else
71             uVeld(I,J,K,bi,bj)=0. _d 0             guNm1(I,J,K,bi,bj) =0. _d 0
72             vVeld(I,J,K,bi,bj)=0. _d 0             gvNm1(I,J,K,bi,bj) =0. _d 0
73               gtNm1(I,J,K,bi,bj) =0. _d 0
74               gsNm1(I,J,K,bi,bj) =0. _d 0
75  #endif  #endif
76               totPhiHyd(I,J,K,bi,bj)=0. _d 0
77  #ifdef ALLOW_NONHYDROSTATIC             rhoInSitu(I,J,K,bi,bj)=0. _d 0
78             gW(I,J,K,bi,bj)=0. _d 0             IVDConvCount(i,j,k,bi,bj) = 0. _d 0
79             gWnm1(I,J,K,bi,bj)=0. _d 0  #ifdef ALLOW_ADDFLUID
80               addMass(I,J,K,bi,bj) = 0. _d 0
81    #endif
82    #ifdef ALLOW_3D_VISCAH
83               viscAhDfld(I,J,K,bi,bj) = 0. _d 0
84               viscAhZfld(I,J,K,bi,bj) = 0. _d 0
85    #endif
86    #ifdef ALLOW_3D_VISCA4          
87               viscA4Dfld(I,J,K,bi,bj) = 0. _d 0
88               viscA4Zfld(I,J,K,bi,bj) = 0. _d 0
89    #endif          
90    #ifdef ALLOW_3D_DIFFKR
91                diffKr(I,J,K,bi,bj) = 0. _d 0
92  #endif  #endif
   
93            ENDDO            ENDDO
94           ENDDO           ENDDO
95          ENDDO          ENDDO
# Line 80  C-      2D arrays Line 98  C-      2D arrays
98          DO J=1-Oly,sNy+Oly          DO J=1-Oly,sNy+Oly
99           DO I=1-Olx,sNx+Olx           DO I=1-Olx,sNx+Olx
100            etaN(I,J,bi,bj)=0. _d 0            etaN(I,J,bi,bj)=0. _d 0
101            etaNm1(I,J,bi,bj)=0. _d 0            etaH(I,J,bi,bj)=0. _d 0
102              phiHydLow(I,J,bi,bj)=0. _d 0
103              hMixLayer(I,J,bi,bj)=0. _d 0
104           ENDDO           ENDDO
105          ENDDO          ENDDO
106    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22