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
2	! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/covcont.F,v 1.1.1.1 2004/05/19
3	! 12:53:07 lmdzadmin Exp $
4
5	SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
6	USE dimens_m
7	USE paramet_m
8	USE comgeom
9	IMPLICIT NONE
10
11	! =======================================================================
12
13	! Auteur: P. Le Van
14	! -------
15
16	! Objet:
17	! ------
18
19	! *********************************************************************
20	! calcul des compos. contravariantes a partir des comp.covariantes
21	! ********************************************************************
22
23	! =======================================================================
24
25
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