37 |
C myThid :: my Thread Id number |
C myThid :: my Thread Id number |
38 |
INTEGER iMin,iMax,jMin,jMax |
INTEGER iMin,iMax,jMin,jMax |
39 |
INTEGER bi,bj |
INTEGER bi,bj |
40 |
_RL KappaRU(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
41 |
_RL KappaRV(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr) |
_RL KappaRV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
42 |
INTEGER myThid |
INTEGER myThid |
43 |
|
|
44 |
C !LOCAL VARIABLES: |
C !LOCAL VARIABLES: |
49 |
|
|
50 |
DO k = 1,Nr |
DO k = 1,Nr |
51 |
|
|
52 |
DO j = 1-Oly, sNy+Oly |
DO j = 1-OLy, sNy+OLy |
53 |
DO i = 1-Olx, sNx+Olx |
DO i = 1-OLx, sNx+OLx |
54 |
KappaRU(i,j,k) = viscArNr(k) |
KappaRU(i,j,k) = viscArNr(k) |
55 |
KappaRV(i,j,k) = viscArNr(k) |
KappaRV(i,j,k) = viscArNr(k) |
56 |
ENDDO |
ENDDO |
68 |
I bi,bj, iMin,iMax,jMin,jMax, k, |
I bi,bj, iMin,iMax,jMin,jMax, k, |
69 |
O KappaRU,KappaRV, |
O KappaRU,KappaRV, |
70 |
I myThid) |
I myThid) |
71 |
|
#endif |
72 |
|
|
73 |
|
#ifdef ALLOW_KL10 |
74 |
|
IF (useKL10) CALL KL10_CALC_VISC( |
75 |
|
I bi,bj, iMin,iMax,jMin,jMax, k, |
76 |
|
O KappaRU,KappaRV, |
77 |
|
I myThid) |
78 |
#endif |
#endif |
79 |
|
|
80 |
#ifdef ALLOW_MY82 |
#ifdef ALLOW_MY82 |