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

Diff of /trunk/Sources/dyn3d/laplacien_gam.f

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

revision 206 by guez, Wed Apr 29 15:47:56 2015 UTC revision 207 by guez, Thu Sep 1 10:30:53 2016 UTC
# Line 1  Line 1 
1    module laplacien_gam_m
2    
3  ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien_gam.F,v 1.1.1.1    IMPLICIT NONE
 ! 2004/05/19 12:53:06 lmdzadmin Exp $  
   
 SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &  
     unsapolsga, teta, divgra)  
   
   ! P. Le Van  
   
   ! ************************************************************  
4    
5    ! ....   calcul de  (div( grad ))   de   teta  .....  contains
   ! ************************************************************  
   ! klevel et teta  sont des arguments  d'entree pour le s-prog  
   ! divgra     est  un argument  de sortie pour le s-prog  
6    
7    USE grad_m, ONLY: grad    SUBROUTINE laplacien_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, &
8    USE dimens_m         unsapolsga, teta, divgra)
   USE paramet_m  
   USE comgeom  
   IMPLICIT NONE  
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    ! ............     variables  en arguments    ..........      ! ************************************************************
15    
16    INTEGER, INTENT (IN) :: klevel      ! ....   calcul de  (div( grad ))   de   teta  .....
17    REAL teta(ip1jmp1, klevel), divgra(ip1jmp1, klevel)      ! ************************************************************
18    REAL cuvsga(ip1jm), cvusga(ip1jmp1), unsaigam(ip1jmp1), unsapolnga, &      ! klevel et teta  sont des arguments  d'entree pour le s-prog
19      unsapolsga      ! divgra     est  un argument  de sortie pour le s-prog
20    
21    ! ...........    variables  locales    .................      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    
   REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)  
   ! ......................................................  
27    
28    CALL scopy(ip1jmp1*klevel, teta, 1, divgra, 1)      ! ............     variables  en arguments    ..........
29    
30    CALL grad(klevel, divgra, ghx, ghy)      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    CALL diverg_gam(klevel, cuvsga, cvusga, unsaigam, unsapolnga, unsapolsga, &      ! ...........    variables  locales    .................
     ghx, ghy, divgra)  
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    RETURN  end module laplacien_gam_m
 END SUBROUTINE laplacien_gam  
Legend:
Removed from v.206  
changed lines
  Added in v.207
  ViewVC Help
Powered by ViewVC 1.1.21