/[lmdze]/trunk/dyn3d/covcont.f
ViewVC logotype

Diff of /trunk/dyn3d/covcont.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/dyn3d/covcont.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/covcont.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
1  !  
2  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/covcont.F,v 1.1.1.1 2004/05/19 12:53:07 lmdzadmin Exp $  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/covcont.F,v 1.1.1.1 2004/05/19
3  !  ! 12:53:07 lmdzadmin Exp $
4        SUBROUTINE covcont (klevel,ucov, vcov, ucont, vcont )  
5        use dimens_m  SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
6        use paramet_m    USE dimens_m
7        use comgeom    USE paramet_m
8        IMPLICIT NONE    USE comgeom
9      IMPLICIT NONE
10  c=======================================================================  
11  c    ! =======================================================================
12  c   Auteur:  P. Le Van  
13  c   -------    ! Auteur:  P. Le Van
14  c    ! -------
15  c   Objet:  
16  c   ------    ! Objet:
17  c    ! ------
18  c  *********************************************************************  
19  c    calcul des compos. contravariantes a partir des comp.covariantes    ! *********************************************************************
20  c  ********************************************************************    ! calcul des compos. contravariantes a partir des comp.covariantes
21  c    ! ********************************************************************
22  c=======================================================================  
23      ! =======================================================================
24    
25        INTEGER klevel  
26        REAL, intent(in):: ucov( ip1jmp1,klevel ),  vcov( ip1jm,klevel )    INTEGER klevel
27        REAL ucont( ip1jmp1,klevel ), vcont( ip1jm,klevel )    REAL, INTENT (IN) :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
28        INTEGER   l,ij    REAL ucont(ip1jmp1, klevel), vcont(ip1jm, klevel)
29      INTEGER l, ij
30    
31        DO 10 l = 1,klevel  
32      DO l = 1, klevel
33        DO 2  ij = iip2, ip1jm  
34        ucont( ij,l ) = ucov( ij,l ) * unscu2( ij )      DO ij = iip2, ip1jm
35     2  CONTINUE        ucont(ij, l) = ucov(ij, l)*unscu2(ij)
36        END DO
37        DO 4 ij = 1,ip1jm  
38        vcont( ij,l ) = vcov( ij,l ) * unscv2( ij )      DO ij = 1, ip1jm
39     4  CONTINUE        vcont(ij, l) = vcov(ij, l)*unscv2(ij)
40        END DO
41    10  CONTINUE  
42        RETURN    END DO
43        END    RETURN
44    END SUBROUTINE covcont
Legend:
Removed from v.76  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21