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

Diff of /trunk/dyn3d/covcont.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC 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 $  
   
 SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)  
   USE dimens_m  
   USE paramet_m  
   USE comgeom  
3    IMPLICIT NONE    IMPLICIT NONE
4    
5    ! =======================================================================  contains
6    
7    ! Auteur:  P. Le Van    SUBROUTINE covcont(klevel, ucov, vcov, ucont, vcont)
   ! -------  
8    
9    ! Objet:      ! From LMDZ4/libf/dyn3d/covcont.F, version 1.1.1.1 2004/05/19 12:53:07
   ! ------  
10    
11    ! *********************************************************************      USE dimens_m
12    ! calcul des compos. contravariantes a partir des comp.covariantes      USE paramet_m
13    ! ********************************************************************      USE comgeom
14        ! =======================================================================
15    
16    ! =======================================================================      ! Auteur:  P. Le Van
17        ! -------
18    
19        ! Objet:
20        ! ------
21    
22    INTEGER klevel      ! *********************************************************************
23    REAL, INTENT (IN) :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)      ! calcul des compos. contravariantes a partir des comp.covariantes
24    REAL ucont(ip1jmp1, klevel), vcont(ip1jm, klevel)      ! ********************************************************************
   INTEGER l, ij  
25    
26        ! =======================================================================
27    
   DO l = 1, klevel  
28    
29      DO ij = iip2, ip1jm      INTEGER klevel
30        ucont(ij, l) = ucov(ij, l)*unscu2(ij)      REAL, INTENT (IN) :: ucov(ip1jmp1, klevel), vcov(ip1jm, klevel)
31      END DO      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    
     DO ij = 1, ip1jm  
       vcont(ij, l) = vcov(ij, l)*unscv2(ij)  
45      END DO      END DO
46        RETURN
47      END SUBROUTINE covcont
48    
49    END DO  end module covcont_m
   RETURN  
 END SUBROUTINE covcont  
Legend:
Removed from v.134  
changed lines
  Added in v.161
  ViewVC Help
Powered by ViewVC 1.1.21