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

Diff of /trunk/dyn3d/advtrac.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 32  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q Line 32  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q
32    INTEGER iapptrac    INTEGER iapptrac
33    REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm)    REAL pbaru(ip1jmp1,llm), pbarv(ip1jm,llm)
34    REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm)    REAL q(ip1jmp1,llm,nqmx), masse(ip1jmp1,llm)
35    REAL p(ip1jmp1,llmp1), teta(ip1jmp1,llm)    REAL, intent(in):: p(ip1jmp1,llmp1)
36      real teta(ip1jmp1,llm)
37    REAL pk(ip1jmp1,llm)    REAL pk(ip1jmp1,llm)
38    
39    !-------------------------------------------------------------    !-------------------------------------------------------------
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21