200 |
C *note* should update GMREDI_XTRANSPORT to use localT and set df *aja* |
C *note* should update GMREDI_XTRANSPORT to use localT and set df *aja* |
201 |
CALL GMREDI_XTRANSPORT( |
CALL GMREDI_XTRANSPORT( |
202 |
I iMin,iMax,jMin,jMax,bi,bj,K, |
I iMin,iMax,jMin,jMax,bi,bj,K, |
203 |
I xA,Tracer,tracerIdentity, |
I xA,Tracer, |
204 |
U df, |
U df, |
205 |
I myThid) |
I myThid) |
206 |
ENDIF |
ENDIF |
275 |
C *note* should update GMREDI_YTRANSPORT to use localT and set df *aja* |
C *note* should update GMREDI_YTRANSPORT to use localT and set df *aja* |
276 |
CALL GMREDI_YTRANSPORT( |
CALL GMREDI_YTRANSPORT( |
277 |
I iMin,iMax,jMin,jMax,bi,bj,K, |
I iMin,iMax,jMin,jMax,bi,bj,K, |
278 |
I yA,Tracer,tracerIdentity, |
I yA,Tracer, |
279 |
U df, |
U df, |
280 |
I myThid) |
I myThid) |
281 |
ENDIF |
ENDIF |
370 |
C *note* should update GMREDI_RTRANSPORT to set df *aja* |
C *note* should update GMREDI_RTRANSPORT to set df *aja* |
371 |
CALL GMREDI_RTRANSPORT( |
CALL GMREDI_RTRANSPORT( |
372 |
I iMin,iMax,jMin,jMax,bi,bj,K, |
I iMin,iMax,jMin,jMax,bi,bj,K, |
373 |
I Tracer,tracerIdentity, |
I Tracer, |
374 |
U df, |
U df, |
375 |
I myThid) |
I myThid) |
376 |
c DO j=1-Oly,sNy+Oly |
c DO j=1-Oly,sNy+Oly |