/[lmdze]/trunk/dyn3d/groupeun.f
ViewVC logotype

Diff of /trunk/dyn3d/groupeun.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 27  Champs 3D Line 27  Champs 3D
27        j2=2        j2=2
28        do ig=1,ngroup        do ig=1,ngroup
29           do j=j1-jd,j2-jd           do j=j1-jd,j2-jd
 c           print*,'groupe ',ig,'  j= ',j,2**(ngroup-ig+1),'pts groupes'  
30              do i0=1,iim,2**(ngroup-ig+1)              do i0=1,iim,2**(ngroup-ig+1)
31                 airen=0.                 airen=0.
32                 airecn=0.                 airecn=0.
Legend:
Removed from v.3  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21