trunk/dyn3d/covcont.f


! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/covcont.F,v 1.1.1.1 2004/05/19
! 12:53:07 lmdzadmin Exp $

SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
  USE dimens_m
  USE paramet_m
  USE comgeom
  IMPLICIT NONE

  ! =======================================================================

  ! Auteur:  P. Le Van
  ! -------

  ! Objet:
  ! ------

  ! *********************************************************************
  ! calcul des compos. contravariantes a partir des comp.covariantes
  ! ********************************************************************

  ! =======================================================================


  INTEGER klevel
  REAL, INTENT (IN) :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
  REAL ucont(ip1jmp1, klevel), vcont(ip1jm, klevel)
  INTEGER l, ij


  DO l = 1, klevel

    DO ij = iip2, ip1jm
      ucont(ij, l) = ucov(ij, l)*unscu2(ij)
    END DO

    DO ij = 1, ip1jm
      vcont(ij, l) = vcov(ij, l)*unscv2(ij)
    END DO

  END DO
  RETURN
END SUBROUTINE covcont
1	guez	3
2	guez	81	! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/covcont.F,v 1.1.1.1 2004/05/19
3			! 12:53:07 lmdzadmin Exp $
4	guez	3
5	guez	81	SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
6			USE dimens_m
7			USE paramet_m
8			USE comgeom
9			IMPLICIT NONE
10	guez	3
11	guez	81	! =======================================================================
12	guez	3
13	guez	81	! Auteur: P. Le Van
14			! -------
15	guez	3
16	guez	81	! Objet:
17			! ------
18	guez	3
19	guez	81	! *********************************************************************
20			! calcul des compos. contravariantes a partir des comp.covariantes
21			! ********************************************************************
22	guez	3
23	guez	81	! =======================================================================
24	guez	3
25	guez	81
26			INTEGER klevel
27			REAL, INTENT (IN) :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
28			REAL ucont(ip1jmp1, klevel), vcont(ip1jm, klevel)
29			INTEGER l, ij
30
31
32			DO l = 1, klevel
33
34			DO ij = iip2, ip1jm
35			ucont(ij, l) = ucov(ij, l)*unscu2(ij)
36			END DO
37
38			DO ij = 1, ip1jm
39			vcont(ij, l) = vcov(ij, l)*unscv2(ij)
40			END DO
41
42			END DO
43			RETURN
44			END SUBROUTINE covcont