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

Diff of /trunk/dyn3d/inithist.f90

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

trunk/dyn3d/inithist.f revision 302 by guez, Thu Sep 6 13:19:51 2018 UTC trunk/dyn3d/inithist.f90 revision 335 by guez, Thu Sep 12 21:22:46 2019 UTC
# Line 17  contains Line 17  contains
17      use comconst, only: dtvr      use comconst, only: dtvr
18      USE dimensions, ONLY: jjm, llm, nqmx      USE dimensions, ONLY: jjm, llm, nqmx
19      USE disvert_m, ONLY: presnivs      USE disvert_m, ONLY: presnivs
20      use dynetat0_m, only: day_ref, annee_ref, rlatu, rlatv, rlonu, rlonv      use dynetat0_m, only: itau_dyn, rlatu, rlatv, rlonu, rlonv
21        USE dynetat0_chosen_m, ONLY: day_ref, annee_ref
22      use histbeg_totreg_m, only: histbeg_totreg      use histbeg_totreg_m, only: histbeg_totreg
23      USE histdef_m, ONLY: histdef      USE histdef_m, ONLY: histdef
24      USE histend_m, ONLY: histend      USE histend_m, ONLY: histend
25      USE histvert_m, ONLY: histvert      USE histvert_m, ONLY: histvert
26      USE iniadvtrac_m, ONLY: ttext      USE infotrac_init_m, ONLY: ttext
27      USE nr_util, ONLY: pi      USE nr_util, ONLY: pi
28      USE paramet_m, ONLY: iip1, jjp1      USE paramet_m, ONLY: iip1, jjp1
     USE temps, ONLY: itau_dyn  
29      use ymds2ju_m, ONLY: ymds2ju      use ymds2ju_m, ONLY: ymds2ju
30    
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
32      real, intent(in):: t_wrt ! fréquence d'écriture sur le fichier      real, intent(in):: t_wrt ! fréquence d'écriture sur le fichier
33    
34      ! Local:      ! Local:
35      real julian      double precision julian
36      integer iq      integer iq
37      integer uhoriid, vhoriid, thoriid, zvertiid      integer uhoriid, vhoriid, thoriid, zvertiid
38    
Legend:
Removed from v.302  
changed lines
  Added in v.335
  ViewVC Help
Powered by ViewVC 1.1.21