ftst_rengrps.F (netcdf-fortran-4.4.4) | : | ftst_rengrps.F (netcdf-fortran-4.4.5) | ||
---|---|---|---|---|
skipping to change at line 12 | skipping to change at line 12 | |||
C Copyright 2006 University Corporation for Atmospheric Research/Unidata. | C Copyright 2006 University Corporation for Atmospheric Research/Unidata. | |||
C See COPYRIGHT file for conditions of use. | C See COPYRIGHT file for conditions of use. | |||
C This program tests netCDF-4 variable functions from fortran. | C This program tests netCDF-4 variable functions from fortran. | |||
C $Id: ftst_rengrps.F,v 1.3 2010/02/03 14:35:21 ed Exp $ | C $Id: ftst_rengrps.F,v 1.3 2010/02/03 14:35:21 ed Exp $ | |||
program ftst_rengrps | program ftst_rengrps | |||
C use typeSizes | C use typeSizes | |||
C use netcdf | C use netcdf | |||
use netcdf4_f03 | C use netcdf4_f03 | |||
implicit none | implicit none | |||
C include "netcdf.inc" | include "netcdf.inc" | |||
C This is the name of the data file we will create. | C This is the name of the data file we will create. | |||
character (len = *), parameter :: FILE_NAME = "ftst_rengrps.nc" | character (len = *), parameter :: FILE_NAME = "ftst_rengrps.nc" | |||
C We are writing 2D data, a 6 x 12 grid. | C We are writing 2D data, a 6 x 12 grid. | |||
integer, parameter :: MAX_DIMS = 2 | integer, parameter :: MAX_DIMS = 2 | |||
integer, parameter :: NX = 6, NY = 12 | integer, parameter :: NX = 6, NY = 12 | |||
integer :: chunksizes(MAX_DIMS), chunksizes_in(MAX_DIMS) | integer :: chunksizes(MAX_DIMS), chunksizes_in(MAX_DIMS) | |||
integer, parameter :: CACHE_NELEMS = 10000, CACHE_SIZE = 1000000 | integer, parameter :: CACHE_NELEMS = 10000, CACHE_SIZE = 1000000 | |||
integer, parameter :: DEFLATE_LEVEL = 4 | integer, parameter :: DEFLATE_LEVEL = 4 | |||
End of changes. 2 change blocks. | ||||
2 lines changed or deleted | 2 lines changed or added |