source: LMDZ.3.3/trunk/libf/dyn3d/covcont.F @ 346

Last change on this file since 346 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 983 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      RETURN
40      END
Note: See TracBrowser for help on using the repository browser.