Index: trunk/LMDZ.COMMON/libf/dyn3d_common/diagedyn.F
===================================================================
--- trunk/LMDZ.COMMON/libf/dyn3d_common/diagedyn.F	(revision 1392)
+++ trunk/LMDZ.COMMON/libf/dyn3d_common/diagedyn.F	(revision 1397)
@@ -53,4 +53,6 @@
 c======================================================================
  
+      USE cpdet_phy_mod, ONLY: cpdet,tpot2t
+
       IMPLICIT NONE
 C
@@ -139,6 +141,4 @@
      $        , h_qs_pre, qw_pre, ql_pre, qs_pre , ec_pre
 
-
-      real,external :: cpdet
 
 #ifdef CPP_EARTH