| File |
Line number |
Procedure |
Code |
|
./model/src/cg3d.F |
169 |
CG3D |
cg3d_s(I,J,K,bi,bj) = 0. |
|
./model/src/cg3d.F |
216 |
CG3D |
CALL EXCH_RL( cg3d_s, |
|
./model/src/cg3d.F |
343 |
CG3D |
cg3d_s(I,J,K,bi,bj) = cg3d_q(I,J,K,bi,bj) |
|
./model/src/cg3d.F |
344 |
CG3D |
& + cgBeta*cg3d_s(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 |
366 |
CG3D |
& +aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J-1,K ,bi,bj) |
|
./model/src/cg3d.F |
367 |
CG3D |
& +aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J+1,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 |
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 |
371 |
CG3D |
& -aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
372 |
CG3D |
& -aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J ,K ,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 |
374 |
CG3D |
& -topLevTerm*_rA(I,J,bi,bj)*cg3d_s(I,J,K,bi,bj) |
|
./model/src/cg3d.F |
376 |
CG3D |
& +cg3d_s(I,J,K,bi,bj)*cg3d_q(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 |
387 |
CG3D |
& +aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J-1,K ,bi,bj) |
|
./model/src/cg3d.F |
388 |
CG3D |
& +aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J+1,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 |
391 |
CG3D |
& -aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
392 |
CG3D |
& -aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
393 |
CG3D |
& -topLevTerm*_rA(I,J,bi,bj)*cg3d_s(I,J,K,bi,bj) |
|
./model/src/cg3d.F |
395 |
CG3D |
& +cg3d_s(I,J,K,bi,bj)*cg3d_q(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 |
406 |
CG3D |
& +aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J-1,K ,bi,bj) |
|
./model/src/cg3d.F |
407 |
CG3D |
& +aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J+1,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 |
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 |
412 |
CG3D |
& -aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
413 |
CG3D |
& -aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J ,K ,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 |
417 |
CG3D |
& +cg3d_s(I,J,K,bi,bj)*cg3d_q(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 |
428 |
CG3D |
& +aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J-1,K ,bi,bj) |
|
./model/src/cg3d.F |
429 |
CG3D |
& +aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J+1,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 |
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/src/cg3d.F |
433 |
CG3D |
& -aS3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
434 |
CG3D |
& -aS3d(I ,J+1,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
435 |
CG3D |
& -aV3d(I ,J ,K ,bi,bj)*cg3d_s(I ,J ,K ,bi,bj) |
|
./model/src/cg3d.F |
437 |
CG3D |
& +cg3d_s(I,J,K,bi,bj)*cg3d_q(I,J,K,bi,bj) |
|
./model/src/cg3d.F |
464 |
CG3D |
& +alpha*cg3d_s(I,J,K,bi,bj) |
|
./model/inc/CG3D.h |
53 |
NO PROCEDURE |
& cg3d_q, cg3d_r, cg3d_s |
|
./model/inc/CG3D.h |
56 |
NO PROCEDURE |
_RL cg3d_s(1-1 :sNx+1 ,1-1 :sNy+1 ,nR,nSx,nSy) |