Go to file
Denny Tjahjanto 1bf3b978eb modifying the criteria for the sum of microstructure fraction.
previously was:
if (the_sum /= 1.0_pReal) then (error 170)
this condition is too strict. it may give problem with some numerical truncation error.

now becomes:
if (abs(the_sum - 1.0_pReal) >= 1.0e-10_pReal) then (error 170)
2009-12-02 13:08:14 +00:00
code modifying the criteria for the sum of microstructure fraction. 2009-12-02 13:08:14 +00:00
documentation climb equation corrected 2009-11-02 14:20:21 +00:00