| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
105 |
INI_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) + |
|
./model/src/ini_cg2d.F |
114 |
INI_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/ini_cg2d.F |
115 |
INI_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
116 |
INI_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/ini_cg2d.F |
117 |
INI_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/ini_cg2d.F |
130 |
INI_CG2D |
myNorm = MAX(ABS(aS2d(I,J,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
156 |
INI_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
169 |
INI_CG2D |
CALL EXCH_UV_XY_RS(aW2d,aS2d,.FALSE.,myThid) |
|
./model/src/ini_cg2d.F |
226 |
INI_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/ini_cg2d.F |
232 |
INI_CG2D |
& +aS2d(I,J-1,bi,bj) + aS2d(I ,J ,bi,bj) |
|
./model/src/ini_cg2d.F |
238 |
INI_CG2D |
& +aS2d(I-1,J,bi,bj) + aS2d(I-1,J+1,bi,bj) |
|
./model/src/ini_cg2d.F |
257 |
INI_CG2D |
& -aS2d(I ,J ,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
67 |
INI_CG2D |
aS2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
92 |
INI_CG2D |
aS2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/cg2d.F |
181 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
182 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
185 |
CG2D |
& -aS2d(I ,J ,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
186 |
CG2D |
& -aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
308 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
309 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
312 |
CG2D |
& -aS2d(I ,J ,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/src/cg2d.F |
313 |
CG2D |
& -aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J ,bi,bj) |
|
./model/inc/CG2D_INTERNAL.h |
28 |
NO PROCEDURE |
& aS2d, |
|
./model/inc/CG2D_INTERNAL.h |
32 |
NO PROCEDURE |
_RS aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/inc/CG2D.h |
40 |
NO PROCEDURE |
& aS2d, |
|
./model/inc/CG2D.h |
44 |
NO PROCEDURE |
_RS aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./model/src/update_cg2d.F |
113 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
123 |
UPDATE_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/update_cg2d.F |
160 |
UPDATE_CG2D |
& -aS2d(I,J,bi,bj)/((cg2dpcOffDFac *pS_tmp)**2 ) |
|
./model/src/update_cg2d.F |
76 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
88 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) + |
|
./model/src/update_cg2d.F |
96 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
97 |
UPDATE_CG2D |
IF (OB_Jn(I,bi,bj).NE.0) aS2d(I,OB_Jn(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/update_cg2d.F |
98 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj)+1,bi,bj)=0. |
|
./model/src/update_cg2d.F |
99 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |