/[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 61 by guez, Fri Apr 20 14:58:43 2012 UTC trunk/bibio/inithist.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC
# Line 20  contains Line 20  contains
20      USE histvert_m, ONLY : histvert      USE histvert_m, ONLY : histvert
21      USE dimens_m, ONLY: jjm, llm      USE dimens_m, ONLY: jjm, llm
22      USE paramet_m, ONLY: iip1, jjp1      USE paramet_m, ONLY: iip1, jjp1
23      USE comvert, ONLY: presnivs      USE disvert_m, ONLY: presnivs
24      USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv      USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv
25      USE temps, ONLY: itau_dyn      USE temps, ONLY: itau_dyn
26      USE iniadvtrac_m, ONLY: ttext      USE iniadvtrac_m, ONLY: ttext
# 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.61  
changed lines
  Added in v.82
  ViewVC Help
Powered by ViewVC 1.1.21