/[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 66 by guez, Thu Sep 20 13:00:41 2012 UTC
# Line 5  Line 5 
5        use dimens_m        use dimens_m
6        use paramet_m        use paramet_m
7        use comconst        use comconst
8        use comvert        use disvert_m
9        use comgeom        use comgeom
10          USE nr_util, ONLY : pi
11        IMPLICIT NONE        IMPLICIT NONE
12    
13  c=======================================================================  c=======================================================================
# Line 248  c   filtrages aux poles Line 249  c   filtrages aux poles
249            q( i,1,llm+1-l,0)=qpn            q( i,1,llm+1-l,0)=qpn
250            q( i,jjp1,llm+1-l,0)=qps            q( i,jjp1,llm+1-l,0)=qps
251           enddo           enddo
 c       enddo  
 c         print*,'qpn',qpn,'qps',qps  
 c          print*,'dqzpn',dqzpn,'dqzps',dqzps  
 c       enddo  
252             dyn1=0.             dyn1=0.
253             dys1=0.             dys1=0.
254             dyn2=0.             dyn2=0.
# Line 336  c   bouclage en longitude Line 333  c   bouclage en longitude
333           PRINT*,'SY(',i,j,l,')=',q(i,j,l,2),           PRINT*,'SY(',i,j,l,')=',q(i,j,l,2),
334       $   q(i,j-1,l,2)         $   q(i,j-1,l,2)  
335           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'  
336                       q(i,j,l,0)=0.                       q(i,j,l,0)=0.
 c                  STOP  
337                 ENDIF                 ENDIF
338             ENDDO             ENDDO
339           ENDDO           ENDDO
Legend:
Removed from v.31  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.21