--- trunk/libf/dyn3d/covnat.f90	2012/01/30 14:37:26	60
+++ trunk/libf/dyn3d/covnat.f90	2012/04/20 14:58:43	61
@@ -1,40 +1,48 @@
-SUBROUTINE covnat(klevel,ucov, vcov, unat, vnat )
+module covnat_m
 
-  ! From LMDZ4/libf/dyn3d/covnat.F,v 1.1.1.1 2004/05/19 12:53:07
+  IMPLICIT NONE
 
-  use dimens_m
-  use paramet_m
-  use comgeom
+contains
 
-  IMPLICIT NONE
+  SUBROUTINE covnat(klevel, ucov, vcov, unat, vnat)
+
+    ! From LMDZ4/libf/dyn3d/covnat.F, version 1.1.1.1 2004/05/19 12:53:07
+
+    USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1
+    USE comgeom, ONLY: cu, cv
+
+    ! Authors: F. Hourdin, Phu Le Van
+
+    ! Objet : calcul des composantes naturelles à partir des
+    ! composantes covariantes.
+
+    INTEGER, intent(in):: klevel
+    REAL, intent(in):: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
+    REAL, intent(out):: unat(ip1jmp1, klevel), vnat(ip1jm, klevel)
+
+    ! Local:
+    INTEGER l, ij
+
+    !------------------------------------------------------------------
+
+    DO l = 1, klevel
+       DO ij = 1, iip1
+          unat(ij, l) =0.
+       END DO
+
+       DO ij = iip2, ip1jm
+          unat(ij, l) = ucov(ij, l) / cu(ij)
+       ENDDO
+
+       DO ij = ip1jm+1, ip1jmp1 
+          unat(ij, l) =0.
+       END DO
+
+       DO ij = 1, ip1jm
+          vnat(ij, l) = vcov(ij, l) / cv(ij)
+       ENDDO
+    ENDDO
 
-  !   Auteur:  F Hourdin Phu LeVan
-  !   Objet:
-  !    calcul des compos. naturelles a partir des comp.covariantes
-
-  INTEGER klevel
-  REAL ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
-  REAL unat( ip1jmp1,klevel ), vnat( ip1jm,klevel )
-  INTEGER   l,ij
-
-  !------------------------------------------------------------------
-
-  DO l = 1,klevel
-     DO ij = 1, iip1
-        unat (ij,l) =0.
-     END DO
-
-     DO ij = iip2, ip1jm
-        unat( ij,l ) = ucov( ij,l ) / cu(ij)
-     ENDDO
-
-     DO ij = ip1jm+1, ip1jmp1  
-        unat (ij,l) =0.
-     END DO
-
-     DO ij = 1,ip1jm
-        vnat( ij,l ) = vcov( ij,l ) / cv(ij)
-     ENDDO
-  ENDDO
+  END SUBROUTINE covnat
 
-END SUBROUTINE covnat
+end module covnat_m