| File |
Line number |
Procedure |
Code |
|
./model/src/cg3d.F |
221 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_x( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
404 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
424 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
446 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/cg3d.F |
468 |
CG3D |
& +aC3d( i, j, k, bi,bj)*cg3d_s( i, j, k, bi,bj) |
|
./model/src/ini_cg3d.F |
235 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = -aW-aE-aN-aS-aU-aL |
|
./model/src/ini_cg3d.F |
252 |
INI_CG3D |
aC3d(i,j,ks,bi,bj) = aC3d(i,j,ks,bi,bj) |
|
./model/src/ini_cg3d.F |
267 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
277 |
INI_CG3D |
_EXCH_XYZ_RS(aC3d, myThid) |
|
./model/src/ini_cg3d.F |
293 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .NE. 0. ) THEN |
|
./model/src/ini_cg3d.F |
294 |
INI_CG3D |
zMC(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj) |
|
./model/src/ini_cg3d.F |
333 |
INI_CG3D |
IF ( aC3d(i,j,k,bi,bj) .EQ. 0. ) THEN |
|
./model/src/ini_cg3d.F |
73 |
INI_CG3D |
aC3d(i,j,k,bi,bj) = 0. |
|
./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) |