/[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/Sources/bibio/inithist.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/Sources/dyn3d/inithist.f revision 212 by guez, Thu Jan 12 12:31:31 2017 UTC
# Line 2  module inithist_m Line 2  module inithist_m
2    
3    implicit none    implicit none
4    
5      integer histid, histvid, histuid
6    
7  contains  contains
8    
9    subroutine inithist(tstep, nq, t_ops, t_wrt)    subroutine inithist(tstep, nq, t_ops, t_wrt)
# Line 12  contains Line 14  contains
14      ! Routine d'initialisation des écritures des fichiers histoires      ! Routine d'initialisation des écritures des fichiers histoires
15      ! LMDZ au format IOIPSL.      ! LMDZ au format IOIPSL.
16    
     USE comgeom, ONLY: rlatu, rlatv, rlonu, rlonv  
     USE com_io_dyn, ONLY: histid, histuid, histvid  
17      USE dimens_m, ONLY: jjm, llm      USE dimens_m, ONLY: jjm, llm
18      USE disvert_m, ONLY: presnivs      USE disvert_m, ONLY: presnivs
19      use dynetat0_m, only: day_ref, annee_ref      use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv
20      USE histbeg_totreg_m, ONLY : histbeg_totreg      USE histbeg_totreg_m, ONLY : histbeg_totreg
21      USE histdef_m, ONLY : histdef      USE histdef_m, ONLY : histdef
22      USE histend_m, ONLY : histend      USE histend_m, ONLY : histend
Legend:
Removed from v.134  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.21