/[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 177 by guez, Mon Jul 20 16:01:49 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 40  SUBROUTINE limx(s0, sx, sm, pente_max) Line 40  SUBROUTINE limx(s0, sx, sm, pente_max)
40    REAL dxqu(ip1jmp1)    REAL dxqu(ip1jmp1)
41    REAL adxqu(ip1jmp1), dxqmax(ip1jmp1)    REAL adxqu(ip1jmp1), dxqmax(ip1jmp1)
42    
43    REAL ssum    EXTERNAL convflu
   INTEGER ismax, ismin  
   EXTERNAL ssum, convflu, ismin, ismax  
44    
45    DO l = 1, llm    DO l = 1, llm
46      DO ij = 1, ip1jmp1      DO ij = 1, ip1jmp1
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21