diff --git a/obl_inmom.f90 b/obl_inmom.f90 index 5eb28ddb940ea08e0d61d42432072ea4757edb13..6bf5af750ef8a5cfc9441072aaf199e5fcbdf94d 100644 --- a/obl_inmom.f90 +++ b/obl_inmom.f90 @@ -95,6 +95,8 @@ module obl_inmom call legacy_neutral_mld(rlh, taux, tauy, border_shift, lu, neutral_mld, u_dynH) call sync_xy_border_2d(neutral_mld) call sync_xy_border_2d(u_dynH) + neutral_mld = neutral_mld * 1e-2 + u_dynH = u_dynH * 1e-2 !print *, "neutral_mld:", neutral_mld end if