|
C $Header$ |
|
|
C $Name$ |
|
1 |
|
|
2 |
#include "GMREDI_OPTIONS.h" |
#include "GMREDI_OPTIONS.h" |
3 |
|
|
35 |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k |
36 |
_RS xA(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RS xA(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
37 |
_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) |
38 |
|
integer tracerIdentity |
39 |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
INTEGER tracerIdentity |
|
40 |
INTEGER myThid |
INTEGER myThid |
41 |
|
|
42 |
#ifdef ALLOW_GMREDI |
#ifdef ALLOW_GMREDI |
90 |
#else |
#else |
91 |
& *(GM_isopycK |
& *(GM_isopycK |
92 |
#ifdef GM_VISBECK_VARIABLE_K |
#ifdef GM_VISBECK_VARIABLE_K |
93 |
& +0.5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
cph & +0.5*(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj)) |
94 |
#endif |
#endif |
95 |
& ) |
& ) |
96 |
#endif /* GM_NON_UNITY_DIAGONAL */ |
#endif /* GM_NON_UNITY_DIAGONAL */ |