Index: LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/disvert.F
===================================================================
--- LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/disvert.F	(revision 1154)
+++ LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/disvert.F	(revision 1164)
@@ -36,5 +36,5 @@
 c
       INTEGER l
-      REAL snorm
+      REAL snorm,dsigmin
       REAL alpha,beta,gama,delta,deltaz,h
       INTEGER np,ierr
@@ -96,4 +96,16 @@
       WRITE(LUNOUT,*)'WARNING!!! Ancienne discretisation verticale'
 
+      if (ok_strato) then
+         if (llm==39) then
+            dsigmin=0.3
+         else if (llm==50) then
+            dsigmin=1.
+         else
+            WRITE(LUNOUT,*) 'ATTENTION discretisation z a ajuster'
+            dsigmin=1.
+         endif
+         WRITE(LUNOUT,*) 'Discretisation verticale DSIGMIN=',dsigmin
+      endif
+
       h=7.
       snorm  = 0.
@@ -149,4 +161,8 @@
 c
       ENDDO
+
+      bp(1)=1.
+      ap(1)=0.
+
       ap(llmp1) = pa * ( sig(llmp1) - bp(llmp1) )