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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 155 by guez, Tue May 26 17:46:03 2015 UTC revision 156 by guez, Thu Jul 16 17:39:10 2015 UTC
# Line 30  SUBROUTINE prather(q, w, masse, pbaru, p Line 30  SUBROUTINE prather(q, w, masse, pbaru, p
30    
31    ! Arguments:    ! Arguments:
32    ! ----------    ! ----------
33    INTEGER iq, nt    INTEGER nt
34    REAL, INTENT (IN) :: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)    REAL, INTENT (IN) :: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
35    REAL masse(iip1, jjp1, llm)    REAL masse(iip1, jjp1, llm)
36    REAL q(iip1, jjp1, llm, 0:9)    REAL q(iip1, jjp1, llm, 0:9)
37    REAL w(ip1jmp1, llm)    REAL w(ip1jmp1, llm)
   INTEGER ordre, ilim  
38    
39    ! Local:    ! Local:
40    ! ------    ! ------
41    LOGICAL limit    LOGICAL limit
   REAL zq(iip1, jjp1, llm)  
42    REAL sm(iip1, jjp1, llm)    REAL sm(iip1, jjp1, llm)
43    REAL s0(iip1, jjp1, llm), sx(iip1, jjp1, llm)    REAL s0(iip1, jjp1, llm), sx(iip1, jjp1, llm)
44    REAL sy(iip1, jjp1, llm), sz(iip1, jjp1, llm)    REAL sy(iip1, jjp1, llm), sz(iip1, jjp1, llm)
Legend:
Removed from v.155  
changed lines
  Added in v.156
  ViewVC Help
Powered by ViewVC 1.1.21