My Project
 All Classes Files Functions Variables Macros
covnat.F
Go to the documentation of this file.
1 !
2 ! $Header$
3 !
4  SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
5  IMPLICIT NONE
6 
7 c=======================================================================
8 c
9 c Auteur: F Hourdin Phu LeVan
10 c -------
11 c
12 c Objet:
13 c ------
14 c
15 c *********************************************************************
16 c calcul des compos. naturelles 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 unat( ip1jmp1,klevel ), vnat( ip1jm,klevel )
28  INTEGER l,ij
29 
30 
31  DO l = 1,klevel
32  DO ij = 1, iip1
33  unat(ij,l) =0.
34  END DO
35 
36  DO ij = iip2, ip1jm
37  unat( ij,l ) = ucov( ij,l ) / cu(ij)
38  ENDDO
39  DO ij = ip1jm+1, ip1jmp1
40  unat(ij,l) =0.
41  END DO
42 
43  DO ij = 1,ip1jm
44  vnat( ij,l ) = vcov( ij,l ) / cv(ij)
45  ENDDO
46 
47  ENDDO
48  RETURN
49  END