/[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 106 by guez, Tue Sep 9 12:54:30 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    
13      use grad_m, only: grad      use dimens_m, only: iim, jjm
     use filtreg_m, only: filtreg  
14      use divergf_m, only: divergf      use divergf_m, only: divergf
15      USE dimens_m, ONLY: llm      use filtreg_m, only: filtreg
16        use grad_m, only: grad
17      USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1      USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1
18    
19      INTEGER, intent(in):: klevel      INTEGER, intent(in):: klevel
20      REAL, intent(inout):: teta(ip1jmp1, klevel)      REAL, intent(inout):: teta(iim + 1, jjm + 1, klevel)
21    
22      ! Variables locales:      ! Variables locales:
23      REAL ghy(ip1jm, llm), ghx(ip1jmp1, llm)      REAL ghy(ip1jm, klevel), ghx(ip1jmp1, klevel)
24    
25      !-----------------------------------------------------------------      !-----------------------------------------------------------------
26    
27      CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE., 1)      CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.)
28      CALL grad(klevel, teta, ghx, ghy)      CALL grad(klevel, teta, ghx, ghy)
29      CALL divergf(klevel, ghx, ghy, teta)      CALL divergf(klevel, ghx, ghy, teta)
30    
Legend:
Removed from v.61  
changed lines
  Added in v.106
  ViewVC Help
Powered by ViewVC 1.1.21