Parent Directory | Revision Log | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |