Symbol Description Uses
myNorm Work variable used in clculating normalisation factor 33


File Line number Procedure Code
./model/src/ini_cg2d.F 133 INI_CG2D 
          myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 134 INI_CG2D 
          myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 139 INI_CG2D 
      _GLOBAL_MAX_RS( myNorm, myThid )
./model/src/ini_cg2d.F 140 INI_CG2D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg2d.F 141 INI_CG2D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg2d.F 143 INI_CG2D 
       myNorm = 1. _d 0
./model/src/ini_cg2d.F 149 INI_CG2D 
          aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 150 INI_CG2D 
          aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 169 INI_CG2D 
      cg2dNorm = myNorm
./model/src/ini_cg2d.F 220 INI_CG2D 
     &      +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/ini_cg2d.F 51 INI_CG2D 
      _RS     myNorm
./model/src/ini_cg2d.F 89 INI_CG2D 
      myNorm = 0. _d 0
./model/src/ini_cg3d.F 108 INI_CG3D 
      myNorm = 0. _d 0
./model/src/ini_cg3d.F 118 INI_CG3D 
           myNorm = MAX(ABS(aW3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 128 INI_CG3D 
           myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 156 INI_CG3D 
           myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 200 INI_CG3D 
      _GLOBAL_MAX_RS( myNorm, myThid )
./model/src/ini_cg3d.F 201 INI_CG3D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg3d.F 202 INI_CG3D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg3d.F 204 INI_CG3D 
       myNorm = 1. _d 0
./model/src/ini_cg3d.F 209 INI_CG3D 
       cg3dNorm = myNorm
./model/src/ini_cg3d.F 264 INI_CG3D 
           aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 265 INI_CG3D 
           aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 266 INI_CG3D 
           aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 267 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