--- trunk/Sources/phylmd/coefkz2.f	2017/11/07 10:23:25	232
+++ trunk/Sources/phylmd/coefkz2.f	2017/11/07 10:52:46	233
@@ -1,4 +1,10 @@
-SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh)
+module coefkz2_m
+  
+  IMPLICIT none
+
+contains
+
+  SUBROUTINE coefkz2(nsrf, knon, paprs, pplay, t, pcfm, pcfh)
 
   ! J'introduit un peu de diffusion sauf dans les endroits
   ! ou une forte inversion est presente
@@ -10,8 +16,6 @@
   use conf_gcm_m
   use SUPHEC_M
 
-  IMPLICIT none
-
   ! Arguments:
   ! nsrf-----input-I- indicateur de la nature du sol
   ! knon-----input-I- nombre de points a traiter
@@ -91,3 +95,5 @@
   ENDDO
 
 END SUBROUTINE coefkz2
+
+end module coefkz2_m