Index: /LMDZ6/trunk/libf/dyn3d/gcm.F90
===================================================================
--- /LMDZ6/trunk/libf/dyn3d/gcm.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dyn3d/gcm.F90	(revision 5250)
@@ -25,4 +25,5 @@
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
   USE logic_mod, ONLY: ecripar, iflag_phys, read_start
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -30,7 +31,5 @@
   ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
   ! dynamique -> physique pour l'initialisation
-#ifdef CPP_PHYS
   USE iniphysiq_mod, ONLY: iniphysiq
-#endif
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -406,12 +405,12 @@
 
   IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
-     ! Physics:
-#ifdef CPP_PHYS
-     CALL iniphysiq(iim,jjm,llm, &
-          (jjm-1)*iim+2,comm_lmdz, &
-          daysec,day_ini,dtphys/nsplit_phys, &
-          rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
-          iflag_phys)
-#endif
+    ! Physics:
+    IF (CPPKEY_PHYS) THEN
+      CALL iniphysiq(iim, jjm, llm, &
+              (jjm - 1) * iim + 2, comm_lmdz, &
+              daysec, day_ini, dtphys / nsplit_phys, &
+              rlatu, rlatv, rlonu, rlonv, aire, cu, cv, rad, g, r, cpp, &
+              iflag_phys)
+    END IF
   ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
 
Index: /LMDZ6/trunk/libf/dyn3d/leapfrog.F90
===================================================================
--- /LMDZ6/trunk/libf/dyn3d/leapfrog.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dyn3d/leapfrog.F90	(revision 5250)
@@ -27,4 +27,5 @@
         start_time,dt
   USE strings_mod, ONLY: msg
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
 
   IMPLICIT NONE
@@ -462,10 +463,10 @@
 #endif
   ! #endif of #ifdef CPP_IOIPSL
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
      CALL calfis( lafin , jD_cur, jH_cur, &
            ucov,vcov,teta,q,masse,ps,p,pk,phis,phi , &
            du,dv,dteta,dq, &
            flxw,dufi,dvfi,dtetafi,dqfi,dpfi  )
-#endif
+END IF
    ! ajout des tendances physiques:
    ! ------------------------------
Index: /LMDZ6/trunk/libf/dyn3d/replay3d.F90
===================================================================
--- /LMDZ6/trunk/libf/dyn3d/replay3d.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dyn3d/replay3d.F90	(revision 5250)
@@ -28,7 +28,5 @@
   ! A nettoyer. On ne veut qu'une ou deux routines d'interface 
   ! dynamique -> physique pour l'initialisation
-#ifdef CPP_PHYS
   USE iniphysiq_mod, ONLY: iniphysiq
-#endif
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
Index: /LMDZ6/trunk/libf/dyn3dmem/bands.F90
===================================================================
--- /LMDZ6/trunk/libf/dyn3dmem/bands.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dyn3dmem/bands.F90	(revision 5250)
@@ -381,9 +381,10 @@
     subroutine AdjustBands_physic
       use times
-#ifdef CPP_PHYS
 ! Ehouarn: what follows is only related to // physics
       USE mod_phys_lmdz_para, only : klon_mpi_para_nb
-#endif
+
       USE parallel_lmdz
+      USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
       implicit none
 
@@ -408,10 +409,10 @@
       medium=medium/mpi_size      
       NbTot=0
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
       do i=0,mpi_size-1
         Inc(i)=nint(klon_mpi_para_nb(i)*(medium-value(i))/value(i))
-        NbTot=NbTot+Inc(i)  
-      enddo
-      
+        NbTot=NbTot+Inc(i)
+      enddo
+
       if (NbTot>=0) then
         Sgn=1
@@ -420,5 +421,5 @@
 	NbTot=-NbTot
       endif
-      
+
       Index=0
       do i=1,NbTot
@@ -427,9 +428,9 @@
 	if (Index>mpi_size-1) Index=0
       enddo
-      
+
       do i=0,mpi_size-1
         distrib_phys(i)=klon_mpi_para_nb(i)+inc(i)
       enddo
-#endif  
+END IF
          
     end subroutine AdjustBands_physic
Index: /LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.F90
===================================================================
--- /LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dyn3dmem/call_calfis_mod.F90	(revision 5250)
@@ -88,4 +88,6 @@
   USE comvert_mod, ONLY: ap, bp, pressure_exner
   USE temps_mod, ONLY: day_ini, day_ref, jd_ref, jh_ref, start_time
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
   
   IMPLICIT NONE
@@ -230,10 +232,10 @@
   !$OMP BARRIER
 
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
     CALL calfis_loc(lafin ,jD_cur, jH_cur,                       &
                      ucov,vcov,teta,q,masse,ps,p,pk,phis,phi ,   &
                      du,dv,dteta,dq,                             &
                      flxw, dufi,dvfi,dtetafi,dqfi,dpfi  )
-#endif
+END IF
     ijb=ij_begin
     ije=ij_end  
Index: /LMDZ6/trunk/libf/dyn3dmem/gcm.F90
===================================================================
--- /LMDZ6/trunk/libf/dyn3dmem/gcm.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dyn3dmem/gcm.F90	(revision 5250)
@@ -20,7 +20,5 @@
   USE control_mod
 
-#ifdef CPP_PHYS
   USE iniphysiq_mod, ONLY: iniphysiq
-#endif
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, g, r, rad
   USE logic_mod ! all of it, because of copyin clause when calling leapfrog
@@ -29,4 +27,6 @@
                        dt,hour_ini,itaufin
   USE mod_xios_dyn3dmem, ONLY: xios_dyn3dmem_init
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
 
   IMPLICIT NONE
@@ -415,5 +415,5 @@
   IF ((iflag_phys==1).or.(iflag_phys>=100)) THEN
      ! Physics:
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
      CALL iniphysiq(iim,jjm,llm, &
           distrib_phys(mpi_rank),comm_lmdz, &
@@ -421,5 +421,5 @@
           rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp, &
           iflag_phys)
-#endif
+END IF
   ENDIF ! of IF ((iflag_phys==1).or.(iflag_phys>=100))
 
Index: /LMDZ6/trunk/libf/dynphy_lonlat/calfis.F90
===================================================================
--- /LMDZ6/trunk/libf/dynphy_lonlat/calfis.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dynphy_lonlat/calfis.F90	(revision 5250)
@@ -31,9 +31,8 @@
   USE infotrac, ONLY: nqtot, tracers
   USE control_mod, ONLY: planet_type, nsplit_phys
-#ifdef CPP_PHYS
   USE callphysiq_mod, ONLY: call_physiq
-#endif
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
   USE comvert_mod, ONLY: preff, presnivs
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
 
   IMPLICIT NONE
@@ -475,5 +474,5 @@
   zdqfic(:,:,:)=0.
 
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
 
    do isplit=1,nsplit_phys
@@ -534,5 +533,5 @@
    enddo ! of do isplit=1,nsplit_phys
 
-#endif
+END IF
   ! of #ifdef CPP_PHYS
 
Index: /LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90
===================================================================
--- /LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90	(revision 5249)
+++ /LMDZ6/trunk/libf/dynphy_lonlat/calfis_loc.F90	(revision 5250)
@@ -26,7 +26,5 @@
         pdqfi, &
         pdpsfi)
-#ifdef CPP_PHYS
-  ! If using physics
-  !
+
   !    Auteur :  P. Le Van, F. Hourdin
   !   .........
@@ -37,5 +35,4 @@
   USE mod_interface_dyn_phys
   USE IOPHY
-#endif
   USE lmdz_mpi
 
@@ -49,9 +46,9 @@
   USE infotrac, ONLY: nqtot, tracers
   USE control_mod, ONLY: planet_type, nsplit_phys
-#ifdef CPP_PHYS
   USE callphysiq_mod, ONLY: call_physiq
-#endif
   USE comvert_mod, ONLY: preff, presnivs
   USE comconst_mod, ONLY: cpp, daysec, dtphys, dtvr, kappa, pi
+  USE lmdz_cppkeys_wrapper, ONLY: CPPKEY_PHYS
+
 
 #ifdef CPP_PARA
@@ -148,5 +145,4 @@
   REAL,INTENT(OUT) :: pdpsfi(iip1,jjb_u:jje_u) ! tendency on surface pressure (Pa/s)
 
-#ifdef CPP_PHYS
   ! Ehouarn: for now calfis_p needs some informations from physics to compile
   !    Local variables :
@@ -193,11 +189,11 @@
   ! Introduction du splitting (FH)
   ! Question pour Yann :
-  ! J'ai été surpris au début que les tableaux zufi_omp, zdufi_omp n'co soitent
+  ! J'ai �t� surpris au d�but que les tableaux zufi_omp, zdufi_omp n'co soitent
   ! en SAVE. Je crois comprendre que c'est parce que tu voulais qu'il
   ! soit allocatable (plutot par exemple que de passer une dimension
-  ! dépendant du process en argument des routines) et que, du coup,
-  ! le SAVE évite d'avoir à refaire l'allocation à chaque appel.
+  ! d�pendant du process en argument des routines) et que, du coup,
+  ! le SAVE �vite d'avoir � refaire l'allocation � chaque appel.
   ! Tu confirmes ?
-  ! J'ai suivi le même principe pour les zdufic_omp
+  ! J'ai suivi le m�me principe pour les zdufic_omp
   ! Mais c'est surement bien que tu controles.
   !
@@ -238,4 +234,6 @@
   INTEGER :: offset
   INTEGER :: jjb,jje
+
+  IF (CPPKEY_PHYS) THEN
 
   !
@@ -721,5 +719,5 @@
   zdqfic_omp(:,:,:)=0.
 
-#ifdef CPP_PHYS
+IF (CPPKEY_PHYS) THEN
   do isplit=1,nsplit_phys
 
@@ -752,5 +750,5 @@
   enddo
 
-#endif
+END IF
   ! of #ifdef CPP_PHYS
 
@@ -1210,9 +1208,8 @@
   firstcal = .FALSE.
 
-#else
+ELSE
   call abort_gcm("calfis_loc", &
         "calfis_p: for now can only work with parallel physics", 1)
-#endif
-  ! of #ifdef CPP_PHYS
+END IF
 #endif
   ! of #ifdef CPP_PARA
