Symbol Description Uses
sol_a 5



File Line number Procedure Code
./pkg/seaice/seaice_freedrift.F 138 SEAICE_FREEDRIFT
             sol_a=rhs_a-ATAN2(tmpscal3,tmpscal2)
./pkg/seaice/seaice_freedrift.F 140 SEAICE_FREEDRIFT
             sol_a=0. _d 0
./pkg/seaice/seaice_freedrift.F 145 SEAICE_FREEDRIFT
           uice_cntr(i,j,bi,bj)=uvel_cntr-sol_n*COS(sol_a)
./pkg/seaice/seaice_freedrift.F 146 SEAICE_FREEDRIFT
           vice_cntr(i,j,bi,bj)=vvel_cntr-sol_n*SIN(sol_a)
./pkg/seaice/seaice_freedrift.F 49 SEAICE_FREEDRIFT
      _RL mIceCor, rhs_x, rhs_y, rhs_n, rhs_a, sol_n, sol_a