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

Diff of /trunk/Sources/bibio/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.f revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC
# Line 12  contains Line 12  contains
12      ! Routine d'initialisation des écritures des fichiers histoires      ! Routine d'initialisation des écritures des fichiers histoires
13      ! LMDZ au format IOIPSL.      ! LMDZ au format IOIPSL.
14    
15      USE calendar, ONLY: ymds2ju      USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv
16      USE com_io_dyn, ONLY: histid, histuid, histvid      USE com_io_dyn, ONLY: histid, histuid, histvid
17        USE dimens_m, ONLY: jjm, llm
18        USE disvert_m, ONLY: presnivs
19      USE histbeg_totreg_m, ONLY : histbeg_totreg      USE histbeg_totreg_m, ONLY : histbeg_totreg
20      USE histdef_m, ONLY : histdef      USE histdef_m, ONLY : histdef
21      USE histend_m, ONLY : histend      USE histend_m, ONLY : histend
22      USE histvert_m, ONLY : histvert      USE histvert_m, ONLY : histvert
     USE dimens_m, ONLY: jjm, llm  
     USE paramet_m, ONLY: iip1, jjp1  
     USE disvert_m, ONLY: presnivs  
     USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv  
     USE temps, ONLY: itau_dyn  
23      USE iniadvtrac_m, ONLY: ttext      USE iniadvtrac_m, ONLY: ttext
24      USE nr_util, ONLY: pi      USE nr_util, ONLY: pi
25        USE paramet_m, ONLY: iip1, jjp1
26        USE temps, ONLY: itau_dyn
27        USE ymds2ju_m, ONLY: ymds2ju
28    
29      integer, intent(in):: day0, anne0 ! date de référence      integer, intent(in):: day0, anne0 ! date de référence
30      real, intent(in):: tstep ! durée du pas de temps en secondes      real, intent(in):: tstep ! durée du pas de temps en secondes
# 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           presnivs/100., zvertiid,'down')           zvertiid,'down')
87      call histvert(histvid, 'presnivs', 'Niveaux pression','mb', llm, &      call histvert(histvid, 'presnivs', 'Niveaux pression','mb', &
88           presnivs/100., zvertiid,'down')           presnivs/100., zvertiid,'down')
89      call histvert(histuid, 'presnivs', 'Niveaux pression','mb', llm, &      call histvert(histuid, 'presnivs', 'Niveaux pression','mb', &
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.92
  ViewVC Help
Powered by ViewVC 1.1.21