/[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 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 43  contains Line 43  contains
43      USE dimphy      USE dimphy
44      use conf_gcm_m      use conf_gcm_m
45      USE comgeom      USE comgeom
     USE nr_util, ONLY : pi  
46      USE ymds2ju_m      USE ymds2ju_m
47    
48      !   Arguments      !   Arguments
# Line 59  contains Line 58  contains
58    
59      INTEGER tau0      INTEGER tau0
60      REAL zjulian      REAL zjulian
     CHARACTER(len=3) str  
     CHARACTER(len=10) ctrac  
61      INTEGER zvertiid      INTEGER zvertiid
62      LOGICAL ok_sync      LOGICAL ok_sync
63      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 67  contains
67      !-----------------------------------------------------      !-----------------------------------------------------
68    
69      !  Initialisations      !  Initialisations
     str = 'q  '  
     ctrac = 'traceur   '  
70      ok_sync = .TRUE.      ok_sync = .TRUE.
71    
72      !  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.178
  ViewVC Help
Powered by ViewVC 1.1.21