| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
144 |
CG2D |
rhsNorm = 1. _d 0 |
|
./model/src/cg2d.F |
145 |
CG2D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d.F |
150 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
151 |
CG2D |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
369 |
CG2D |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d.F |
94 |
CG2D |
_RL rhsNorm |
|
./model/src/cg3d.F |
100 |
CG3D |
_RL rhsNorm |
|
./model/src/cg3d.F |
133 |
CG3D |
rhsNorm = 1. _d 0 |
|
./model/src/cg3d.F |
134 |
CG3D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg3d.F |
140 |
CG3D |
cg3d_b(I,J,K,bi,bj) = cg3d_b(I,J,K,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
141 |
CG3D |
cg3d_x(I,J,K,bi,bj) = cg3d_x(I,J,K,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
503 |
CG3D |
cg3d_x(I,J,K,bi,bj) = cg3d_x(I,J,K,bi,bj)/rhsNorm |