source: LMDZ6/trunk/libf/dyn3d/covnat.f90 @ 5374

Last change on this file since 5374 was 5312, checked in by abarral, 7 weeks ago

.f90 <-> .F90

  • 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.1 KB
RevLine 
[524]1!
2! $Header$
3!
[5246]4SUBROUTINE covnat (klevel,ucov, vcov, unat, vnat )
[5281]5  USE comgeom_mod_h
[5271]6  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
[5285]7  USE paramet_mod_h
[5246]8  IMPLICIT NONE
[524]9
[5246]10  !=======================================================================
11  !
12  !   Auteur:  F Hourdin Phu LeVan
13  !   -------
14  !
15  !   Objet:
16  !   ------
17  !
18  !  *********************************************************************
19  !    calcul des compos. naturelles a partir des comp.covariantes
20  !  ********************************************************************
21  !
22  !=======================================================================
[524]23
[5246]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
29
[5246]30  DO l = 1,klevel
31     DO ij = 1, iip1
32        unat (ij,l) =0.
33     END DO
[524]34
[5246]35     DO ij = iip2, ip1jm
36        unat( ij,l ) = ucov( ij,l ) / cu(ij)
37     ENDDO
38     DO ij = ip1jm+1, ip1jmp1
39        unat (ij,l) =0.
40     END DO
[524]41
[5246]42     DO ij = 1,ip1jm
43        vnat( ij,l ) = vcov( ij,l ) / cv(ij)
44     ENDDO
[524]45
[5246]46  ENDDO
47  RETURN
48END SUBROUTINE covnat
Note: See TracBrowser for help on using the repository browser.