/[lmdze]/trunk/dyn3d/inithist.f
ViewVC logotype

Diff of /trunk/dyn3d/inithist.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 144 by guez, Wed Jun 10 16:46:46 2015 UTC 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 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, rlatu, rlatv, rlonu, rlonv      use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv
Legend:
Removed from v.144  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.21