33 |
#include "GRID.h" |
#include "GRID.h" |
34 |
|
|
35 |
C !INPUT PARAMETERS: =================================================== |
C !INPUT PARAMETERS: =================================================== |
36 |
C bi,bj :: tile indices |
C bi,bj :: tile indices |
37 |
C k :: vertical level |
C k :: vertical level |
38 |
C vTrans :: meridional volume transport |
C vTrans :: meridional volume transport |
39 |
C vVel :: meridional flow |
C vVel :: meridional flow |
40 |
C tracer :: tracer field |
C tracer :: tracer field |
41 |
C myThid :: thread number |
C myThid :: thread number |
42 |
INTEGER bi,bj,k |
INTEGER bi,bj,k |
43 |
_RL deltaT |
_RL deltaT |
44 |
_RL vTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL vTrans(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
47 |
INTEGER myThid |
INTEGER myThid |
48 |
|
|
49 |
C !OUTPUT PARAMETERS: ================================================== |
C !OUTPUT PARAMETERS: ================================================== |
50 |
C vT :: meridional advective flux |
C vT :: meridional advective flux |
51 |
_RL vT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL vT (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
52 |
|
|
53 |
C !LOCAL VARIABLES: ==================================================== |
C !LOCAL VARIABLES: ==================================================== |
54 |
C i,j :: loop indices |
C i,j :: loop indices |
55 |
C Cr :: slope ratio |
C Cr :: slope ratio |
56 |
C Rjm,Rj,Rjp :: differences at j-1,j,j+1 |
C Rjm,Rj,Rjp :: differences at j-1,j,j+1 |
57 |
C vFld :: velocity [m/s], meridional component |
C vFld :: velocity [m/s], meridional component |
58 |
INTEGER i,j |
INTEGER i,j |
59 |
_RL Cr,Rjm,Rj,Rjp |
_RL Cr,Rjm,Rj,Rjp |
60 |
_RL vFld |
_RL vFld |