| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
189 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
190 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d.F |
321 |
CG2D |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d.F |
322 |
CG2D |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
234 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
235 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_nsa.F |
385 |
CG2D_NSA |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_nsa.F |
386 |
CG2D_NSA |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
170 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_x(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
171 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_x(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
246 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_s(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
247 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_s(I ,J+1,bi,bj) |
|
./model/src/cg2d_sr.F |
322 |
CG2D_SR |
& +aS2d(I ,J ,bi,bj)*cg2d_y(I ,J-1,bi,bj) |
|
./model/src/cg2d_sr.F |
323 |
CG2D_SR |
& +aS2d(I ,J+1,bi,bj)*cg2d_y(I ,J+1,bi,bj) |
|
./model/src/ini_cg2d.F |
109 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
118 |
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 |
119 |
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 |
120 |
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 |
121 |
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 |
134 |
INI_CG2D |
myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
150 |
INI_CG2D |
aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
161 |
INI_CG2D |
CALL EXCH_UV_XY_RS( aW2d, aS2d, .FALSE., myThid ) |
|
./model/src/ini_cg2d.F |
219 |
INI_CG2D |
& +aS2d(i,j,bi,bj) + aS2d( i,j+1,bi,bj) |
|
./model/src/ini_cg2d.F |
245 |
INI_CG2D |
& -aS2d(i,j,bi,bj)/((cg2dpcOffDFac *(aCs+aC))**2 ) |
|
./model/src/ini_cg2d.F |
62 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_cg2d.F |
95 |
INI_CG2D |
aS2d(i,j,bi,bj) = 0. _d 0 |
|
./model/src/update_cg2d.F |
100 |
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 |
101 |
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 |
102 |
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 |
103 |
UPDATE_CG2D |
IF (OB_Js(I,bi,bj).NE.0) aS2d(I,OB_Js(I,bi,bj),bi,bj)=0. |
|
./model/src/update_cg2d.F |
117 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj)*cg2dNorm |
|
./model/src/update_cg2d.F |
128 |
UPDATE_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/update_cg2d.F |
139 |
UPDATE_CG2D |
& +aS2d(I,J,bi,bj) + aS2d(I ,J+1,bi,bj) |
|
./model/src/update_cg2d.F |
176 |
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 |
89 |
UPDATE_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj) |
|
./model/inc/CG2D.h |
36 |
NO PROCEDURE |
& aW2d, aS2d, aC2d, |
|
./model/inc/CG2D.h |
40 |
NO PROCEDURE |
_RS aS2d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |