| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
100 |
CG2D |
_RL rhsMax |
|
./model/src/cg2d.F |
126 |
CG2D |
rhsMax = 0. _d 0 |
|
./model/src/cg2d.F |
132 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
142 |
CG2D |
rhsMax=1. |
|
./model/src/cg2d.F |
144 |
CG2D |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg2d.F |
147 |
CG2D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d.F |
227 |
CG2D |
& ' cg2d: Sum(rhs),rhsMax = ', sumRHS,rhsMax |
|
./model/src/cg2d_nsa.F |
114 |
CG2D_NSA |
_RL rhsMax, rhsMaxGlobal |
|
./model/src/cg2d_nsa.F |
154 |
CG2D_NSA |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
160 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
175 |
CG2D_NSA |
rhsMaxGlobal=rhsMax |
|
./model/src/cg2d_sr.F |
107 |
CG2D_SR |
_RL rhsMax |
|
./model/src/cg2d_sr.F |
117 |
CG2D_SR |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_sr.F |
123 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(I,J,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
131 |
CG2D_SR |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg2d_sr.F |
133 |
CG2D_SR |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d_sr.F |
194 |
CG2D_SR |
& ' cg2d: Sum(rhs),rhsMax = ', sumRHS,rhsMax |
|
./model/src/cg3d.F |
107 |
CG3D |
_RL rhsMax |
|
./model/src/cg3d.F |
134 |
CG3D |
rhsMax = 0. _d 0 |
|
./model/src/cg3d.F |
142 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
148 |
CG3D |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg3d.F |
150 |
CG3D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg3d.F |
251 |
CG3D |
& ' cg3d: Sum(rhs),rhsMax = ',sumRHS,rhsMax |