Symbol Description Uses
aqe 6


File Line number Procedure Code
./pkg/shelfice/shelfice_thermodynamics.F 142 SHELFICE_THERMODYNAMICS 
            aqe = a0  *(eps1+eps3)
./pkg/shelfice/shelfice_thermodynamics.F 144 SHELFICE_THERMODYNAMICS 
            IF ( aqe .NE. 0 ) recip_aqe = 0.5/aqe
./pkg/shelfice/shelfice_thermodynamics.F 148 SHELFICE_THERMODYNAMICS 
            discrim = bqe*bqe - 4. _d 0*aqe*cqe
./pkg/shelfice/shelfice_thermodynamics.F 151 SHELFICE_THERMODYNAMICS 
             print *, 'ml-shelfice: discrim = ', discrim,aqe,bqe,cqe
./pkg/shelfice/shelfice_thermodynamics.F 52 SHELFICE_THERMODYNAMICS 
      _RL eps1, eps2, eps3, eps4, aqe, bqe, cqe, discrim, recip_aqe