/[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 264 by guez, Mon Feb 5 10:39:38 2018 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 12  contains Line 12  contains
12    
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 dimensions, ONLY: iim, jjm, llm
16      USE filtreg_scal_m, ONLY: filtreg_scal      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)
Legend:
Removed from v.264  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21