| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg3d.F |
123 |
INI_CG3D |
aW3d(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
124 |
INI_CG3D |
aW3d(I+1,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
130 |
INI_CG3D |
aW3d(I,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
131 |
INI_CG3D |
aW3d(I+1,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
137 |
INI_CG3D |
aW3d(OB_Ie(J,bi,bj),J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
138 |
INI_CG3D |
aW3d(OB_Ie(J,bi,bj)+1,J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
144 |
INI_CG3D |
aW3d(OB_Iw(J,bi,bj)+1,J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
145 |
INI_CG3D |
aW3d(OB_Iw(J,bi,bj),J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
177 |
INI_CG3D |
aW3d(I,J,K,bi,bj) = aW3d(I,J,K,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
187 |
INI_CG3D |
_EXCH_XYZ_R4(aW3d, myThid) |
|
./model/src/ini_cg3d.F |
205 |
INI_CG3D |
aW = aW3d(I ,J,K,bi,bj) |
|
./model/src/ini_cg3d.F |
206 |
INI_CG3D |
aE = aW3d(I+1,J,K,bi,bj) |
|
./model/src/ini_cg3d.F |
262 |
INI_CG3D |
aW = aW3d(I ,J,K,bi,bj) |
|
./model/src/ini_cg3d.F |
263 |
INI_CG3D |
aE = aW3d(I+1,J,K,bi,bj) |
|
./model/src/ini_cg3d.F |
78 |
INI_CG3D |
aW3d(I,J,K,bi,bj) = faceArea*recip_dxC(I,J,bi,bj) |
|
./model/src/ini_cg3d.F |
82 |
INI_CG3D |
myNorm = MAX(ABS(aW3d(I,J,K,bi,bj)),myNorm) |
|
./model/src/cg3d.F |
171 |
CG3D |
& +aW3d(I ,J ,K ,bi,bj)*cg3d_x(I-1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
172 |
CG3D |
& +aW3d(I+1,J ,K ,bi,bj)*cg3d_x(I+1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
177 |
CG3D |
& -aW3d(I ,J ,K ,bi,bj)*cg3d_x(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
178 |
CG3D |
& -aW3d(I+1,J ,K ,bi,bj)*cg3d_x(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
364 |
CG3D |
& aW3d(I ,J ,K ,bi,bj)*cg3d_s(I-1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
365 |
CG3D |
& +aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I+1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
369 |
CG3D |
& -aW3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
370 |
CG3D |
& -aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
385 |
CG3D |
& aW3d(I ,J ,K ,bi,bj)*cg3d_s(I-1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
386 |
CG3D |
& +aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I+1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
389 |
CG3D |
& -aW3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
390 |
CG3D |
& -aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
404 |
CG3D |
& aW3d(I ,J ,K ,bi,bj)*cg3d_s(I-1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
405 |
CG3D |
& +aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I+1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
410 |
CG3D |
& -aW3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
411 |
CG3D |
& -aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
426 |
CG3D |
& aW3d(I ,J ,K ,bi,bj)*cg3d_s(I-1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
427 |
CG3D |
& +aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I+1,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
431 |
CG3D |
& -aW3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
432 |
CG3D |
& -aW3d(I+1,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/inc/CG3D.h |
33 |
NO PROCEDURE |
& aW3d, |
|
./model/inc/CG3D.h |
38 |
NO PROCEDURE |
_RS aW3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |