/[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 155 by guez, Wed Jul 8 17:03:45 2015 UTC revision 157 by guez, Mon Jul 20 16:01:49 2015 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    
   LOGICAL first  
   SAVE first  
   
43    REAL ssum    REAL ssum
44    INTEGER ismax, ismin    INTEGER ismax, ismin
45    EXTERNAL ssum, convflu, ismin, ismax    EXTERNAL ssum, convflu, ismin, ismax
46    
   DATA first/.TRUE./  
   
   
47    DO l = 1, llm    DO l = 1, llm
48      DO ij = 1, ip1jmp1      DO ij = 1, ip1jmp1
49        q(ij, l) = s0(ij, l)/sm(ij, l)        q(ij, l) = s0(ij, l)/sm(ij, l)
Legend:
Removed from v.155  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21