/[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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC 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
Legend:
Removed from v.82  
changed lines
  Added in v.92
  ViewVC Help
Powered by ViewVC 1.1.21