Index: LMDZ5/trunk/libf/phymar/Mod_PHY_AT_kkl.f90
===================================================================
--- LMDZ5/trunk/libf/phymar/Mod_PHY_AT_kkl.f90	(revision 2351)
+++ LMDZ5/trunk/libf/phymar/Mod_PHY_AT_kkl.f90	(revision 2382)
@@ -88,5 +88,6 @@
       real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  P___AT  ! Auxiliary   Term               P                           [-]
       real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  Q___AT  ! Auxiliary   Term               Q                           [-]
-      real*16         ,ALLOCATABLE ,dimension(:)    ::  X___AT  ! Auxiliary   Unknown            X                           [x]
+!      real*16         ,ALLOCATABLE ,dimension(:)    ::  X___AT  ! Auxiliary   Unknown            X                           [x]
+      double precision,ALLOCATABLE ,dimension(:)    ::  X___AT  ! Auxiliary   Unknown            X                           [x]
 
       real(kind=real8), SAVE,ALLOCATABLE ,dimension(:)    ::  LMO_AT  ! Monin-Obukhov     Length         (Grid Cell Average)       [m]
Index: LMDZ5/trunk/libf/phymar/infotrac_phy.F90
===================================================================
--- LMDZ5/trunk/libf/phymar/infotrac_phy.F90	(revision 2382)
+++ LMDZ5/trunk/libf/phymar/infotrac_phy.F90	(revision 2382)
@@ -0,0 +1,32 @@
+
+! $Id: $
+
+MODULE infotrac_phy
+
+! Infotrac for physics; for now contains the same information as infotrac for
+! the dynamics (could be further cleaned) and is initialized using values
+! provided by the dynamics
+
+! nqtot : total number of tracers and higher order of moment, water vapor and liquid included
+  INTEGER, SAVE :: nqtot
+!$OMP THREADPRIVATE(nqtot)
+ 
+CONTAINS
+
+  SUBROUTINE init_infotrac_phy(nqtot_)
+  ! transfer information on tracers from dynamics to physics
+  USE print_control_mod, ONLY: prt_level, lunout
+  IMPLICIT NONE
+    INTEGER,INTENT(IN) :: nqtot_
+
+    CHARACTER(LEN=30) :: modname="init_infotrac_phy"
+
+    nqtot=nqtot_
+  
+    IF(prt_level.ge.1) THEN
+      write(lunout,*) TRIM(modname)//": nqtot",nqtot
+    ENDIF
+    
+  END SUBROUTINE init_infotrac_phy
+
+END MODULE infotrac_phy
Index: LMDZ5/trunk/libf/phymar/physiq.F90
===================================================================
--- LMDZ5/trunk/libf/phymar/physiq.F90	(revision 2351)
+++ LMDZ5/trunk/libf/phymar/physiq.F90	(revision 2382)
@@ -120,4 +120,6 @@
       real,intent(in) :: u(klon,klev) ! eastward zonal wind (m/s)
       real,intent(in) :: v(klon,klev) ! northward meridional wind (m/s)
+      REAL, intent(in):: rot(klon, klev) ! relative vorticity,
+                                         ! in s-1, needed for frontal waves
       real,intent(in) :: t(klon,klev) ! temperature (K)
       real,intent(in) :: qx(klon,klev,nqtot) ! tracers (.../kg_air)