source: LMDZ6/branches/Amaury_dev/libf/dyn3d/covnat.F90 @ 5134

Last change on this file since 5134 was 5134, checked in by abarral, 4 months ago

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h
  • 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.0 KB
RevLine 
[524]1! $Header$
[5099]2
[5106]3SUBROUTINE covnat(klevel, ucov, vcov, unat, vnat)
[5103]4  IMPLICIT NONE
[524]5
[5103]6  !=======================================================================
7  !
8  !   Auteur:  F Hourdin Phu LeVan
9  !   -------
10  !
11  !   Objet:
12  !   ------
13  !
14  !  *********************************************************************
15  !    calcul des compos. naturelles a partir des comp.covariantes
16  !  ********************************************************************
17  !
18  !=======================================================================
[524]19
[5134]20 INCLUDE "dimensions.h"
21 INCLUDE "paramet.h"
22 INCLUDE "comgeom.h"
[524]23
[5103]24  INTEGER :: klevel
25  REAL :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
26  REAL :: unat(ip1jmp1, klevel), vnat(ip1jm, klevel)
27  INTEGER :: l, ij
[524]28
[5103]29  DO l = 1, klevel
30    DO ij = 1, iip1
31      unat (ij, l) = 0.
32    END DO
[524]33
[5103]34    DO ij = iip2, ip1jm
35      unat(ij, l) = ucov(ij, l) / cu(ij)
36    ENDDO
37    DO ij = ip1jm + 1, ip1jmp1
38      unat (ij, l) = 0.
39    END DO
[524]40
[5103]41    DO ij = 1, ip1jm
42      vnat(ij, l) = vcov(ij, l) / cv(ij)
43    ENDDO
[524]44
[5103]45  ENDDO
[5105]46
[5103]47END SUBROUTINE covnat
Note: See TracBrowser for help on using the repository browser.