source: trunk/LMDZ.MARS/libf/dyn3d/covcont.F @ 2112

Last change on this file since 2112 was 38, checked in by emillour, 15 years ago

Ajout du modè Martien (mon LMDZ.MARS.BETA, du 28/01/2011) dans le rértoire mars, pour pouvoir suivre plus facilement les modifs.
EM
File size: 985 bytes
Line 
1      SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont )
2      IMPLICIT NONE
3
4c=======================================================================
5c
6c   Auteur:  P. Le Van
7c   -------
8c
9c   Objet:
10c   ------
11c
12c  *********************************************************************
13c    calcul des compos. contravariantes a partir des comp.covariantes
14c  ********************************************************************
15c
16c=======================================================================
17
18#include "dimensions.h"
19#include "paramet.h"
20#include "comgeom.h"
21
22      INTEGER klevel
23      REAL ucov ( ip1jmp1,klevel ),  vcov( ip1jm,klevel )
24      REAL ucont( ip1jmp1,klevel ), vcont( ip1jm,klevel )
25      INTEGER   l,ij
26
27
28      DO 10 l = 1,klevel
29
30      DO 2  ij = iip2, ip1jm
31      ucont( ij,l ) = ucov( ij,l ) * unscu2( ij )
32   2  CONTINUE
33
34      DO 4 ij = 1,ip1jm
35      vcont( ij,l ) = vcov( ij,l ) * unscv2( ij )
36   4  CONTINUE
37
38  10  CONTINUE
39
40      RETURN
41      END
Note: See TracBrowser for help on using the repository browser.