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

Diff of /trunk/dyn3d/dteta1.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 14  contains Line 14  contains
14    
15      USE dimens_m, ONLY: iim, jjm, llm      USE dimens_m, ONLY: iim, jjm, llm
16      USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1, jjp1      USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1, jjp1
17      USE filtreg_m, ONLY: filtreg      USE filtreg_scal_m, ONLY: filtreg_scal
18    
19      REAL, intent(in):: teta(ip1jmp1, llm)      REAL, intent(in):: teta(ip1jmp1, llm)
20      REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)      REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
# Line 44  contains Line 44  contains
44    
45      ! stockage dans dh de la convergence horizontale filtrée du flux      ! stockage dans dh de la convergence horizontale filtrée du flux
46      ! d'enthalpie potentielle      ! d'enthalpie potentielle
47      CALL filtreg(dteta, direct = .true., intensive = .false.)      CALL filtreg_scal(dteta, direct = .true., intensive = .false.)
48    
49    END SUBROUTINE dteta1    END SUBROUTINE dteta1
50    
Legend:
Removed from v.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21