Parent Directory | Revision Log | Revision Graph | Patch
revision 1.6 by mlosch, Thu Sep 2 09:13:49 2004 UTC | revision 1.7 by mlosch, Thu Sep 16 09:35:11 2004 UTC | |
---|---|---|
# | Line 78 CEOP | Line 78 CEOP |
78 | I myThid) | I myThid) |
79 | #endif | #endif |
80 | ||
81 | #ifdef ALLOW_GGL90 | |
82 | IF (useGGL90) CALL GGL90_CALC_VISC( | |
83 | I bi,bj,iMin+1,iMax,jMin+1,jMax,K, | |
84 | O KappaRU,KappaRV, | |
85 | I myThid) | |
86 | #endif | |
87 | ||
88 | ||
89 | RETURN | RETURN |
90 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |