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 |
|
|
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 |
!------------------------------------------------------------- |
!------------------------------------------------------------- |