| File |
Line number |
Procedure |
Code |
|
./model/src/cg2d.F |
100 |
CG2D |
_RL rhsMax |
|
./model/src/cg2d.F |
116 |
CG2D |
rhsMax = 0. _d 0 |
|
./model/src/cg2d.F |
122 |
CG2D |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d.F |
130 |
CG2D |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg2d.F |
132 |
CG2D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d.F |
209 |
CG2D |
& ' cg2d: Sum(rhs),rhsMax = ', sumRHS,rhsMax |
|
./model/src/cg2d_ex0.F |
105 |
CG2D_EX0 |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_ex0.F |
130 |
CG2D_EX0 |
rhsMax = MAX( rhsMaxLoc, rhsMax ) |
|
./model/src/cg2d_ex0.F |
134 |
CG2D_EX0 |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg2d_ex0.F |
193 |
CG2D_EX0 |
& ' cg2d: Sum(rhs),rhsMax = ', sumRHS,rhsMax |
|
./model/src/cg2d_ex0.F |
93 |
CG2D_EX0 |
_RL rhsMax, rhsMaxLoc |
|
./model/src/cg2d_nsa.F |
110 |
CG2D_NSA |
_RL rhsMax, rhsNorm |
|
./model/src/cg2d_nsa.F |
146 |
CG2D_NSA |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_nsa.F |
152 |
CG2D_NSA |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_nsa.F |
161 |
CG2D_NSA |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg2d_nsa.F |
163 |
CG2D_NSA |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d_nsa.F |
228 |
CG2D_NSA |
& ' cg2d: Sum(rhs),rhsMax = ', sumRHS,rhsMax |
|
./model/src/cg2d_sr.F |
108 |
CG2D_SR |
_RL rhsMax |
|
./model/src/cg2d_sr.F |
121 |
CG2D_SR |
rhsMax = 0. _d 0 |
|
./model/src/cg2d_sr.F |
127 |
CG2D_SR |
rhsMax = MAX(ABS(cg2d_b(i,j,bi,bj)),rhsMax) |
|
./model/src/cg2d_sr.F |
135 |
CG2D_SR |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg2d_sr.F |
137 |
CG2D_SR |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg2d_sr.F |
209 |
CG2D_SR |
& ' cg2d: Sum(rhs),rhsMax = ', sumRHS,rhsMax |
|
./model/src/cg3d.F |
107 |
CG3D |
_RL rhsMax |
|
./model/src/cg3d.F |
137 |
CG3D |
rhsMax = 0. _d 0 |
|
./model/src/cg3d.F |
145 |
CG3D |
rhsMax = MAX(ABS(cg3d_b(i,j,k,bi,bj)),rhsMax) |
|
./model/src/cg3d.F |
151 |
CG3D |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg3d.F |
153 |
CG3D |
IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax |
|
./model/src/cg3d.F |
255 |
CG3D |
& ' cg3d: Sum(rhs),rhsMax = ',sumRHS,rhsMax |
|
./model/src/cg3d_ex0.F |
126 |
CG3D_EX0 |
rhsMax = 0. _d 0 |
|
./model/src/cg3d_ex0.F |
152 |
CG3D_EX0 |
rhsMax = MAX( rhsMaxLoc, rhsMax ) |
|
./model/src/cg3d_ex0.F |
156 |
CG3D_EX0 |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./model/src/cg3d_ex0.F |
248 |
CG3D_EX0 |
& ' cg3d: Sum(rhs),rhsMax = ',sumRHS,rhsMax |
|
./model/src/cg3d_ex0.F |
99 |
CG3D_EX0 |
_RL rhsMax, rhsMaxLoc |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
183 |
DIAGNOSTICS_CALC_PHIVEL |
rhsMax = MAX(ABS(b2d(I,J,bi,bj)),rhsMax) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
198 |
DIAGNOSTICS_CALC_PHIVEL |
_GLOBAL_MAX_RL( rhsMax, myThid ) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
199 |
DIAGNOSTICS_CALC_PHIVEL |
IF ( rhsMax .GT. 0. _d 0 ) THEN |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
200 |
DIAGNOSTICS_CALC_PHIVEL |
b2dNorm = 1. _d 0/rhsMax |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
201 |
DIAGNOSTICS_CALC_PHIVEL |
x2dNorm = a2dNorm*rhsMax |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
74 |
DIAGNOSTICS_CALC_PHIVEL |
_RL rhsMax, b2dNorm, x2dNorm |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
98 |
DIAGNOSTICS_CALC_PHIVEL |
rhsMax = 0. _d 0 |