Parent Directory
|
Revision Log
|
Patch
revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC | revision 68 by guez, Wed Nov 14 16:59:30 2012 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) |
15 | real, intent(in):: phi(ip1jmp1, llm) | |
16 | real, intent(in):: teta(ip1jmp1, llm) | |
17 | REAL phis(ip1jmp1) | REAL phis(ip1jmp1) |
18 | REAL, intent(in):: time_step | REAL, intent(in):: time_step |
19 | INTEGER, INTENT (IN) :: itau | INTEGER, INTENT (IN) :: itau |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |