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

Diff of /trunk/IOIPSL/Histcom/histvert.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 16  contains Line 16  contains
16      USE find_str_m, ONLY: find_str      USE find_str_m, ONLY: find_str
17      USE histcom_var, ONLY: nb_zax, nb_zax_max, ncdf_ids, zax_ids, &      USE histcom_var, ONLY: nb_zax, nb_zax_max, ncdf_ids, zax_ids, &
18           zax_name, zax_name_length, zax_size           zax_name, zax_name_length, zax_size
19      USE netcdf, ONLY: nf90_def_dim, nf90_def_var, nf90_enddef, &      USE netcdf95, ONLY: nf95_def_dim, nf95_def_var, nf95_enddef, &
20           nf90_float, nf90_put_att, nf90_put_var, nf90_redef           nf95_put_att, nf95_put_var, nf95_redef
21        use netcdf, only: nf90_float
22      USE strlowercase_m, ONLY: strlowercase      USE strlowercase_m, ONLY: strlowercase
23    
24      INTEGER, INTENT(IN):: pfileid      INTEGER, INTENT(IN):: pfileid
# Line 43  contains Line 44  contains
44      CHARACTER(len=70):: str70, str71, str72      CHARACTER(len=70):: str70, str71, str72
45      CHARACTER(len=80):: str80      CHARACTER(len=80):: str80
46      CHARACTER(len=20):: direction      CHARACTER(len=20):: direction
47      INTEGER:: iret, leng, ncid      INTEGER:: leng, ncid
48    
49      !---------------------------------------------------------------------      !---------------------------------------------------------------------
50    
# Line 107  contains Line 108  contains
108      ncid = ncdf_ids(pfileid)      ncid = ncdf_ids(pfileid)
109    
110      leng = min(len_trim(pzaxname), 20)      leng = min(len_trim(pzaxname), 20)
111      iret = nf90_def_dim(ncid, pzaxname(1:leng), pzsize, zaxid_tmp)      call nf95_def_dim(ncid, pzaxname(1:leng), pzsize, zaxid_tmp)
112      iret = nf90_def_var(ncid, pzaxname(1:leng), nf90_float, zaxid_tmp, zdimid)      call nf95_def_var(ncid, pzaxname(1:leng), nf90_float, zaxid_tmp, zdimid)
113    
114      leng = min(len_trim(pzaxunit), 20)      leng = min(len_trim(pzaxunit), 20)
115      iret = nf90_put_att(ncid, zdimid, 'units', pzaxunit(1:leng))      call NF95_PUT_ATT(ncid, zdimid, 'units', pzaxunit(1:leng))
116      iret = nf90_put_att(ncid, zdimid, 'positive', trim(direction))      call NF95_PUT_ATT(ncid, zdimid, 'positive', trim(direction))
117    
118      iret = nf90_put_att(ncid, zdimid, 'valid_min', real(minval( &      call NF95_PUT_ATT(ncid, zdimid, 'valid_min', real(minval( &
119           pzvalues(1:pzsize))))           pzvalues(1:pzsize))))
120      iret = nf90_put_att(ncid, zdimid, 'valid_max', real(maxval( &      call NF95_PUT_ATT(ncid, zdimid, 'valid_max', real(maxval( &
121           pzvalues(1:pzsize))))           pzvalues(1:pzsize))))
122    
123      leng = min(len_trim(pzaxname), 20)      leng = min(len_trim(pzaxname), 20)
124      iret = nf90_put_att(ncid, zdimid, 'title', pzaxname(1:leng))      call NF95_PUT_ATT(ncid, zdimid, 'title', pzaxname(1:leng))
125      leng = min(len_trim(pzaxtitle), 80)      leng = min(len_trim(pzaxtitle), 80)
126      iret = nf90_put_att(ncid, zdimid, 'long_name', pzaxtitle(1:leng))      call NF95_PUT_ATT(ncid, zdimid, 'long_name', pzaxtitle(1:leng))
127    
128      iret = nf90_enddef(ncid)      call nf95_enddef(ncid)
129    
130      iret = nf90_put_var(ncid, zdimid, pzvalues(1:pzsize))      call nf95_put_var(ncid, zdimid, pzvalues(1:pzsize))
131    
132      iret = nf90_redef(ncid)      call nf95_redef(ncid)
133    
134      ! 3.0 add the information to the common      ! 3.0 add the information to the common
135    
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21