/[lmdze]/trunk/Sources/dyn3d/fluxstokenc.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/fluxstokenc.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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
Legend:
Removed from v.32  
changed lines
  Added in v.44
  ViewVC Help
Powered by ViewVC 1.1.21