5 |
|
|
6 |
subroutine GMREDI_RTRANSPORT( |
subroutine GMREDI_RTRANSPORT( |
7 |
I iMin,iMax,jMin,jMax,bi,bj,K, |
I iMin,iMax,jMin,jMax,bi,bj,K, |
8 |
I maskUp,Tracer, |
I Tracer, |
9 |
U df, |
U df, |
10 |
I myThid) |
I myThid) |
11 |
C /==========================================================\ |
C /==========================================================\ |
30 |
C Tracer - 3D Tracer field |
C Tracer - 3D Tracer field |
31 |
C df - Diffusive flux component work array. |
C df - Diffusive flux component work array. |
32 |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
|
_RS maskUp(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
33 |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
_RL Tracer(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
34 |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
35 |
INTEGER myThid |
INTEGER myThid |