/[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 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# 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.32
  ViewVC Help
Powered by ViewVC 1.1.21