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

Diff of /trunk/dyn3d/laplacien.f

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

trunk/libf/dyn3d/laplacien.f revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC trunk/dyn3d/laplacien.f revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 1  Line 1 
1  !  module laplacien_m
 ! $Header: /home/cvsroot/LMDZ4/libf/dyn3d/laplacien.F,v 1.1.1.1 2004/05/19 12:53:06 lmdzadmin Exp $  
 !  
       SUBROUTINE laplacien ( klevel, teta, divgra )  
 c  
 c     P. Le Van  
 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  
       use filtreg_m, only: filtreg  
       use divergf_m, only: divergf  
   
       IMPLICIT NONE  
 c  
   
 c  
 c    .........      variables  en arguments   ..............  
 c  
       INTEGER, intent(in):: klevel  
       REAL teta( ip1jmp1,klevel ), divgra( ip1jmp1,klevel )  
 c  
 c    ............     variables  locales      ..............  
 c  
       REAL ghy(ip1jm,llm), ghx(ip1jmp1,llm)  
 c    .......................................................  
   
   
 c  
       CALL SCOPY ( ip1jmp1 * klevel, teta, 1, divgra, 1 )  
   
       CALL filtreg( divgra,  jjp1, klevel,  2, 1, .TRUE., 1 )  
       CALL   grad ( klevel,divgra,   ghx , ghy              )  
       CALL  divergf ( klevel, ghx , ghy  , divgra           )  
2    
3        RETURN    IMPLICIT NONE
4        END  
5    contains
6    
7      SUBROUTINE laplacien(klevel, teta)
8    
9        ! From LMDZ4/libf/dyn3d/laplacien.F, version 1.1.1.1 2004/05/19 12:53:06
10        ! P. Le Van
11        ! Calcul de div(grad) de teta.
12    
13        use divergf_m, only: divergf
14        use filtreg_m, only: filtreg
15        use grad_m, only: grad
16        USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1
17    
18        INTEGER, intent(in):: klevel
19        REAL, intent(inout):: teta(ip1jmp1, klevel)
20    
21        ! Variables locales:
22        REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
23    
24        !-----------------------------------------------------------------
25    
26        CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.)
27        CALL grad(klevel, teta, ghx, ghy)
28        CALL divergf(klevel, ghx, ghy, teta)
29    
30      END SUBROUTINE laplacien
31    
32    end module laplacien_m
Legend:
Removed from v.57  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21