/[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

trunk/libf/IOIPSL/Histcom/histend.f90 revision 62 by guez, Thu Jul 26 14:37:37 2012 UTC trunk/IOIPSL/Histcom/histend.f revision 93 by guez, Tue Apr 1 15:50:48 2014 UTC
# Line 9  contains Line 9  contains
9      ! This subroutine ends the declaration of variables, sets the time      ! This subroutine ends the declaration of variables, sets the time
10      ! axes in the NetCDF file and puts it into write mode.      ! axes in the NetCDF file and puts it into write mode.
11    
     USE ioipslmpp, ONLY: ioipslmpp_addatt  
12      USE errioipsl, ONLY: histerr      USE errioipsl, ONLY: histerr
13      USE histcom_var, ONLY: date0, freq_opp, freq_wrt, fullop, &      USE histcom_var, ONLY: date0, freq_opp, freq_wrt, fullop, &
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 calendar, ONLY: ju2ymds      USE ioipslmpp, ONLY: ioipslmpp_addatt
19        USE ju2ymds_m, ONLY: ju2ymds
20      USE netcdf, ONLY: nf90_float, nf90_unlimited      USE netcdf, ONLY: nf90_float, nf90_unlimited
21      use netcdf95, only: nf95_def_dim, nf95_def_var, nf95_put_att, nf95_enddef      use netcdf95, only: nf95_def_dim, nf95_def_var, nf95_put_att, nf95_enddef
22    
# 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.62  
changed lines
  Added in v.93
  ViewVC Help
Powered by ViewVC 1.1.21