/[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.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/bibio/writehist.f revision 115 by guez, Fri Sep 19 17:36:20 2014 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.76  
changed lines
  Added in v.115
  ViewVC Help
Powered by ViewVC 1.1.21