/[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 27 by guez, Thu Mar 25 14:29:07 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 25  c--------------------------------------- Line 25  c---------------------------------------
25        real   massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm)              real   massebx(iip1,jjp1,llm),masseby(iip1,jjm,llm)      
26        real   w(iip1,jjp1,llm+1)        real   w(iip1,jjp1,llm+1)
27        real   fluxwppm(iim,jjp1,llm)        real   fluxwppm(iim,jjp1,llm)
28        real   pbaru(iip1,jjp1,llm )        real, intent(in)::   pbaru(iip1,jjp1,llm )
29        real   pbarv(iip1,jjm,llm)        real, intent(in)::   pbarv(iip1,jjm,llm)
30        real   unatppm(iim,jjp1,llm)        real   unatppm(iim,jjp1,llm)
31        real   vnatppm(iim,jjp1,llm)        real   vnatppm(iim,jjp1,llm)
32        real   psppm(iim,jjp1)        real   psppm(iim,jjp1)
# 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.27  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21