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


File Line number Procedure Code
./model/src/ini_cg2d.F 124 INI_CG2D 
           myNorm = MAX(ABS(aW2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 125 INI_CG2D 
           myNorm = MAX(ABS(aS2d(i,j,bi,bj)),myNorm)
./model/src/ini_cg2d.F 130 INI_CG2D 
      _GLOBAL_MAX_RS( myNorm, myThid )
./model/src/ini_cg2d.F 131 INI_CG2D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg2d.F 132 INI_CG2D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg2d.F 134 INI_CG2D 
       myNorm = 1. _d 0
./model/src/ini_cg2d.F 140 INI_CG2D 
          aW2d(i,j,bi,bj) = aW2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 141 INI_CG2D 
          aS2d(i,j,bi,bj) = aS2d(i,j,bi,bj)*myNorm
./model/src/ini_cg2d.F 160 INI_CG2D 
      cg2dNorm = myNorm
./model/src/ini_cg2d.F 211 INI_CG2D 
     &      +freeSurfFac*myNorm*recip_Bo(i,j,bi,bj)*deepFac2F(ks)
./model/src/ini_cg2d.F 47 INI_CG2D 
      _RS     myNorm
./model/src/ini_cg2d.F 90 INI_CG2D 
      myNorm = 0. _d 0
./model/src/ini_cg3d.F 105 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 131 INI_CG3D 
           myNorm = MAX(ABS(aS3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 162 INI_CG3D 
           myNorm = MAX(ABS(aV3d(i,j,k,bi,bj)),myNorm)
./model/src/ini_cg3d.F 168 INI_CG3D 
      _GLOBAL_MAX_RS( myNorm, myThid )
./model/src/ini_cg3d.F 169 INI_CG3D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg3d.F 170 INI_CG3D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg3d.F 172 INI_CG3D 
       myNorm = 1. _d 0
./model/src/ini_cg3d.F 177 INI_CG3D 
       cg3dNorm = myNorm
./model/src/ini_cg3d.F 240 INI_CG3D 
           aW3d(i,j,k,bi,bj) = aW3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 241 INI_CG3D 
           aS3d(i,j,k,bi,bj) = aS3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 242 INI_CG3D 
           aV3d(i,j,k,bi,bj) = aV3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 243 INI_CG3D 
           aC3d(i,j,k,bi,bj) = aC3d(i,j,k,bi,bj)*myNorm
./model/src/ini_cg3d.F 49 INI_CG3D 
      _RS     myNorm