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

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

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

revision 154 by guez, Wed Apr 29 15:47:56 2015 UTC revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC
# Line 32  SUBROUTINE limx(s0, sx, sm, pente_max) Line 32  SUBROUTINE limx(s0, sx, sm, pente_max)
32    ! Local    ! Local
33    ! ---------    ! ---------
34    
35    INTEGER ij, l, j, i, iju, ijq, indu(ip1jmp1), niju    INTEGER ij, l
   INTEGER n0, iadvplus(ip1jmp1, llm), nl(llm)  
36    
37    REAL q(ip1jmp1, llm)    REAL q(ip1jmp1, llm)
38    REAL dxq(ip1jmp1, llm)    REAL dxq(ip1jmp1, llm)
39    
   
   REAL new_m, zm  
40    REAL dxqu(ip1jmp1)    REAL dxqu(ip1jmp1)
41    REAL adxqu(ip1jmp1), dxqmax(ip1jmp1)    REAL adxqu(ip1jmp1), dxqmax(ip1jmp1)
42    
43    LOGICAL extremum, first    LOGICAL first
44    SAVE first    SAVE first
45    
46    REAL ssum, cvmgp, cvmgt    REAL ssum
47    INTEGER ismax, ismin    INTEGER ismax, ismin
48    EXTERNAL ssum, convflu, ismin, ismax    EXTERNAL ssum, convflu, ismin, ismax
49    
Legend:
Removed from v.154  
changed lines
  Added in v.155
  ViewVC Help
Powered by ViewVC 1.1.21