/[lmdze]/trunk/libf/dyn3d/prather.f
ViewVC logotype

Diff of /trunk/libf/dyn3d/prather.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 248  c   filtrages aux poles Line 248  c   filtrages aux poles
248            q( i,1,llm+1-l,0)=qpn            q( i,1,llm+1-l,0)=qpn
249            q( i,jjp1,llm+1-l,0)=qps            q( i,jjp1,llm+1-l,0)=qps
250           enddo           enddo
 c       enddo  
 c         print*,'qpn',qpn,'qps',qps  
 c          print*,'dqzpn',dqzpn,'dqzps',dqzps  
 c       enddo  
251             dyn1=0.             dyn1=0.
252             dys1=0.             dys1=0.
253             dyn2=0.             dyn2=0.
# Line 336  c   bouclage en longitude Line 332  c   bouclage en longitude
332           PRINT*,'SY(',i,j,l,')=',q(i,j,l,2),           PRINT*,'SY(',i,j,l,')=',q(i,j,l,2),
333       $   q(i,j-1,l,2)         $   q(i,j-1,l,2)  
334           PRINT*,'SZ(',i,j,l,')=',q(i,j,l,3)           PRINT*,'SZ(',i,j,l,')=',q(i,j,l,3)
 c                    PRINT*,' PBL EN SORTIE D'' ADVZP'  
335                       q(i,j,l,0)=0.                       q(i,j,l,0)=0.
 c                  STOP  
336                 ENDIF                 ENDIF
337             ENDDO             ENDDO
338           ENDDO           ENDDO
Legend:
Removed from v.31  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21