| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
101 |
CG2D |
_RL rhsNorm |
|
./model/src/cg2d.F |
146 |
CG2D |
rhsNorm = 1. _d 0 |
|
./model/src/cg2d.F |
147 |
CG2D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d.F |
152 |
CG2D |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
153 |
CG2D |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d.F |
405 |
CG2D |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d_nsa.F |
115 |
CG2D_NSA |
_RL rhsNorm |
|
./model/src/cg2d_nsa.F |
183 |
CG2D_NSA |
rhsNorm = 1. _d 0 / rhsMaxGlobal |
|
./model/src/cg2d_nsa.F |
185 |
CG2D_NSA |
rhsNorm = 1. _d 0 |
|
./model/src/cg2d_nsa.F |
196 |
CG2D_NSA |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
197 |
CG2D_NSA |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_nsa.F |
457 |
CG2D_NSA |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg2d_sr.F |
108 |
CG2D_SR |
_RL rhsNorm |
|
./model/src/cg2d_sr.F |
132 |
CG2D_SR |
rhsNorm = 1. _d 0 |
|
./model/src/cg2d_sr.F |
133 |
CG2D_SR |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d_sr.F |
138 |
CG2D_SR |
cg2d_b(I,J,bi,bj) = cg2d_b(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
139 |
CG2D_SR |
cg2d_x(I,J,bi,bj) = cg2d_x(I,J,bi,bj)*rhsNorm |
|
./model/src/cg2d_sr.F |
403 |
CG2D_SR |
cg2d_x(I ,J ,bi,bj) = cg2d_x(I ,J ,bi,bj)/rhsNorm |
|
./model/src/cg3d.F |
108 |
CG3D |
_RL rhsNorm |
|
./model/src/cg3d.F |
149 |
CG3D |
rhsNorm = 1. _d 0 |
|
./model/src/cg3d.F |
150 |
CG3D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg3d.F |
156 |
CG3D |
cg3d_b(i,j,k,bi,bj) = cg3d_b(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
157 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)*rhsNorm |
|
./model/src/cg3d.F |
544 |
CG3D |
cg3d_x(i,j,k,bi,bj) = cg3d_x(i,j,k,bi,bj)/rhsNorm |