Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by jmc, Sun Jan 3 18:48:53 2010 UTC | revision 1.6 by gforget, Mon Aug 9 20:34:03 2010 UTC | |
---|---|---|
# | Line 37 C- 3D arrays | Line 37 C- 3D arrays |
37 | c Km1 = MAX(K-1,1) | c Km1 = MAX(K-1,1) |
38 | DO J=1-Oly,sNy+Oly | DO J=1-Oly,sNy+Oly |
39 | DO I=1-Olx,sNx+Olx | DO I=1-Olx,sNx+Olx |
40 | GGL90viscArU(I,J,K,bi,bj) = 0. _d 0 | |
41 | GGL90viscArV(I,J,K,bi,bj) = 0. _d 0 | |
42 | GGL90diffKr(I,J,K,bi,bj) = 0. _d 0 | |
43 | CML GGL90TKE(I,J,K,bi,bj)=0. _d 0 | CML GGL90TKE(I,J,K,bi,bj)=0. _d 0 |
44 | GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) | GGL90TKE(I,J,K,bi,bj)=GGL90TKEmin*maskC(I,J,K,bi,bj) |
45 | C | C |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |