mld2p4:

mlprec/impl/mld_cprecinit.F90 mlprec/impl/mld_dprecinit.F90 mlprec/impl/mld_sprecinit.F90 mlprec/impl/mld_zprecinit.F90 Default initial number of levels.
8 years ago · 7b6b896df7
parent 9b731d3da9
commit 7b6b896df7
4 changed files with 4 additions and 4 deletions
--- a/mlprec/impl/mld_cprecinit.F90
+++ b/mlprec/impl/mld_cprecinit.F90
@ -168,7 +168,7 @@ subroutine mld_cprecinit(p,ptype,info,nlev)
      nlev_         = max(1,nlev)
      p%n_prec_levs = nlev_
    else
-      nlev_         = 3
+      nlev_         = p%max_prec_levs
      p%n_prec_levs = -ione
    end if
    ilev_ = 1
--- a/mlprec/impl/mld_dprecinit.F90
+++ b/mlprec/impl/mld_dprecinit.F90
@ -171,7 +171,7 @@ subroutine mld_dprecinit(p,ptype,info,nlev)
      nlev_         = max(1,nlev)
      p%n_prec_levs = nlev_
    else
-      nlev_         = max(3,p%max_prec_levs)
+      nlev_         = p%max_prec_levs
      p%n_prec_levs = -ione
    end if
    ilev_ = 1
--- a/mlprec/impl/mld_sprecinit.F90
+++ b/mlprec/impl/mld_sprecinit.F90
@ -168,7 +168,7 @@ subroutine mld_sprecinit(p,ptype,info,nlev)
      nlev_         = max(1,nlev)
      p%n_prec_levs = nlev_
    else
-      nlev_         = 3
+      nlev_         = p%max_prec_levs
      p%n_prec_levs = -ione
    end if
    ilev_ = 1
--- a/mlprec/impl/mld_zprecinit.F90
+++ b/mlprec/impl/mld_zprecinit.F90
@ -171,7 +171,7 @@ subroutine mld_zprecinit(p,ptype,info,nlev)
      nlev_         = max(1,nlev)
      p%n_prec_levs = nlev_
    else
-      nlev_         = 3
+      nlev_         = p%max_prec_levs
      p%n_prec_levs = -ione
    end if
    ilev_ = 1