157 |
ENDDO |
ENDDO |
158 |
ENDDO |
ENDDO |
159 |
#ifdef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
160 |
IF (use_GMRedi) CALL GMREDI_XTRANSPORT( |
IF (useGMRedi) CALL GMREDI_XTRANSPORT( |
161 |
I iMin,iMax,jMin,jMax,bi,bj,K, |
I iMin,iMax,jMin,jMax,bi,bj,K, |
162 |
I xA,salt, |
I xA,salt, |
163 |
U df, |
U df, |
195 |
ENDDO |
ENDDO |
196 |
ENDDO |
ENDDO |
197 |
#ifdef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
198 |
IF (use_GMRedi) CALL GMREDI_YTRANSPORT( |
IF (useGMRedi) CALL GMREDI_YTRANSPORT( |
199 |
I iMin,iMax,jMin,jMax,bi,bj,K, |
I iMin,iMax,jMin,jMax,bi,bj,K, |
200 |
I yA,salt, |
I yA,salt, |
201 |
U df, |
U df, |
249 |
ENDIF |
ENDIF |
250 |
|
|
251 |
#ifdef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
252 |
IF (use_GMRedi) CALL GMREDI_RTRANSPORT( |
IF (useGMRedi) CALL GMREDI_RTRANSPORT( |
253 |
I iMin,iMax,jMin,jMax,bi,bj,K, |
I iMin,iMax,jMin,jMax,bi,bj,K, |
254 |
I maskUp,salt, |
I maskUp,salt, |
255 |
U df, |
U df, |
258 |
|
|
259 |
#ifdef ALLOW_KPP |
#ifdef ALLOW_KPP |
260 |
C-- Add non-local KPP transport term (ghat) to diffusive salt flux. |
C-- Add non-local KPP transport term (ghat) to diffusive salt flux. |
261 |
IF (use_KPPmixing) CALL KPP_TRANSPORT_S( |
IF (useKPP) CALL KPP_TRANSPORT_S( |
262 |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
263 |
I maskC,KappaRS, |
I maskC,KappaRS, |
264 |
U df ) |
U df ) |