Index: LMDZ5/trunk/libf/dyn3d/calfis.F
===================================================================
--- LMDZ5/trunk/libf/dyn3d/calfis.F	(revision 1616)
+++ LMDZ5/trunk/libf/dyn3d/calfis.F	(revision 1617)
@@ -165,5 +165,5 @@
       PARAMETER(ntetaSTD=3)
       REAL rtetaSTD(ntetaSTD)
-      DATA rtetaSTD/350., 380., 405./
+      DATA rtetaSTD/350., 380., 405./ ! Earth-specific values, beware !!
       REAL PVteta(ngridmx,ntetaSTD)
 c
@@ -434,8 +434,11 @@
 c
       if (planet_type=="earth") then
+#ifdef CPP_PHYS
+! PVtheta calls tetalevel, which is in the physics
 cIM calcul PV a teta=350, 380, 405K
       CALL PVtheta(ngridmx,llm,pucov,pvcov,pteta,
      $           ztfi,zplay,zplev,
      $           ntetaSTD,rtetaSTD,PVteta)
+#endif
       endif
 c