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

Diff of /trunk/libf/dyn3d/limy.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 52  c Line 52  c
52        REAL      SSUM        REAL      SSUM
53        integer ismax,ismin        integer ismax,ismin
54        EXTERNAL  SSUM, convflu,ismin,ismax        EXTERNAL  SSUM, convflu,ismin,ismax
       EXTERNAL filtreg  
55    
56        data first/.true./        data first/.true./
57    
# Line 115  c   calcul des pentes aux poles Line 114  c   calcul des pentes aux poles
114    
115  c   calcul des pentes limites aux poles  c   calcul des pentes limites aux poles
116    
 c     print*,dyqv(iip1+1)  
 c     apn=abs(dyq(1)/dyqv(iip1+1))  
 c     print*,dyq(ip1jm+1)  
 c     print*,dyqv(ip1jm-iip1+1)  
 c     aps=abs(dyq(ip1jm+1)/dyqv(ip1jm-iip1+1))  
 c     do ij=2,iim  
 c        apn=amax1(abs(dyq(ij)/dyqv(ij)),apn)  
 c        aps=amax1(abs(dyq(ip1jm+ij)/dyqv(ip1jm-iip1+ij)),aps)  
 c     enddo  
 c     apn=min(pente_max/apn,1.)  
 c     aps=min(pente_max/aps,1.)  
   
   
117  c   cas ou on a un extremum au pole  c   cas ou on a un extremum au pole
118    
119  c     if(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)  c     if(dyqv(ismin(iim,dyqv,1))*dyqv(ismax(iim,dyqv,1)).le.0.)
Legend:
Removed from v.3  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21