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

Diff of /trunk/dyn3d/bernoui.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 13  contains Line 13  contains
13      ! Objet : calcul de la fonction de Bernouilli aux niveaux s.      ! Objet : calcul de la fonction de Bernouilli aux niveaux s.
14    
15      USE dimens_m, ONLY: iim, jjm, llm      USE dimens_m, ONLY: iim, jjm, llm
16      USE filtreg_m, ONLY: filtreg      USE filtreg_scal_m, ONLY: filtreg_scal
17    
18      REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm)      REAL, INTENT(IN):: phi(:, :, :), ecin (:, :, :) ! (iim + 1, jjm + 1, llm)
19    
# Line 23  contains Line 23  contains
23      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
24    
25      bernoui = phi + ecin      bernoui = phi + ecin
26      CALL filtreg(bernoui, direct = .true., intensive = .true.)      CALL filtreg_scal(bernoui, direct = .true., intensive = .true.)
27    
28    END function bernoui    END function bernoui
29    
Legend:
Removed from v.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21