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 |