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

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

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

revision 157 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 limz(s0, sz, sm, pente_max) Line 40  SUBROUTINE limz(s0, sz, sm, pente_max)
40    REAL dzqw(ip1jmp1)    REAL dzqw(ip1jmp1)
41    REAL adzqw(ip1jmp1), dzqmax(ip1jmp1)    REAL adzqw(ip1jmp1), dzqmax(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.157  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21