Index: trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/iniphysiq_mod.F
===================================================================
--- trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/iniphysiq_mod.F	(revision 2445)
+++ trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/phys/dynphy_wrf_mars_lmd_new/iniphysiq_mod.F	(revision 2454)
@@ -14,5 +14,10 @@
    !real*8,intent(in) :: ptimestep !physics time step (s) [dtphys]
 
+! this is necessary to initialize getin_p
+USE mod_phys_lmdz_para, ONLY: Init_phys_lmdz_para
+
 implicit none
+
+INCLUDE 'mpif.h'
 
 real,intent(in) :: prad ! radius of the planet (m)
@@ -44,4 +49,6 @@
 
 !! read callphys.def
+CALL Init_phys_lmdz_para(1,1,1,MPI_COMM_WORLD) ! initializes MPI communicator
+                                               ! ... necessary for getin_p in conf_phys
 call conf_phys(ngrid,nlayer,nq)