/[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/bibio/inithist.f revision 92 by guez, Wed Mar 26 18:16:05 2014 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(day0, anne0, tstep, nq, t_ops, t_wrt)    subroutine inithist(tstep, nq, t_ops, t_wrt)
10    
11      ! From inithist.F, version 1.1.1.1 2004/05/19 12:53:05      ! From inithist.F, version 1.1.1.1 2004/05/19 12:53:05
12      ! L. Fairhead, LMD, 03/99      ! L. Fairhead, LMD, 03/99
# 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, 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
# Line 26  contains Line 27  contains
27      USE temps, ONLY: itau_dyn      USE temps, ONLY: itau_dyn
28      USE ymds2ju_m, ONLY: ymds2ju      USE ymds2ju_m, ONLY: ymds2ju
29    
     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
31      integer, intent(in):: nq ! nombre de traceurs      integer, intent(in):: nq ! nombre de traceurs
32      real, intent(in):: t_ops ! fréquence de l'opération pour IOIPSL      real, intent(in):: t_ops ! fréquence de l'opération pour IOIPSL
# Line 38  contains Line 38  contains
38      real rlong(iip1, jjp1), rlat(iip1, jjp1)      real rlong(iip1, jjp1), rlat(iip1, jjp1)
39      integer uhoriid, vhoriid, thoriid, zvertiid      integer uhoriid, vhoriid, thoriid, zvertiid
40      integer ii, jj      integer ii, jj
     integer zan, dayref  
41    
42      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
43    
44      zan = anne0      CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
     dayref = day0  
     CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)  
45    
46      do jj = 1, jjp1      do jj = 1, jjp1
47         do ii = 1, iip1         do ii = 1, iip1
Legend:
Removed from v.92  
changed lines
  Added in v.212
  ViewVC Help
Powered by ViewVC 1.1.21