Symbol Description Uses
rD Radial displacement of point i,j 6


File Line number Procedure Code
./verification/advect_xy/code/ini_salt.F 48 INI_SALT 
      _RL     rD
./verification/advect_xy/code/ini_salt.F 65 INI_SALT 
            rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_salt.F 69 INI_SALT 
            IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0
./verification/advect_xy/code/ini_theta.F 49 INI_THETA 
      _RL     rD
./verification/advect_xy/code/ini_theta.F 66 INI_THETA 
            rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_theta.F 70 INI_THETA 
            theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 )