/[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 82 by guez, Wed Mar 5 14:57:53 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  
     use divergf_m, only: divergf  
13      USE dimens_m, ONLY: llm      USE dimens_m, ONLY: llm
14        use divergf_m, only: divergf
15        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
# Line 24  contains Line 24  contains
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.82
  ViewVC Help
Powered by ViewVC 1.1.21