/[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 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 27  c======================================= Line 27  c=======================================
27  c   Arguments:  c   Arguments:
28  c   ----------  c   ----------
29        INTEGER iq,nt        INTEGER iq,nt
30        REAL pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )        REAL, intent(in):: pbaru( ip1jmp1,llm ),pbarv( ip1jm,llm )
31        REAL masse(iip1,jjp1,llm)        REAL masse(iip1,jjp1,llm)
32        REAL q( iip1,jjp1,llm,0:9)        REAL q( iip1,jjp1,llm,0:9)
33        REAL w( ip1jmp1,llm )        REAL w( ip1jmp1,llm )
# 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.3  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21