source: LMDZ6/branches/Amaury_dev/libf/dyn3d_common/lmdz_covnat.f90 @ 5195

Last change on this file since 5195 was 5186, checked in by abarral, 3 months ago

Encapsulate files in modules
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1MODULE lmdz_covnat
2  IMPLICIT NONE; PRIVATE
3  PUBLIC covnat
4
5CONTAINS
6
7  SUBROUTINE covnat(klevel, ucov, vcov, unat, vnat)
8    USE lmdz_comgeom
9
10    USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm
11    USE lmdz_paramet
12    IMPLICIT NONE
13
14    !=======================================================================
15
16    !   Auteur:  F Hourdin Phu LeVan
17    !   -------
18
19    !   Objet:
20    !   ------
21
22    !  *********************************************************************
23    !    calcul des compos. naturelles a partir des comp.covariantes
24    !  ********************************************************************
25
26    !=======================================================================
27
28    INTEGER :: klevel
29    REAL :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
30    REAL :: unat(ip1jmp1, klevel), vnat(ip1jm, klevel)
31    INTEGER :: l, ij
32
33    DO l = 1, klevel
34      DO ij = 1, iip1
35        unat (ij, l) = 0.
36      END DO
37
38      DO ij = iip2, ip1jm
39        unat(ij, l) = ucov(ij, l) / cu(ij)
40      ENDDO
41      DO ij = ip1jm + 1, ip1jmp1
42        unat (ij, l) = 0.
43      END DO
44
45      DO ij = 1, ip1jm
46        vnat(ij, l) = vcov(ij, l) / cv(ij)
47      ENDDO
48
49    ENDDO
50
51  END SUBROUTINE covnat
52
53
54END MODULE lmdz_covnat
Note: See TracBrowser for help on using the repository browser.