mld2p4-2:

mlprec/impl/mld_cprecinit.F90 mlprec/impl/mld_dprecinit.F90 mlprec/impl/mld_sprecinit.F90 mlprec/impl/mld_zprecinit.F90 Explicitly initialize filter_mat
8 years ago · 0898738486
parent 3b9c74359b
commit 0898738486
4 changed files with 4 additions and 0 deletions
--- a/mlprec/impl/mld_cprecinit.F90
+++ b/mlprec/impl/mld_cprecinit.F90
@ -207,6 +207,7 @@ subroutine mld_cprecinit(p,ptype,info,nlev)
    do ilev_=1,nlev_
      call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
      call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
+      call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
    end do

  case default
--- a/mlprec/impl/mld_dprecinit.F90
+++ b/mlprec/impl/mld_dprecinit.F90
@ -212,6 +212,7 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
    do ilev_=1,nlev_
      call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
      call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
+      call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
    end do

  case default
--- a/mlprec/impl/mld_sprecinit.F90
+++ b/mlprec/impl/mld_sprecinit.F90
@ -207,6 +207,7 @@ subroutine mld_sprecinit(p,ptype,info,nlev)
    do ilev_=1,nlev_
      call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
      call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
+      call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
    end do

  case default
--- a/mlprec/impl/mld_zprecinit.F90
+++ b/mlprec/impl/mld_zprecinit.F90
@ -212,6 +212,7 @@ subroutine mld_zprecinit(p,ptype,info,nlev)
    do ilev_=1,nlev_
      call p%precv(ilev_)%set(mld_aggr_thresh_,thr,info)
      call p%precv(ilev_)%set(mld_aggr_scale_,scale,info)
+      call p%precv(ilev_)%set(mld_aggr_filter_,mld_no_filter_mat_,info)
    end do

  case default