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

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

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

trunk/IOIPSL/Histcom/histhori_regular.f revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC trunk/Sources/IOIPSL/Histcom/histhori_regular.f revision 168 by guez, Wed Sep 9 10:41:47 2015 UTC
# Line 35  contains Line 35  contains
35      USE histcom_var, ONLY: full_size, hax_name, nb_hax, ncdf_ids, &      USE histcom_var, ONLY: full_size, hax_name, nb_hax, ncdf_ids, &
36           slab_ori, slab_sz, xid, yid           slab_ori, slab_sz, xid, yid
37      USE netcdf, ONLY: nf90_def_var, nf90_enddef, nf90_float, &      USE netcdf, ONLY: nf90_def_var, nf90_enddef, nf90_float, &
38           nf90_put_att, nf90_put_var, nf90_redef           nf90_put_att, nf90_put_var
39        use netcdf95, only: nf95_redef
40    
41      INTEGER, INTENT (IN):: pfileid, pim, pjm      INTEGER, INTENT (IN):: pfileid, pim, pjm
42      REAL, INTENT (IN), DIMENSION (pim, pjm):: plon, plat      REAL, INTENT (IN), DIMENSION (pim, pjm):: plon, plat
# Line 126  contains Line 127  contains
127    
128      iret = nf90_put_var(ncid, nlatid, plat(1, 1:par_szy))      iret = nf90_put_var(ncid, nlatid, plat(1, 1:par_szy))
129    
130      iret = nf90_redef(ncid)      call nf95_redef(ncid)
131    
132    END SUBROUTINE histhori_regular    END SUBROUTINE histhori_regular
133    
Legend:
Removed from v.82  
changed lines
  Added in v.168
  ViewVC Help
Powered by ViewVC 1.1.21