INTERFACE:
subroutine set_attributes(ncid,id, &
units,long_name, &
netcdf_real, &
valid_min,valid_max,valid_range, &
scale_factor,add_offset, &
FillValue,missing_value, &
C_format,FORTRAN_format)
DESCRIPTION:
This routine is used to set a number of attributes for the various variables. The routine make heavy use of the optional keyword. The list of recognized keywords is very easy expandable. We have included a sub-set of the COARDS conventions. USES:
use netcdf
IMPLICIT NONE
INPUT PARAMETERS:
integer, intent(in) :: ncid,id
integer, optional :: netcdf_real
character(len=*), optional :: units,long_name
#if 1
REALTYPE, optional :: valid_min,valid_max,valid_range(2)
REALTYPE, optional :: scale_factor,add_offset
REALTYPE, optional :: FillValue,missing_value
#else
REAL_4B, optional :: valid_min,valid_max,valid_range(2)
REAL_4B, optional :: scale_factor,add_offset
REAL_4B, optional :: FillValue,missing_value
#endif
character(len=*), optional :: C_format,FORTRAN_format
REVISION HISTORY:
Original author(s): Karsten Bolding & Hans Burchard
See ncdfout module
LOCAL VARIABLES:
integer, parameter :: kind_real_single = SELECTED_REAL_KIND(p=5)
integer, parameter :: kind_real_double = SELECTED_REAL_KIND(p=14)
integer :: iret
integer :: ft