22 |
|
|
23 |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm), teta(ip1jmp1, llm) |
REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm), teta(ip1jmp1, llm) |
24 |
REAL q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nq) |
REAL q(:, :, :, :) ! (iim + 1, jjm + 1, llm, nq) |
25 |
REAL ps(ip1jmp1), masse(ip1jmp1, llm) |
REAL, intent(inout):: ps(ip1jmp1) |
26 |
|
REAL masse(ip1jmp1, llm) |
27 |
|
|
28 |
REAL vcovm1(ip1jm, llm), ucovm1(ip1jmp1, llm) |
REAL vcovm1(ip1jm, llm), ucovm1(ip1jmp1, llm) |
29 |
REAL tetam1(ip1jmp1, llm), psm1(ip1jmp1), massem1(ip1jmp1, llm) |
REAL tetam1(ip1jmp1, llm), psm1(ip1jmp1), massem1(ip1jmp1, llm) |