trunk/dyn3d/covcont.f90

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	module covcont_m
2
3	IMPLICIT NONE
4
5	contains
6
7	SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
8
9	! From LMDZ4/libf/dyn3d/covcont.F, version 1.1.1.1 2004/05/19 12:53:07
10
11	USE dimensions
12	USE paramet_m
13	USE comgeom
14	! =======================================================================
15
16	! Auteur: P. Le Van
17	! -------
18
19	! Objet:
20	! ------
21
22	! *********************************************************************
23	! calcul des compos. contravariantes a partir des comp.covariantes
24	! ********************************************************************
25
26	! =======================================================================
27
28
29	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
34
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	END DO
46	RETURN
47	END SUBROUTINE covcont
48
49	end module covcont_m