Symbol Description Uses
myNorm 37


File Line number Procedure Code
./model/src/ini_cg2d.F 129 INI_CG2D 
          myNorm = MAX(ABS(aW2d(I,J,bi,bj)),myNorm)
./model/src/ini_cg2d.F 130 INI_CG2D 
          myNorm = MAX(ABS(aS2d(I,J,bi,bj)),myNorm)
./model/src/ini_cg2d.F 135 INI_CG2D 
      _GLOBAL_MAX_R4( myNorm, myThid )
./model/src/ini_cg2d.F 136 INI_CG2D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg2d.F 137 INI_CG2D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg2d.F 139 INI_CG2D 
       myNorm = 1. _d 0
./model/src/ini_cg2d.F 141 INI_CG2D 
       cg2dNorm = myNorm
./model/src/ini_cg2d.F 155 INI_CG2D 
          aW2d(I,J,bi,bj) = aW2d(I,J,bi,bj)*myNorm
./model/src/ini_cg2d.F 156 INI_CG2D 
          aS2d(I,J,bi,bj) = aS2d(I,J,bi,bj)*myNorm
./model/src/ini_cg2d.F 227 INI_CG2D 
     &    +freeSurfFac*myNorm*recip_Bo(I,J,bi,bj)*
./model/src/ini_cg2d.F 233 INI_CG2D 
     &    +freeSurfFac*myNorm*recip_Bo(I,J-1,bi,bj)*
./model/src/ini_cg2d.F 239 INI_CG2D 
     &    +freeSurfFac*myNorm*recip_Bo(I-1,J,bi,bj)*
./model/src/ini_cg2d.F 55 INI_CG2D 
      _RS     myNorm
./model/src/ini_cg2d.F 86 INI_CG2D 
      myNorm = 0. _d 0
./model/src/ini_cg3d.F 111 INI_CG3D 
           myNorm = MAX(ABS(aV3d(I,J,K,bi,bj)),myNorm)
./model/src/ini_cg3d.F 156 INI_CG3D 
      _GLOBAL_MAX_R4( myNorm, myThid )
./model/src/ini_cg3d.F 157 INI_CG3D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg3d.F 158 INI_CG3D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg3d.F 160 INI_CG3D 
       myNorm = 1. _d 0
./model/src/ini_cg3d.F 162 INI_CG3D 
       cg3dNorm = myNorm
./model/src/ini_cg3d.F 177 INI_CG3D 
           aW3d(I,J,K,bi,bj) = aW3d(I,J,K,bi,bj)*myNorm
./model/src/ini_cg3d.F 178 INI_CG3D 
           aS3d(I,J,K,bi,bj) = aS3d(I,J,K,bi,bj)*myNorm
./model/src/ini_cg3d.F 179 INI_CG3D 
           aV3d(I,J,K,bi,bj) = aV3d(I,J,K,bi,bj)*myNorm
./model/src/ini_cg3d.F 222 INI_CG3D 
     &         -freeSurfFac*myNorm*(horiVertRatio/gravity)*
./model/src/ini_cg3d.F 56 INI_CG3D 
      _RS     myNorm
./model/src/ini_cg3d.F 70 INI_CG3D 
      myNorm = 0. _d 0
./model/src/ini_cg3d.F 82 INI_CG3D 
           myNorm = MAX(ABS(aW3d(I,J,K,bi,bj)),myNorm)
./model/src/ini_cg3d.F 83 INI_CG3D 
           myNorm = MAX(ABS(aS3d(I,J,K,bi,bj)),myNorm)
./model/src/ini_cg3d.F 91 INI_CG3D 
           myNorm = MAX(ABS(aV3d(I,J,K,bi,bj)),myNorm)