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

Diff of /trunk/dyn3d/laplacien_gam.f

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

trunk/dyn3d/laplacien_gam.f revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/laplacien_gam.f90 revision 81 by guez, Wed Mar 5 14:38:41 2014 UTC
# Line 1  Line 1 
 !  
 ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  
 !  
       SUBROUTINE laplacien_gam ( klevel, cuvsga, cvusga, unsaigam ,  
      *                        unsapolnga, unsapolsga, teta, divgra )  
   
 c  P. Le Van  
 c  
 c   ************************************************************  
 c  
 c      ....   calcul de  (div( grad ))   de   teta  .....  
 c   ************************************************************  
 c    klevel et teta  sont des arguments  d'entree pour le s-prog  
 c      divgra     est  un argument  de sortie pour le s-prog  
 c  
       use grad_m, only: grad  
       use dimens_m  
       use paramet_m  
       use comgeom  
       IMPLICIT NONE  
 c  
   
 c  
 c    ............     variables  en arguments    ..........  
 c  
       INTEGER, intent(in):: klevel  
       REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )  
       REAL cuvsga(ip1jm) , cvusga( ip1jmp1 ),unsaigam(ip1jmp1),  
      *     unsapolnga, unsapolsga  
 c  
 c    ...........    variables  locales    .................  
 c  
       REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)  
 c    ......................................................  
   
       CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )  
 c  
       CALL   grad ( klevel, divgra, ghx, ghy )  
 c  
       CALL  diverg_gam ( klevel, cuvsga, cvusga,  unsaigam  ,  
      *                 unsapolnga, unsapolsga, ghx , ghy , divgra )  
1    
2  c  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1
3    ! 2004/05/19 12:53:06 lmdzadmin Exp $
4    
5    SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &
6        unsapolsga, teta, divgra)
7    
8        RETURN    ! P. Le Van
9        END  
10      ! ************************************************************
11    
12      ! ....   calcul de  (div( grad ))   de   teta  .....
13      ! ************************************************************
14      ! klevel et teta  sont des arguments  d'entree pour le s-prog
15      ! divgra     est  un argument  de sortie pour le s-prog
16    
17      USE grad_m, ONLY: grad
18      USE dimens_m
19      USE paramet_m
20      USE comgeom
21      IMPLICIT NONE
22    
23    
24    
25      ! ............     variables  en arguments    ..........
26    
27      INTEGER, INTENT (IN) :: klevel
28      REAL teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
29      REAL cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), unsapolnga, &
30        unsapolsga
31    
32      ! ...........    variables  locales    .................
33    
34      REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm)
35      ! ......................................................
36    
37      CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)
38    
39      CALL grad(klevel, divgra, ghx, ghy)
40    
41      CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &
42        ghx, ghy, divgra)
43    
44    
45    
46    
47      RETURN
48    END SUBROUTINE laplacien_gam
Legend:
Removed from v.76  
changed lines
  Added in v.81
  ViewVC Help
Powered by ViewVC 1.1.21