Parent Directory | Revision Log | Patch
revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC | revision 44 by guez, Wed Apr 13 12:29:18 2011 UTC | |
---|---|---|
# | Line 11 SUBROUTINE fluxstokenc(pbaru, pbarv, mas | Line 11 SUBROUTINE fluxstokenc(pbaru, pbarv, mas |
11 | IMPLICIT NONE | IMPLICIT NONE |
12 | ||
13 | REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) | REAL pbaru(ip1jmp1, llm), pbarv(ip1jm, llm) |
14 | REAL masse(ip1jmp1, llm), teta(ip1jmp1, llm), phi(ip1jmp1, llm) | REAL masse(ip1jmp1, llm), phi(ip1jmp1, llm) |
15 | real, intent(in):: teta(ip1jmp1, llm) | |
16 | REAL phis(ip1jmp1) | REAL phis(ip1jmp1) |
17 | REAL, intent(in):: time_step | REAL, intent(in):: time_step |
18 | INTEGER, INTENT (IN) :: itau | INTEGER, INTENT (IN) :: itau |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |