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

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

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

trunk/IOIPSL/Histcom/histend.f revision 106 by guez, Tue Sep 9 12:54:30 2014 UTC trunk/IOIPSL/Histcom/histend.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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.106  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21