Parent Directory | Revision Log | Patch
revision 64 by guez, Wed Aug 29 14:47:17 2012 UTC | revision 73 by guez, Fri Nov 15 17:48:30 2013 UTC | |
---|---|---|
# | Line 16 SUBROUTINE sortvarc0(ucov, teta, ps, mas | Line 16 SUBROUTINE sortvarc0(ucov, teta, ps, mas |
16 | ! Arguments: | ! Arguments: |
17 | ||
18 | REAL, INTENT (IN) :: ucov(ip1jmp1, llm) | REAL, INTENT (IN) :: ucov(ip1jmp1, llm) |
19 | REAL :: teta(ip1jmp1, llm), masse(ip1jmp1, llm) | REAL, INTENT(IN):: teta(ip1jmp1, llm) |
20 | real masse(ip1jmp1, llm) | |
21 | REAL, INTENT (IN) :: ps(ip1jmp1) | REAL, INTENT (IN) :: ps(ip1jmp1) |
22 | REAL, INTENT (IN) :: phis(ip1jmp1) | REAL, INTENT (IN) :: phis(ip1jmp1) |
23 | REAL :: vorpot(ip1jm, llm) | REAL :: vorpot(ip1jm, llm) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |