/[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/libf/dyn3d/laplacien_gam.f revision 55 by guez, Mon Dec 12 13:25:01 2011 UTC trunk/Sources/dyn3d/laplacien_gam.f revision 207 by guez, Thu Sep 1 10:30:53 2016 UTC
# Line 1  Line 1 
1  !  module laplacien_gam_m
 ! $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 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 )  
2    
3  c    IMPLICIT NONE
4    
5    contains
6    
7        RETURN    SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &
8        END         unsapolsga, teta, divgra)
9    
10        ! From LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1, 2004/05/19 12:53:06
11    
12        ! P. Le Van
13    
14        ! ************************************************************
15    
16        ! ....   calcul de  (div( grad ))   de   teta  .....
17        ! ************************************************************
18        ! klevel et teta  sont des arguments  d'entree pour le s-prog
19        ! divgra     est  un argument  de sortie pour le s-prog
20    
21        USE comgeom
22        USE dimens_m
23        use diverg_gam_m, only: diverg_gam
24        USE grad_m, ONLY: grad
25        USE paramet_m
26    
27    
28        ! ............     variables  en arguments    ..........
29    
30        INTEGER, INTENT (IN) :: klevel
31        REAL teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)
32        REAL cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), unsapolnga, &
33             unsapolsga
34    
35        ! ...........    variables  locales    .................
36    
37        REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
38        ! ......................................................
39    
40        CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)
41        CALL grad(klevel, divgra, ghx, ghy)
42        CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &
43             ghx, ghy, divgra)
44    
45      END SUBROUTINE laplacien_gam
46    
47    end module laplacien_gam_m
Legend:
Removed from v.55  
changed lines
  Added in v.207
  ViewVC Help
Powered by ViewVC 1.1.21