Index: LMDZ6/trunk/libf/phylmd/dimphy.f90
===================================================================
--- LMDZ6/trunk/libf/phylmd/dimphy.f90	(revision 5647)
+++ LMDZ6/trunk/libf/phylmd/dimphy.f90	(revision 5648)
@@ -64,6 +64,15 @@
     klevm1=klev-1
     kflev=klev
-    nbtersrf=nbtersrf0
-    nbtsoildepths=nbtsoildepths0
+
+    IF (PRESENT(nbtersrf0)) THEN
+      nbtersrf=nbtersrf0
+    ELSE
+      nbtersrf = 0
+    ENDIF
+    IF (PRESENT(nbtsoildepths0)) THEN
+      nbtsoildepths=nbtsoildepths0
+    ELSE
+      nbtsoildepths = 0
+    ENDIF
 
   END SUBROUTINE Init_dimphy1D