/[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 18 by guez, Thu Aug 7 12:29:13 2008 UTC
# Line 17  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q Line 17  SUBROUTINE advtrac(pbaru,pbarv,p,masse,q
17    USE comgeom    USE comgeom
18    USE temps    USE temps
19    USE ener    USE ener
20    USE advtrac_m    USE iniadvtrac_m
21    USE comdissip    USE comdissip
22    IMPLICIT NONE    IMPLICIT NONE
23    
# 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.18
  ViewVC Help
Powered by ViewVC 1.1.21