/[lmdze]/trunk/Sources/dyn3d/writehist.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/writehist.f

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

trunk/bibio/writehist.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/Sources/bibio/writehist.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 34  contains Line 34  contains
34    
35      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm)
36      REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm)      REAL teta(ip1jmp1, llm), phi(ip1jmp1, llm)
37      REAL ps(ip1jmp1), masse(ip1jmp1, llm)      REAL, intent(in):: ps(ip1jmp1), masse(ip1jmp1, llm)
38      REAL q(ip1jmp1, llm, nqmx)      REAL q(ip1jmp1, llm, nqmx)
39      integer time      integer time
40    
41      ! This routine needs IOIPSL to work      ! This routine needs IOIPSL to work
42      ! Variables locales      ! Variables locales
43    
     integer iq, ii, ll  
44      integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1)      integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1)
45      logical ok_sync      logical ok_sync
46      integer itau_w      integer itau_w
Legend:
Removed from v.82  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21