| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg3d.F |
109 |
INI_CG3D |
aV3d(I,J,K,bi,bj) = faceArea*theRecip_Dr |
|
./model/src/ini_cg3d.F |
111 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(I,J,K,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
125 |
INI_CG3D |
aV3d(I,OB_Jn(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
132 |
INI_CG3D |
aV3d(I,OB_Js(I,bi,bj),K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
141 |
INI_CG3D |
aV3d(OB_Ie(J,bi,bj),J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
148 |
INI_CG3D |
aV3d(OB_Iw(J,bi,bj),J,K,bi,bj)=0. |
|
./model/src/ini_cg3d.F |
179 |
INI_CG3D |
aV3d(I,J,K,bi,bj) = aV3d(I,J,K,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
189 |
INI_CG3D |
_EXCH_XYZ_R4(aV3d, myThid) |
|
./model/src/ini_cg3d.F |
210 |
INI_CG3D |
aU = aV3d(I,J,K,bi,bj) |
|
./model/src/ini_cg3d.F |
215 |
INI_CG3D |
aL = aV3d(I,J,K+1,bi,bj) |
|
./model/src/ini_cg3d.F |
267 |
INI_CG3D |
aU = aV3d(I,J,K-1,bi,bj) |
|
./model/src/ini_cg3d.F |
272 |
INI_CG3D |
aL = aV3d(I,J,K+1,bi,bj) |
|
./model/src/ini_cg3d.F |
90 |
INI_CG3D |
aV3d(I,J,K,bi,bj) = 0. |
|
./model/src/ini_cg3d.F |
91 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(I,J,K,bi,bj)),myNorm) |
|
./model/src/cg3d.F |
175 |
CG3D |
& +aV3d(I ,J ,K ,bi,bj)*cg3d_x(I ,J ,KM1,bi,bj) |
|
./model/src/cg3d.F |
176 |
CG3D |
& +aV3d(I ,J ,KP1,bi,bj)*cg3d_x(I ,J ,KP1,bi,bj) |
|
./model/src/cg3d.F |
181 |
CG3D |
& -aV3d(I ,J ,K ,bi,bj)*cg3d_x(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
182 |
CG3D |
& -aV3d(I ,J ,KP1,bi,bj)*cg3d_x(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
368 |
CG3D |
& +aV3d(I ,J ,K+1,bi,bj)*cg3d_s(I ,J ,K+1,bi,bj) |
|
./model/src/cg3d.F |
373 |
CG3D |
& -aV3d(I ,J ,K+1,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
408 |
CG3D |
& +aV3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K-1,bi,bj) |
|
./model/src/cg3d.F |
409 |
CG3D |
& +aV3d(I ,J ,K+1,bi,bj)*cg3d_s(I ,J ,K+1,bi,bj) |
|
./model/src/cg3d.F |
414 |
CG3D |
& -aV3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
415 |
CG3D |
& -aV3d(I ,J ,K+1,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
430 |
CG3D |
& +aV3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K-1,bi,bj) |
|
./model/src/cg3d.F |
435 |
CG3D |
& -aV3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/inc/CG3D.h |
35 |
NO PROCEDURE |
& aV3d, |
|
./model/inc/CG3D.h |
40 |
NO PROCEDURE |
_RS aV3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |