| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg3d.F |
227 |
INI_CG3D |
aC3d(I,J,K,bi,bj) = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
236 |
INI_CG3D |
aC3d(I,J,ks,bi,bj) = aC3d(I,J,ks,bi,bj) |
|
./model/src/ini_cg3d.F |
249 |
INI_CG3D |
aC3d(I,J,K,bi,bj) = aC3d(I,J,K,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
261 |
INI_CG3D |
_EXCH_XYZ_R4(aC3d, myThid) |
|
./model/src/ini_cg3d.F |
277 |
INI_CG3D |
IF ( aC3d(I,J,K,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
278 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC3d(I,J,K,bi,bj) |
|
./model/src/ini_cg3d.F |
72 |
INI_CG3D |
aC3d(I,J,K,bi,bj) = 0. |
|
./model/src/cg3d.F |
164 |
CG3D |
& +aC3d(I ,J ,K ,bi,bj)*cg3d_x(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
329 |
CG3D |
& +aC3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
344 |
CG3D |
& +aC3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
361 |
CG3D |
& +aC3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
377 |
CG3D |
& +aC3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/inc/CG3D.h |
32 |
NO PROCEDURE |
& aC3d, |
|
./model/inc/CG3D.h |
38 |
NO PROCEDURE |
_RS aC3d (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |