/[lmdze]/trunk/Sources/phylmd/initphysto.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/initphysto.f

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

revision 155 by guez, Wed Jul 8 17:03:45 2015 UTC revision 186 by guez, Mon Mar 21 15:36:26 2016 UTC
# Line 31  contains Line 31  contains
31      !   L. Fairhead, 03/99      !   L. Fairhead, 03/99
32    
33      use dynetat0_m, only: day_ref, annee_ref      use dynetat0_m, only: day_ref, annee_ref
34        use gr_fi_ecrit_m, only: gr_fi_ecrit
35      USE histbeg_totreg_m, ONLY : histbeg_totreg      USE histbeg_totreg_m, ONLY : histbeg_totreg
36      USE histdef_m, ONLY : histdef      USE histdef_m, ONLY : histdef
37      USE histend_m, ONLY : histend      USE histend_m, ONLY : histend
# Line 43  contains Line 44  contains
44      USE dimphy      USE dimphy
45      use conf_gcm_m      use conf_gcm_m
46      USE comgeom      USE comgeom
     USE nr_util, ONLY : pi  
47      USE ymds2ju_m      USE ymds2ju_m
48    
49      !   Arguments      !   Arguments
# Line 59  contains Line 59  contains
59    
60      INTEGER tau0      INTEGER tau0
61      REAL zjulian      REAL zjulian
     CHARACTER(len=3) str  
     CHARACTER(len=10) ctrac  
62      INTEGER zvertiid      INTEGER zvertiid
63      LOGICAL ok_sync      LOGICAL ok_sync
64      REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)      REAL zx_lon(iim,jjm+1), zx_lat(iim,jjm+1)
# Line 70  contains Line 68  contains
68      !-----------------------------------------------------      !-----------------------------------------------------
69    
70      !  Initialisations      !  Initialisations
     str = 'q  '  
     ctrac = 'traceur   '  
71      ok_sync = .TRUE.      ok_sync = .TRUE.
72    
73      !  Appel a histbeg: creation du fichier netcdf et initialisations      !  Appel a histbeg: creation du fichier netcdf et initialisations
Legend:
Removed from v.155  
changed lines
  Added in v.186
  ViewVC Help
Powered by ViewVC 1.1.21