37 |
uvel0(i,j,k,bi,bj) = 0. _d 0 |
uvel0(i,j,k,bi,bj) = 0. _d 0 |
38 |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
vvel0(i,j,k,bi,bj) = 0. _d 0 |
39 |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
wvel0(i,j,k,bi,bj) = 0. _d 0 |
40 |
|
conv0(i,j,k,bi,bj) = 0. _d 0 |
41 |
|
gmkx0(i,j,k,bi,bj) = 0. _d 0 |
42 |
|
gmky0(i,j,k,bi,bj) = 0. _d 0 |
43 |
|
gmkz0(i,j,k,bi,bj) = 0. _d 0 |
44 |
c |
c |
45 |
save1(i,j,k,bi,bj) = 0. _d 0 |
save1(i,j,k,bi,bj) = 0. _d 0 |
46 |
tave1(i,j,k,bi,bj) = 0. _d 0 |
tave1(i,j,k,bi,bj) = 0. _d 0 |
47 |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
uvel1(i,j,k,bi,bj) = 0. _d 0 |
48 |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
vvel1(i,j,k,bi,bj) = 0. _d 0 |
49 |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
wvel1(i,j,k,bi,bj) = 0. _d 0 |
50 |
|
conv1(i,j,k,bi,bj) = 0. _d 0 |
51 |
|
gmkx1(i,j,k,bi,bj) = 0. _d 0 |
52 |
|
gmky1(i,j,k,bi,bj) = 0. _d 0 |
53 |
|
gmkz1(i,j,k,bi,bj) = 0. _d 0 |
54 |
ENDDO |
ENDDO |
55 |
ENDDO |
ENDDO |
56 |
ENDDO |
ENDDO |
57 |
|
DO j=1-Oly,sNy+OLy |
58 |
|
DO i=1-Olx,sNx+Olx |
59 |
|
hflx0(i,j,bi,bj) = 0. _d 0 |
60 |
|
sflx0(i,j,bi,bj) = 0. _d 0 |
61 |
|
hflx1(i,j,bi,bj) = 0. _d 0 |
62 |
|
sflx1(i,j,bi,bj) = 0. _d 0 |
63 |
|
ENDDO |
64 |
|
ENDDO |
65 |
ENDDO |
ENDDO |
66 |
ENDDO |
ENDDO |
67 |
|
|