/[lmdze]/trunk/IOIPSL/Histcom/histend.f
ViewVC logotype

Diff of /trunk/IOIPSL/Histcom/histend.f

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

revision 92 by guez, Wed Mar 26 18:16:05 2014 UTC revision 93 by guez, Tue Apr 1 15:50:48 2014 UTC
# Line 14  contains Line 14  contains
14           missing_val, name, nb_tax, nb_var, ncdf_ids, ncvar_ids, regular, &           missing_val, name, nb_tax, nb_var, ncdf_ids, ncvar_ids, regular, &
15           tax_name, tdimid, tid, title, topp, unit_name, var_axid, var_zaxid, &           tax_name, tdimid, tid, title, topp, unit_name, var_axid, var_zaxid, &
16           xid, yid, zax_ids, zax_name           xid, yid, zax_ids, zax_name
17      USE ioget_calendar_m, ONLY: ioget_calendar      USE ioget_calendar_m, ONLY: ioget_calendar_str
18      USE ioipslmpp, ONLY: ioipslmpp_addatt      USE ioipslmpp, ONLY: ioipslmpp_addatt
19      USE ju2ymds_m, ONLY: ju2ymds      USE ju2ymds_m, ONLY: ju2ymds
20      USE netcdf, ONLY: nf90_float, nf90_unlimited      USE netcdf, ONLY: nf90_float, nf90_unlimited
# Line 74  contains Line 74  contains
74         WRITE(str70, 7000) year, month, day, hours, minutes, int(sec)         WRITE(str70, 7000) year, month, day, hours, minutes, int(sec)
75         call nf95_put_att(ncid, tdimid(fileid, itx), 'units', trim(str70))         call nf95_put_att(ncid, tdimid(fileid, itx), 'units', trim(str70))
76    
77         CALL ioget_calendar(str30)         CALL ioget_calendar_str(str30)
78         call nf95_put_att(ncid, tdimid(fileid, itx), 'calendar', trim(str30))         call nf95_put_att(ncid, tdimid(fileid, itx), 'calendar', trim(str30))
79    
80         call nf95_put_att(ncid, tdimid(fileid, itx), 'title', 'Time')         call nf95_put_att(ncid, tdimid(fileid, itx), 'title', 'Time')
Legend:
Removed from v.92  
changed lines
  Added in v.93
  ViewVC Help
Powered by ViewVC 1.1.21