| File |
Line number |
Procedure |
Code |
|
./model/src/ini_cg2d.F |
127 |
INI_CG2D |
myNorm = MAX(ABS(aW2d(I,J,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
128 |
INI_CG2D |
myNorm = MAX(ABS(aS2d(I,J,bi,bj)),myNorm) |
|
./model/src/ini_cg2d.F |
133 |
INI_CG2D |
_GLOBAL_MAX_R4( myNorm, myThid ) |
|
./model/src/ini_cg2d.F |
134 |
INI_CG2D |
IF ( myNorm .NE. 0. _d 0 ) THEN |
|
./model/src/ini_cg2d.F |
135 |
INI_CG2D |
myNorm = 1. _d 0/myNorm |
|
./model/src/ini_cg2d.F |
137 |
INI_CG2D |
myNorm = 1. _d 0 |
|
./model/src/ini_cg2d.F |
139 |
INI_CG2D |
cg2dNorm = myNorm |
|
./model/src/ini_cg2d.F |
144 |
INI_CG2D |
aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
145 |
INI_CG2D |
aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj)*myNorm |
|
./model/src/ini_cg2d.F |
212 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I,J,bi,bj)* |
|
./model/src/ini_cg2d.F |
218 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I,J-1,bi,bj)* |
|
./model/src/ini_cg2d.F |
224 |
INI_CG2D |
& +freeSurfFac*myNorm*recip_Bo(I-1,J,bi,bj)* |
|
./model/src/ini_cg2d.F |
54 |
INI_CG2D |
_RS myNorm |
|
./model/src/ini_cg2d.F |
84 |
INI_CG2D |
myNorm = 0. _d 0 |
|
./model/src/ini_cg3d.F |
107 |
INI_CG3D |
myNorm = 0. _d 0 |
|
./model/src/ini_cg3d.F |
116 |
INI_CG3D |
myNorm = MAX(ABS(aW3d(I,J,K,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
124 |
INI_CG3D |
myNorm = MAX(ABS(aS3d(I,J,K,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
132 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(I,J,K,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
151 |
INI_CG3D |
myNorm = MAX(ABS(aV3d(I,J,K,bi,bj)),myNorm) |
|
./model/src/ini_cg3d.F |
195 |
INI_CG3D |
_GLOBAL_MAX_R4( myNorm, myThid ) |
|
./model/src/ini_cg3d.F |
196 |
INI_CG3D |
IF ( myNorm .NE. 0. _d 0 ) THEN |
|
./model/src/ini_cg3d.F |
197 |
INI_CG3D |
myNorm = 1. _d 0/myNorm |
|
./model/src/ini_cg3d.F |
199 |
INI_CG3D |
myNorm = 1. _d 0 |
|
./model/src/ini_cg3d.F |
201 |
INI_CG3D |
cg3dNorm = myNorm |
|
./model/src/ini_cg3d.F |
246 |
INI_CG3D |
aW3d(I,J,K,bi,bj) = aW3d(I,J,K,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
247 |
INI_CG3D |
aS3d(I,J,K,bi,bj) = aS3d(I,J,K,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
248 |
INI_CG3D |
aV3d(I,J,K,bi,bj) = aV3d(I,J,K,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
249 |
INI_CG3D |
aC3d(I,J,K,bi,bj) = aC3d(I,J,K,bi,bj)*myNorm |
|
./model/src/ini_cg3d.F |
52 |
INI_CG3D |
_RS myNorm |