--- trunk/Sources/dyn3d/covcont.f	2015/04/29 15:47:56	134
+++ trunk/Sources/dyn3d/covcont.f	2015/07/24 14:27:59	161
@@ -1,44 +1,49 @@
+module covcont_m
 
-! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/covcont.F,v 1.1.1.1 2004/05/19
-! 12:53:07 lmdzadmin Exp $
-
-SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
-  USE dimens_m
-  USE paramet_m
-  USE comgeom
   IMPLICIT NONE
 
-  ! =======================================================================
+contains
 
-  ! Auteur:  P. Le Van
-  ! -------
+  SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
 
-  ! Objet:
-  ! ------
+    ! From LMDZ4/libf/dyn3d/covcont.F, version 1.1.1.1 2004/05/19 12:53:07
 
-  ! *********************************************************************
-  ! calcul des compos. contravariantes a partir des comp.covariantes
-  ! ********************************************************************
+    USE dimens_m
+    USE paramet_m
+    USE comgeom
+    ! =======================================================================
 
-  ! =======================================================================
+    ! Auteur:  P. Le Van
+    ! -------
 
+    ! Objet:
+    ! ------
 
-  INTEGER klevel
-  REAL, INTENT (IN) :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
-  REAL ucont(ip1jmp1, klevel), vcont(ip1jm, klevel)
-  INTEGER l, ij
+    ! *********************************************************************
+    ! calcul des compos. contravariantes a partir des comp.covariantes
+    ! ********************************************************************
 
+    ! =======================================================================
 
-  DO l = 1, klevel
 
-    DO ij = iip2, ip1jm
-      ucont(ij, l) = ucov(ij, l)*unscu2(ij)
-    END DO
+    INTEGER klevel
+    REAL, INTENT (IN) :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
+    REAL ucont(ip1jmp1, klevel), vcont(ip1jm, klevel)
+    INTEGER l, ij
+
+
+    DO l = 1, klevel
+
+       DO ij = iip2, ip1jm
+          ucont(ij, l) = ucov(ij, l)*unscu2(ij)
+       END DO
+
+       DO ij = 1, ip1jm
+          vcont(ij, l) = vcov(ij, l)*unscv2(ij)
+       END DO
 
-    DO ij = 1, ip1jm
-      vcont(ij, l) = vcov(ij, l)*unscv2(ij)
     END DO
+    RETURN
+  END SUBROUTINE covcont
 
-  END DO
-  RETURN
-END SUBROUTINE covcont
+end module covcont_m