--- trunk/Sources/phylmd/transp.f	2015/09/29 19:48:59	171
+++ trunk/phylmd/transp.f90	2019/06/13 14:40:06	328
@@ -8,15 +8,13 @@
 
     ! From LMDZ4/libf/phylmd/transp.F,v 1.1.1.1 2004/05/19 12:53:09
 
-    USE dimens_m
-    USE dimphy
-    USE suphec_m
-    ! ======================================================================
     ! Auteur(s): Z.X.Li (LMD/CNRS)
     ! Date: le 25 avril 1994
     ! Objet: Calculer le transport total de l'energie et de la vapeur d'eau
-    ! ======================================================================
 
+    USE dimensions
+    USE dimphy
+    USE suphec_m
 
     REAL, INTENT (IN) :: paprs(klon, klev+1)
     REAL, INTENT (IN) :: t(klon, klev)