Parent Directory | Revision Log | Revision Graph | Patch
revision 1.5 by edhill, Thu Oct 9 04:19:18 2003 UTC | revision 1.6 by mlosch, Thu Sep 2 09:13:49 2004 UTC | |
---|---|---|
# | Line 64 CEOP | Line 64 CEOP |
64 | I myThid) | I myThid) |
65 | #endif | #endif |
66 | ||
67 | #ifdef ALLOW_PP81 | |
68 | IF (usePP81) CALL PP81_CALC_VISC( | |
69 | I bi,bj,iMin+1,iMax,jMin+1,jMax,K, | |
70 | O KappaRU,KappaRV, | |
71 | I myThid) | |
72 | #endif | |
73 | ||
74 | #ifdef ALLOW_MY82 | |
75 | IF (useMY82) CALL MY82_CALC_VISC( | |
76 | I bi,bj,iMin+1,iMax,jMin+1,jMax,K, | |
77 | O KappaRU,KappaRV, | |
78 | I myThid) | |
79 | #endif | |
80 | ||
81 | ||
82 | RETURN | RETURN |
83 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |