67 |
gSnm1(I,J,K,bi,bj)=0. _d 0 |
gSnm1(I,J,K,bi,bj)=0. _d 0 |
68 |
|
|
69 |
#ifdef INCLUDE_CD_CODE |
#ifdef INCLUDE_CD_CODE |
|
guCD(I,J,K,bi,bj)=0. _d 0 |
|
|
gvCD(I,J,K,bi,bj)=0. _d 0 |
|
70 |
uNM1(I,J,K,bi,bj)=0. _d 0 |
uNM1(I,J,K,bi,bj)=0. _d 0 |
71 |
vNM1(I,J,K,bi,bj)=0. _d 0 |
vNM1(I,J,K,bi,bj)=0. _d 0 |
72 |
uVeld(I,J,K,bi,bj)=0. _d 0 |
uVeld(I,J,K,bi,bj)=0. _d 0 |
78 |
gWnm1(I,J,K,bi,bj)=0. _d 0 |
gWnm1(I,J,K,bi,bj)=0. _d 0 |
79 |
#endif |
#endif |
80 |
|
|
81 |
|
totPhiHyd(I,J,K,bi,bj)=0. _d 0 |
82 |
ENDDO |
ENDDO |
83 |
ENDDO |
ENDDO |
84 |
ENDDO |
ENDDO |
91 |
#ifdef INCLUDE_CD_CODE |
#ifdef INCLUDE_CD_CODE |
92 |
etaNm1(I,J,bi,bj)=0. _d 0 |
etaNm1(I,J,bi,bj)=0. _d 0 |
93 |
#endif |
#endif |
94 |
|
phiHydLow(I,J,bi,bj)=0. _d 0 |
95 |
ENDDO |
ENDDO |
96 |
ENDDO |
ENDDO |
97 |
|
|