Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
fixed bug where degradation state was in the wrong units
  • Loading branch information
daminton committed Sep 26, 2019
1 parent 631c91a commit 1790412
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/crater/crater_get_degradation_state.f90
Original file line number Diff line number Diff line change
Expand Up @@ -82,7 +82,7 @@ function crater_get_degradation_state(user,surf,crater,dd) result(Kval)
bowl = bowl / nbowl
outer = outer / nouter
dd = max((rim - bowl) / crater%fcrat,SMALLFAC)
Kval = - 1._DP / Bconst * log(real(dd,kind=DP) / ddinit)
Kval = - (1._DP / Bconst * log(real(dd,kind=DP) / ddinit)) * crater%frad**2
return

end function crater_get_degradation_state
Expand Down

0 comments on commit 1790412

Please sign in to comment.