Symbol Description Uses
rD 6


File Line number Procedure Code
./verification/advect_xy/code/ini_salt.F 40 INI_SALT 
      _RL rD
./verification/advect_xy/code/ini_salt.F 48 INI_SALT 
            rD=sqrt( (XC(i,j,bi,bj)-40.E3)**2
./verification/advect_xy/code/ini_salt.F 52 INI_SALT 
           IF (rD.LE.60.E3) salt(I,J,K,bi,bj) = sRef(K)+1.
./verification/advect_xy/code/ini_theta.F 49 INI_THETA 
      _RL     rD
./verification/advect_xy/code/ini_theta.F 65 INI_THETA 
            rD=sqrt( (XC(i,j,bi,bj)-40.E3)**2
./verification/advect_xy/code/ini_theta.F 68 INI_THETA 
            theta(i,j,k,bi,bj)=exp(-0.5*( rD/20.E3 )**2 )