/[lmdze]/trunk/Sources/dyn3d/Dissipation/inidissip.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/Dissipation/inidissip.f

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

trunk/libf/dyn3d/Dissipation/inidissip.f90 revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC trunk/dyn3d/Dissipation/inidissip.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 45  contains Line 45  contains
45    
46      PRINT *, 'Call sequence information: inidissip'      PRINT *, 'Call sequence information: inidissip'
47      call random_seed(size=seed_size)      call random_seed(size=seed_size)
48      call random_seed(put=(/(0, ii = 1, seed_size)/))      call random_seed(put=(/(1, ii = 1, seed_size)/))
49    
50      PRINT *, 'Calcul des valeurs propres de divgrad'      PRINT *, 'Calcul des valeurs propres de divgrad'
51      deltap = 1.      deltap = 1.
Legend:
Removed from v.66  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21