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.
2026-10-06 22:55:12 +00:00 · 2016-11-03 18:52:25 +00:00
parent 9b731d3da9
commit 7b6b896df7
4 changed files with 4 additions and 4 deletions
@@ -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
@@ -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
@@ -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
@@ -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