Index: /trunk/LMDZ.TITAN/libf/phytitan/calmufi.F90
===================================================================
--- /trunk/LMDZ.TITAN/libf/phytitan/calmufi.F90	(revision 3655)
+++ /trunk/LMDZ.TITAN/libf/phytitan/calmufi.F90	(revision 3656)
@@ -2,7 +2,4 @@
 
 SUBROUTINE calmufi(dt, plev, zlev, play, zlay, g3d, temp, pq, zdqfi, zdq)
-
-! Old compilers do not handle modern Fortran in microphysics
-#ifndef OLD_COMPILO
 
   !! Interface subroutine to YAMMS model for Titan LMDZ GCM.
@@ -197,5 +194,3 @@
   zdq(:,:,:) = zdq(:,:,:) / dt
 
-#endif
-
 END SUBROUTINE calmufi
Index: /trunk/LMDZ.TITAN/libf/phytitan/inimufi.F90
===================================================================
--- /trunk/LMDZ.TITAN/libf/phytitan/inimufi.F90	(revision 3655)
+++ /trunk/LMDZ.TITAN/libf/phytitan/inimufi.F90	(revision 3656)
@@ -1,5 +1,3 @@
 subroutine inimufi(ptimestep)
-
-#ifndef OLD_COMPILO
 
   use mmp_gcm
@@ -112,5 +110,3 @@
    ENDIF
    
-#endif
-
 end subroutine inimufi