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

Diff of /trunk/dyn3d/laplacien.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 137 by guez, Wed May 6 15:51:03 2015 UTC
# Line 12  contains Line 12  contains
12    
13      use dimens_m, only: iim, jjm      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_scal_m, only: filtreg_scal
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    
# Line 24  contains Line 24  contains
24    
25      !-----------------------------------------------------------------      !-----------------------------------------------------------------
26    
27      CALL filtreg(teta, direct = .true., intensive = .true.)      CALL filtreg_scal(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.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21