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

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

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

revision 177 by guez, Wed Apr 29 15:47:56 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 1  Line 1 
1  module histend_m  module histend_m
2    
3      use histcom_var, only: nb_files_max, nb_var_max
4    
5    implicit none    implicit none
6    
7      INTEGER, SAVE:: ncvar_ids(nb_files_max, nb_var_max)
8      private nb_files_max, nb_var_max
9    
10  contains  contains
11    
12    SUBROUTINE histend(fileid)    SUBROUTINE histend(fileid)
# Line 10  contains Line 15  contains
15      ! axes in the NetCDF file and puts it into write mode.      ! axes in the NetCDF file and puts it into write mode.
16    
17      USE errioipsl, ONLY: histerr      USE errioipsl, ONLY: histerr
18      USE histcom_var, ONLY: date0, freq_opp, freq_wrt, fullop, &      use histbeg_totreg_m, ONLY: date0, regular
19           missing_val, name, nb_tax, nb_var, ncdf_ids, ncvar_ids, regular, &      USE histcom_var, ONLY: freq_opp, freq_wrt, fullop, missing_val, name, &
20           tax_name, tdimid, tid, title, topp, unit_name, var_axid, var_zaxid, &           nb_tax, nb_var, ncdf_ids, tax_name, tdimid, tid, title, topp, &
21           xid, yid, zax_ids, zax_name           unit_name, var_axid, var_zaxid, xid, yid, zax_ids, zax_name
22      USE ioget_calendar_m, ONLY: ioget_calendar_str      USE ioget_calendar_m, ONLY: ioget_calendar_str
     USE ioipslmpp, ONLY: ioipslmpp_addatt  
23      USE ju2ymds_m, ONLY: ju2ymds      USE ju2ymds_m, ONLY: ju2ymds
24      USE netcdf, ONLY: nf90_float, nf90_unlimited      USE netcdf, ONLY: nf90_float, nf90_unlimited
25      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
# Line 184  contains Line 188  contains
188         END IF         END IF
189      END DO      END DO
190    
     ! Add MPP attributes  
     CALL ioipslmpp_addatt(ncid)  
   
191      ! 3.0 Put the netcdf file into write mode      ! 3.0 Put the netcdf file into write mode
192      call nf95_enddef(ncid)      call nf95_enddef(ncid)
193    
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21