/[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 65 by guez, Thu Sep 20 09:57:03 2012 UTC trunk/dyn3d/laplacien.f revision 107 by guez, Thu Sep 11 15:09:15 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 dimens_m, ONLY: llm      use dimens_m, only: iim, jjm
14      use divergf_m, only: divergf      use divergf_m, only: divergf
15      use filtreg_m, only: filtreg      use filtreg_m, only: filtreg
16      use grad_m, only: grad      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.)      CALL filtreg(teta, direct = .true., intensive = .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.65  
changed lines
  Added in v.107
  ViewVC Help
Powered by ViewVC 1.1.21