/[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 88 by guez, Tue Mar 11 15:09:02 2014 UTC revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC
# Line 12  contains Line 12  contains
12      ! Calcul du terme de convergence horizontale du flux d'enthalpie      ! Calcul du terme de convergence horizontale du flux d'enthalpie
13      ! potentielle.      ! potentielle.
14    
15      USE dimens_m, ONLY: iim, 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_m, ONLY: filtreg
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)
21      REAL, intent(out):: dteta(ip1jmp1, llm)      REAL, intent(out):: dteta(iim + 1, jjm + 1, llm)
22    
23      ! Local:      ! Local:
24      INTEGER l, ij      INTEGER l, ij
Legend:
Removed from v.88  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21