5 |
SUBROUTINE GMREDI_CALC_DIFF( |
SUBROUTINE GMREDI_CALC_DIFF( |
6 |
I bi,bj,iMin,iMax,jMin,jMax,K, |
I bi,bj,iMin,iMax,jMin,jMax,K, |
7 |
I maskUp, |
I maskUp, |
8 |
O KappaRT,KappaRS, |
U KappaRT,KappaRS, |
9 |
I myThid) |
I myThid) |
10 |
|
|
11 |
C /==========================================================\ |
C /==========================================================\ |
43 |
KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)* |
KappaRT(i,j,k) = KappaRT(i,j,k)+maskUp(i,j)* |
44 |
& ( GM_background_K |
& ( GM_background_K |
45 |
#ifdef GM_VISBECK_VARIABLE_K |
#ifdef GM_VISBECK_VARIABLE_K |
46 |
& + VisbeckK(i,j,myThid) |
& + VisbeckK(i,j,bi,bj) |
47 |
#endif |
#endif |
48 |
& )*Kwz(i,j,k,myThid) |
& )*Kwz(i,j,k,bi,bj) |
49 |
ENDDO |
ENDDO |
50 |
ENDDO |
ENDDO |
51 |
|
|
54 |
KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)* |
KappaRS(i,j,k) = KappaRS(i,j,k)+maskUp(i,j)* |
55 |
& ( GM_background_K |
& ( GM_background_K |
56 |
#ifdef GM_VISBECK_VARIABLE_K |
#ifdef GM_VISBECK_VARIABLE_K |
57 |
& + VisbeckK(i,j,myThid) |
& + VisbeckK(i,j,bi,bj) |
58 |
#endif |
#endif |
59 |
& )*Kwz(i,j,k,myThid) |
& )*Kwz(i,j,k,bi,bj) |
60 |
ENDDO |
ENDDO |
61 |
ENDDO |
ENDDO |
62 |
|
|