My Project
 All Classes Files Functions Variables Macros
covcont.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont )
5  IMPLICIT NONE
6 
7 c=======================================================================
8 c
9 c Auteur: P. Le Van
10 c -------
11 c
12 c Objet:
13 c ------
14 c
15 c *********************************************************************
16 c calcul des compos. contravariantes a partir des comp.covariantes
17 c ********************************************************************
18 c
19 c=======================================================================
20 
21 #include "dimensions.h"
22 #include "paramet.h"
23 #include "comgeom.h"
24 
25  INTEGER klevel
26  REAL ucov( ip1jmp1,klevel ), vcov( ip1jm,klevel )
27  REAL ucont( ip1jmp1,klevel ), vcont( ip1jm,klevel )
28  INTEGER l,ij
29 
30 
31  DO 10 l = 1,klevel
32 
33  DO 2 ij = iip2, ip1jm
34  ucont( ij,l ) = ucov( ij,l ) * unscu2( ij )
35  2 CONTINUE
36 
37  DO 4 ij = 1,ip1jm
38  vcont( ij,l ) = vcov( ij,l ) * unscv2( ij )
39  4 CONTINUE
40 
41  10 CONTINUE
42  RETURN
43  END