File |
Line number |
Procedure |
Code |
./model/src/cg3d.F |
279 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
./model/src/cg3d.F |
290 |
CG3D |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
./model/src/cg3d.F |
292 |
CG3D |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
./model/src/cg3d.F |
304 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
./model/src/cg3d.F |
314 |
CG3D |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d.F |
315 |
CG3D |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
./model/src/cg3d.F |
324 |
CG3D |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
./model/src/cg3d.F |
344 |
CG3D |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d.F |
390 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d.F |
401 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d.F |
411 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d.F |
421 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d.F |
431 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d.F |
443 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d.F |
454 |
CG3D |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d.F |
465 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d.F |
492 |
CG3D |
& -alpha*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
276 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
287 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = zMC(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
289 |
CG3D_EX0 |
& -zML(i,j,k,bi,bj)*cg3d_q(i,j,k-1,bi,bj) |
./model/src/cg3d_ex0.F |
301 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
311 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
312 |
CG3D_EX0 |
& -zMU(i,j,k,bi,bj)*cg3d_q(i,j,k+1,bi,bj) |
./model/src/cg3d_ex0.F |
321 |
CG3D_EX0 |
& +cg3d_q(i,j,k,bi,bj)*cg3d_r(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
332 |
CG3D_EX0 |
cg3d_s(i,j,k,bi,bj) = cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
374 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d_ex0.F |
385 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
395 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d_ex0.F |
405 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
415 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d_ex0.F |
427 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
438 |
CG3D_EX0 |
cg3d_q(i,j,k,bi,bj) = |
./model/src/cg3d_ex0.F |
449 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*cg3d_q(i,j,k,bi,bj) |
./model/src/cg3d_ex0.F |
467 |
CG3D_EX0 |
& -alpha*cg3d_q(i,j,k,bi,bj) |
./model/src/ini_cg3d.F |
79 |
INI_CG3D |
cg3d_q(i,j,k,bi,bj) = 0. |
./model/inc/CG3D.h |
49 |
NO PROCEDURE |
& cg3d_q, cg3d_r, cg3d_s |
./model/inc/CG3D.h |
50 |
NO PROCEDURE |
_RL cg3d_q(1-1 :sNx+1 ,1-1 :sNy+1 ,Nr,nSx,nSy) |