Symbol Description Uses
hCrit 4


File Line number Procedure Code
./pkg/seaice/seaice_bottomdrag_coeffs.F 135 SEAICE_BOTTOMDRAG_COEFFS 
            hCrit   = ABS(R_low(I,J,bi,bj))*AREAITD(I,J,k,bi,bj)
./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 150 SEAICE_BOTTOMDRAG_COEFFS 
     &           * LOG(EXP( fac*(hActual - hCrit) ) + 1. _d 0)*rFac
./pkg/seaice/seaice_bottomdrag_coeffs.F 81 SEAICE_BOTTOMDRAG_COEFFS 
      _RL     tmp, hActual, hCrit, recip_k1, u0sq, fac, rFac