Symbol Description Uses
discrim 10


File Line number Procedure Code
./pkg/icefront/icefront_thermodynamics.F 136 ICEFRONT_THERMODYNAMICS 
            discrim = bqe*bqe - 4. _d 0*aqe*cqe
./pkg/icefront/icefront_thermodynamics.F 137 ICEFRONT_THERMODYNAMICS 
            saltFreeze = (- bqe - SQRT(discrim))*recip_aqe
./pkg/icefront/icefront_thermodynamics.F 139 ICEFRONT_THERMODYNAMICS 
     &           saltFreeze = (- bqe + SQRT(discrim))*recip_aqe
./pkg/icefront/icefront_thermodynamics.F 71 ICEFRONT_THERMODYNAMICS 
      _RL aqe, bqe, cqe, discrim, recip_aqe
./pkg/shelfice/shelfice_thermodynamics.F 491 SHELFICE_THERMODYNAMICS 
            discrim = bqe*bqe - 4. _d 0*aqe*cqe
./pkg/shelfice/shelfice_thermodynamics.F 494 SHELFICE_THERMODYNAMICS 
            IF ( discrim .LT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 495 SHELFICE_THERMODYNAMICS 
             print *, 'ml-shelfice: discrim = ', discrim,aqe,bqe,cqe
./pkg/shelfice/shelfice_thermodynamics.F 524 SHELFICE_THERMODYNAMICS 
            saltFreeze = (- bqe - SQRT(discrim))*recip_aqe
./pkg/shelfice/shelfice_thermodynamics.F 526 SHELFICE_THERMODYNAMICS 
     &           saltFreeze = (- bqe + SQRT(discrim))*recip_aqe
./pkg/shelfice/shelfice_thermodynamics.F 98 SHELFICE_THERMODYNAMICS 
      _RL aqe, bqe, cqe, discrim, recip_aqe