84 |
ENDDO |
ENDDO |
85 |
ENDIF |
ENDIF |
86 |
|
|
|
#ifdef ALLOW_GMREDI |
|
|
IF ( PTRACERS_useGMRedi(iTr) ) THEN |
|
|
CALL GMREDI_CALC_DIFF( |
|
|
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
|
|
U KappaRtr(1-Olx,1-Oly,iTr), |
|
|
I myThid) |
|
|
ENDIF |
|
|
#endif |
|
|
|
|
87 |
#ifdef ALLOW_KPP |
#ifdef ALLOW_KPP |
88 |
IF ( PTRACERS_useKPP(iTr) ) THEN |
IF ( PTRACERS_useKPP(iTr) ) THEN |
89 |
|
C-- Set vertical diffusivity contribution from KPP |
90 |
CALL KPP_CALC_DIFF_S( |
CALL KPP_CALC_DIFF_S( |
91 |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
I bi,bj,iMin+1,iMax,jMin+1,jMax,k,1, |
92 |
|
O KappaRtr(1-Olx,1-Oly,iTr), |
93 |
|
I myThid) |
94 |
|
ENDIF |
95 |
|
#endif |
96 |
|
|
97 |
|
#ifdef ALLOW_GMREDI |
98 |
|
IF ( PTRACERS_useGMRedi(iTr) ) THEN |
99 |
|
CALL GMREDI_CALC_DIFF( |
100 |
|
I bi,bj,iMin,iMax,jMin,jMax,k,1, |
101 |
U KappaRtr(1-Olx,1-Oly,iTr), |
U KappaRtr(1-Olx,1-Oly,iTr), |
102 |
I myThid) |
I myThid) |
103 |
ENDIF |
ENDIF |