File |
Line number |
Procedure |
Code |
./pkg/icefront/icefront_thermodynamics.F |
109 |
ICEFRONT_THERMODYNAMICS |
recip_aqe = 0.5 _d 0/aqe |
./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 |
482 |
SHELFICE_THERMODYNAMICS |
recip_aqe = 0. _d 0 |
./pkg/shelfice/shelfice_thermodynamics.F |
483 |
SHELFICE_THERMODYNAMICS |
IF ( aqe .NE. 0. _d 0 ) recip_aqe = 0.5 _d 0/aqe |
./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 |