Index: LMDZ6/trunk/libf/phylmd/dimphy.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/dimphy.F90	(revision 3440)
+++ LMDZ6/trunk/libf/phylmd/dimphy.F90	(revision 3442)
@@ -1,3 +1,6 @@
-MODULE dimphy
+!
+! $Id$
+!
+  MODULE dimphy
   
   INTEGER,SAVE :: klon
@@ -37,4 +40,23 @@
   END SUBROUTINE Init_dimphy
 
+  SUBROUTINE Init_dimphy1D(klon0,klev0)
+! 1D special version of dimphy without ALLOCATE(zmasq)
+! which will be allocated in iniphysiq
+  IMPLICIT NONE
+  
+    INTEGER, INTENT(in) :: klon0
+    INTEGER, INTENT(in) :: klev0
+    
+    klon=klon0
+    kdlon=klon
+    kidia=1
+    kfdia=klon
+    klev=klev0
+    klevp1=klev+1
+    klevm1=klev-1
+    kflev=klev
+    
+  END SUBROUTINE Init_dimphy1D
+
   
 END MODULE dimphy
Index: LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90
===================================================================
--- LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90	(revision 3440)
+++ LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90	(revision 3442)
@@ -1,2 +1,5 @@
+!
+! $Id$
+!
 !#ifdef CPP_1D
 !#include "../dyn3d/mod_const_mpi.F90"
@@ -581,5 +584,5 @@
 !      call init_phys_lmdz(1,1,llm,1,(/1/)) ! job now done via iniphysiq
 !     but we still need to initialize dimphy module (klon,klev,etc.)  here.
-      call init_dimphy(1,llm)
+      call init_dimphy1D(1,llm)
       call suphel
       call infotrac_init