We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 3d928c2 + bc09d07 commit 414cd66Copy full SHA for 414cd66
src/soil_conduction.c
@@ -797,13 +797,10 @@ double maximum_unfrozen_water(double T,
797
798
double unfrozen;
799
800
- if ( T <= 0 ) {
801
- unfrozen = max_moist * pow((-Lf * T) / 273.16 / (9.81 * bubble / 100.), -(2.0 / (expt - 3.0)));
802
- //INCORRECT: unfrozen = max_moist * pow((-Lf * T) / (T + 273.16) / (9.81 *
803
- //bubble / 100.), -(2.0 / (expt - 3.0)));
804
-
+ if ( T < 0. ) {
+ unfrozen = max_moist * pow((-Lf * T) / 273.16 / (9.81 * bubble / 100.), -(2.0 / (expt - 3.0)));
805
if(unfrozen > max_moist) unfrozen = max_moist;
806
- if(unfrozen < 0) unfrozen = 0;
+ if(unfrozen < 0.) unfrozen = 0.;
807
808
}
809
else unfrozen = max_moist;
0 commit comments