/[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 313 by guez, Mon Dec 10 15:54:30 2018 UTC trunk/dyn3d/inithist.f90 revision 335 by guez, Thu Sep 12 21:22:46 2019 UTC
# Line 23  contains Line 23  contains
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
29      use ymds2ju_m, ONLY: ymds2ju      use ymds2ju_m, ONLY: ymds2ju
# Line 32  contains Line 32  contains
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.313  
changed lines
  Added in v.335
  ViewVC Help
Powered by ViewVC 1.1.21