Symbol Description Uses
recip_k1 4



File Line number Procedure Code
./pkg/seaice/seaice_bottomdrag_coeffs.F 138 SEAICE_BOTTOMDRAG_COEFFS
            hCrit   = ABS(R_low(I,J,bi,bj))*AREA(I,J,bi,bj)*recip_k1
./pkg/seaice/seaice_bottomdrag_coeffs.F 81 SEAICE_BOTTOMDRAG_COEFFS
      _RL     tmp, hActual, hCrit, recip_k1, u0sq, fac, rFac
./pkg/seaice/seaice_bottomdrag_coeffs.F 87 SEAICE_BOTTOMDRAG_COEFFS
      recip_k1 = 0. _d 0
./pkg/seaice/seaice_bottomdrag_coeffs.F 89 SEAICE_BOTTOMDRAG_COEFFS
     &     recip_k1 = 1. _d 0/SEAICEbasalDragK1