Parent Directory | Revision Log | Patch
revision 44 by guez, Wed Apr 13 12:29:18 2011 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), phi(ip1jmp1, llm) | REAL masse(ip1jmp1, llm) |
15 | real, intent(in):: phi(ip1jmp1, llm) | |
16 | real, intent(in):: teta(ip1jmp1, llm) | real, intent(in):: teta(ip1jmp1, llm) |
17 | REAL phis(ip1jmp1) | REAL phis(ip1jmp1) |
18 | REAL, intent(in):: time_step | REAL, intent(in):: time_step |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |