LMDZ
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
iip2
!$Header iip2
Definition: paramet.h:14
ip1jmp1
!$Header llmm1 INTEGER ip1jmp1
Definition: paramet.h:14
ip1jm
!$Header llmm1 INTEGER ip1jm
Definition: paramet.h:14
cu
!$Id!Parameters for parameters that control the rate of approach!to quasi equilibrium noff nlm real tlcrit real entp real sigd real coeffs real dtmax real cu real betad real damp real delta COMMON cvparam nlm tlcrit sigd coeffs cu
Definition: cvparam.h:12
cv
!$Header!CDK comgeom COMMON comgeom cv
Definition: comgeom.h:25
covnat
subroutine covnat(klevel, ucov, vcov, unat, vnat)
Definition: covnat.F:5