@ -54,6 +54,9 @@ subroutine mld_c_base_onelev_free(lv,info)
if (allocated(lv%sm)) &
& call lv%sm%free(info)
if (allocated(lv%sm2a)) &
& call lv%sm2a%free(info)
if (allocated(lv%wrk)) &
& call lv%wrk%free(info)
@ -54,6 +54,9 @@ subroutine mld_d_base_onelev_free(lv,info)
@ -54,6 +54,9 @@ subroutine mld_s_base_onelev_free(lv,info)
@ -54,6 +54,9 @@ subroutine mld_z_base_onelev_free(lv,info)