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

Diff of /trunk/dyn3d/interpre.f

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

revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC
# Line 8  Line 8 
8         use dimens_m         use dimens_m
9        use paramet_m        use paramet_m
10        use comconst        use comconst
11        use comvert        use disvert_m
12          use conf_gcm_m
13        use conf_gcm_m        use conf_gcm_m
       use logic  
14        use comgeom        use comgeom
15        use temps        use temps
16        use ener        use ener
# Line 91  c Flux en l=1 (sol) nul Line 91  c Flux en l=1 (sol) nul
91             do j=1,jjp1             do j=1,jjp1
92                do i=1,iip1                              do i=1,iip1              
93                 fluxw(i,j,l)=w(i,j,l)*g*0.01/aire_2d(i,j)                 fluxw(i,j,l)=w(i,j,l)*g*0.01/aire_2d(i,j)
 C               print*,i,j,l,'fluxw(i,j,l)=',fluxw(i,j,l),  
 C     c                      'w(i,j,l)=',w(i,j,l)  
94                enddo                enddo
95             enddo             enddo
96        enddo        enddo
Legend:
Removed from v.31  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.21