/[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 91 by guez, Wed Mar 26 17:18:58 2014 UTC revision 105 by guez, Thu Sep 4 10:40:24 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 calendar, ONLY: ju2ymds  
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 ioipslmpp, ONLY: ioipslmpp_addatt      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 24  contains Line 24  contains
24    
25      ! Local:      ! Local:
26      INTEGER ncid, varid      INTEGER ncid, varid
27      INTEGER iret, ndim, iv, itx, ziv      INTEGER ndim, iv, itx, ziv
28      INTEGER itax      INTEGER itax
29      INTEGER dims(4), dim_cnt      INTEGER dims(4), dim_cnt
30      INTEGER year, month, day, hours, minutes      INTEGER year, month, day, hours, minutes
# 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.91  
changed lines
  Added in v.105
  ViewVC Help
Powered by ViewVC 1.1.21