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