/[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.f90 revision 61 by guez, Fri Apr 20 14:58:43 2012 UTC trunk/dyn3d/laplacien.f revision 103 by guez, Fri Aug 29 13:00:05 2014 UTC
# Line 10  contains Line 10  contains
10      ! P. Le Van      ! P. Le Van
11      ! Calcul de div(grad) de teta.      ! Calcul de div(grad) de teta.
12    
     use grad_m, only: grad  
     use filtreg_m, only: filtreg  
13      use divergf_m, only: divergf      use divergf_m, only: divergf
14      USE dimens_m, ONLY: llm      use filtreg_m, only: filtreg
15        use grad_m, only: grad
16      USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1      USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1
17    
18      INTEGER, intent(in):: klevel      INTEGER, intent(in):: klevel
19      REAL, intent(inout):: teta(ip1jmp1, klevel)      REAL, intent(inout):: teta(ip1jmp1, klevel)
20    
21      ! Variables locales:      ! Variables locales:
22      REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm)      REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
23    
24      !-----------------------------------------------------------------      !-----------------------------------------------------------------
25    
26      CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE., 1)      CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.)
27      CALL grad(klevel, teta, ghx, ghy)      CALL grad(klevel, teta, ghx, ghy)
28      CALL divergf(klevel, ghx, ghy, teta)      CALL divergf(klevel, ghx, ghy, teta)
29    
Legend:
Removed from v.61  
changed lines
  Added in v.103
  ViewVC Help
Powered by ViewVC 1.1.21