trunk/dyn3d/covcont.f

module covcont_m

  IMPLICIT NONE

contains

  SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)

    ! From LMDZ4/libf/dyn3d/covcont.F, version 1.1.1.1 2004/05/19 12:53:07

    USE dimensions
    USE paramet_m
    USE comgeom
    ! =======================================================================

    ! 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

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