/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/Sources/bibio/inithist.f revision 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 4  module inithist_m Line 4  module inithist_m
4    
5  contains  contains
6    
7    subroutine inithist(day0, anne0, tstep, nq, t_ops, t_wrt)    subroutine inithist(tstep, nq, t_ops, t_wrt)
8    
9      ! 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
10      ! L. Fairhead, LMD, 03/99      ! L. Fairhead, LMD, 03/99
# 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    
     USE calendar, ONLY: ymds2ju  
15      USE com_io_dyn, ONLY: histid, histuid, histvid      USE com_io_dyn, ONLY: histid, histuid, histvid
16        USE dimens_m, ONLY: jjm, llm
17        USE disvert_m, ONLY: presnivs
18        use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv
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    
     integer, intent(in):: day0, anne0 ! date de référence  
29      real, intent(in):: tstep ! durée du pas de temps en secondes      real, intent(in):: tstep ! durée du pas de temps en secondes
30      integer, intent(in):: nq ! nombre de traceurs      integer, intent(in):: nq ! nombre de traceurs
31      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 37  contains
37      real rlong(iip1, jjp1), rlat(iip1, jjp1)      real rlong(iip1, jjp1), rlat(iip1, jjp1)
38      integer uhoriid, vhoriid, thoriid, zvertiid      integer uhoriid, vhoriid, thoriid, zvertiid
39      integer ii, jj      integer ii, jj
     integer zan, dayref  
40    
41      !-----------------------------------------------------------------------      !-----------------------------------------------------------------------
42    
43      zan = anne0      CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian)
     dayref = day0  
     CALL ymds2ju(zan, 1, dayref, 0.0, zjulian)  
44    
45      do jj = 1, jjp1      do jj = 1, jjp1
46         do ii = 1, iip1         do ii = 1, iip1
Legend:
Removed from v.82  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21