/[lmdze]/trunk/dyn3d/groupe.f
ViewVC logotype

Diff of /trunk/dyn3d/groupe.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/Sources/dyn3d/groupe.f revision 207 by guez, Thu Sep 1 10:30:53 2016 UTC trunk/dyn3d/groupe.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 18  contains Line 18  contains
18      ! remarque, le wm est recalcule a partir des pbaru pbarv et on n'a          ! remarque, le wm est recalcule a partir des pbaru pbarv et on n'a    
19      ! donc pas besoin de w en entree.      ! donc pas besoin de w en entree.
20    
21      USE dimens_m      USE dimensions
22      USE paramet_m      USE paramet_m
23      USE comconst      USE comconst
24      USE disvert_m      USE disvert_m
# Line 88  contains Line 88  contains
88         END DO         END DO
89      END DO      END DO
90    
91      CALL vitvert(zconvmm, wm)      wm = vitvert(zconvmm)
92    
93    END SUBROUTINE groupe    END SUBROUTINE groupe
94    
Legend:
Removed from v.207  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21