/[lmdze]/trunk/dyn3d/Vlsplt/vlx.f90
ViewVC logotype

Diff of /trunk/dyn3d/Vlsplt/vlx.f90

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 13  Line 13 
13        use dimens_m        use dimens_m
14        use paramet_m        use paramet_m
15        use comconst        use comconst
16        use comvert        use disvert_m
17        use logic        use conf_gcm_m
18        IMPLICIT NONE        IMPLICIT NONE
19  !  !
20  !  !
# Line 112  Line 112 
112    
113                 ! l=1,llm                 ! l=1,llm
114           ENDDO           ENDDO
 !print*,'Ok calcul des pentes'  
   
115             ! (pente_max.lt.-1.e-5)             ! (pente_max.lt.-1.e-5)
116        ELSE        ELSE
117    
# Line 157  Line 155 
155    
156        ENDDO        ENDDO
157    
 ! print*,'Bouclage en iip1'  
   
158  !   calcul des flux a gauche et a droite  !   calcul des flux a gauche et a droite
159    
160  !   on cumule le flux correspondant a toutes les mailles dont la masse  !   on cumule le flux correspondant a toutes les mailles dont la masse
Legend:
Removed from v.31  
changed lines
  Added in v.66
  ViewVC Help
Powered by ViewVC 1.1.21