Symbol Description Uses
alpha_aux to avoid the statement: alpha = 1./alpha (for TAMC/TAF) 6


File Line number Procedure Code
./model/src/cg2d_nsa.F 112 CG2D_NSA 
      _RL    alpha_aux
./model/src/cg2d_nsa.F 372 CG2D_NSA 
       alpha_aux = 0. _d 0
./model/src/cg2d_nsa.F 395 CG2D_NSA 
           alpha_aux = alpha_aux+cg2d_s(I,J,bi,bj)*cg2d_q(I,J,bi,bj)
./model/src/cg2d_nsa.F 400 CG2D_NSA 
       _GLOBAL_SUM_RL(alpha_aux,myThid)
./model/src/cg2d_nsa.F 404 CG2D_NSA 
       alpha = eta_qrN/alpha_aux