/[lmdze]/trunk/Sources/dyn3d/inithist.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/inithist.f

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

trunk/libf/bibio/inithist.f90 revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC trunk/bibio/inithist.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC
# Line 82  contains Line 82  contains
82    
83      ! Appel a histvert pour la grille verticale      ! Appel a histvert pour la grille verticale
84    
85      call histvert(histid, 'presnivs', 'Niveaux pression','mb', llm, &      call histvert(histid, 'presnivs', 'Niveaux pression','mb', presnivs/100., &
86             zvertiid,'down')
87        call histvert(histvid, 'presnivs', 'Niveaux pression','mb', &
88           presnivs/100., zvertiid,'down')           presnivs/100., zvertiid,'down')
89      call histvert(histvid, 'presnivs', 'Niveaux pression','mb', llm, &      call histvert(histuid, 'presnivs', 'Niveaux pression','mb', &
          presnivs/100., zvertiid,'down')  
     call histvert(histuid, 'presnivs', 'Niveaux pression','mb', llm, &  
90           presnivs/100., zvertiid,'down')           presnivs/100., zvertiid,'down')
91    
92      ! Appels a histdef pour la definition des variables a sauvegarder      ! Appels a histdef pour la definition des variables a sauvegarder
Legend:
Removed from v.66  
changed lines
  Added in v.76
  ViewVC Help
Powered by ViewVC 1.1.21