From 7b6b896df783677971417ed33fff64eb13a54b92 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Thu, 3 Nov 2016 18:52:25 +0000
Subject: [PATCH] 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.
---
 mlprec/impl/mld_cprecinit.F90 | 2 +-
 mlprec/impl/mld_dprecinit.F90 | 2 +-
 mlprec/impl/mld_sprecinit.F90 | 2 +-
 mlprec/impl/mld_zprecinit.F90 | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/mlprec/impl/mld_cprecinit.F90 b/mlprec/impl/mld_cprecinit.F90
index 7435f11f..3207e789 100644
--- 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
diff --git a/mlprec/impl/mld_dprecinit.F90 b/mlprec/impl/mld_dprecinit.F90
index 30620cf3..0a453fbf 100644
--- 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
diff --git a/mlprec/impl/mld_sprecinit.F90 b/mlprec/impl/mld_sprecinit.F90
index 692b55ca..4980a453 100644
--- 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
diff --git a/mlprec/impl/mld_zprecinit.F90 b/mlprec/impl/mld_zprecinit.F90
index f6f9a4b7..8eba7742 100644
--- 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