--- trunk/libf/bibio/initdynav.f90 2012/09/20 13:00:41 66 +++ trunk/bibio/initdynav.f 2014/03/26 18:16:05 92 @@ -10,11 +10,10 @@ ! From initdynav.F, version 1.1.1.1, 2004/05/19 12:53:05 ! L. Fairhead, LMD - ! Routine d'initialisation des écritures des fichiers histoires LMDZ - ! au format IOIPSL. Initialisation du fichier histoire moyenne. - use calendar, ONLY: ymds2ju - USE disvert_m, ONLY: nivsigs + ! Routine d'initialisation des écritures des fichiers histoires au + ! format IOIPSL. Initialisation du fichier histoire moyenne. + USE comgeom, ONLY: rlatu, rlonv USE dimens_m, ONLY: llm USE histbeg_totreg_m, ONLY: histbeg_totreg @@ -25,18 +24,18 @@ USE nr_util, ONLY: pi USE paramet_m, ONLY: iip1, jjp1 USE temps, ONLY: itau_dyn + use ymds2ju_m, ONLY: ymds2ju - integer, intent(in):: day0, anne0 ! date de reference - real, intent(in):: tstep ! frequence d'ecriture + integer, intent(in):: day0, anne0 ! date de référence + real, intent(in):: tstep ! fréquence d'écriture integer, intent(in):: nq ! nombre de traceurs - real, intent(in):: t_ops ! frequence de l'operation pour IOIPSL - real, intent(in):: t_wrt ! frequence d'ecriture sur le fichier + real, intent(in):: t_ops ! fréquence de l'opération pour IOIPSL + real, intent(in):: t_wrt ! fréquence d'écriture sur le fichier ! Variables locales integer horiid, zvertiid real julian - integer iq - integer ii, jj + integer iq, ii, jj, l !---------------------------------------------------- @@ -46,8 +45,8 @@ call histbeg_totreg('dyn_hist_ave.nc', rlonv * 180. / pi, & rlatu * 180. / pi, 1, iip1, 1, jjp1, itau_dyn, julian, tstep, & horiid, histaveid) - call histvert(histaveid, 'sigss', 'Niveaux sigma', 'Pa', llm, nivsigs, & - zvertiid) + call histvert(histaveid, 'sigss', 'Niveaux sigma', '', & + (/(real(l), l = 1, llm)/), zvertiid) call histdef(histaveid, 'u', 'vents u scalaires moyennes', 'm/s', iip1, & jjp1, horiid, llm, 1, llm, zvertiid, 'ave(X)', t_ops, t_wrt)