/[lmdze]/trunk/Sources/phylmd/CV30_routines/cv30_yield.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/CV30_routines/cv30_yield.f

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

revision 185 by guez, Wed Mar 16 15:04:46 2016 UTC revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 230  contains Line 230  contains
230         enddo         enddo
231         if(num1.le.0) cycle         if(num1.le.0) cycle
232    
233         call zilch(amp1,ncum)         amp1(:ncum) = 0.
234         call zilch(ad,ncum)         ad(:ncum) = 0.
235    
236         do  k=i+1,nl+1         do  k=i+1,nl+1
237            do  il=1,ncum            do  il=1,ncum
Legend:
Removed from v.185  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21