ncd_putatt_real

INTERFACE:

   subroutine ncd_putatt_real(ncid,varid,attrib,value,cstring,xtype,usepio)

DESCRIPTION:

Check return status from netcdf call

ARGUMENTS:

     implicit none
     integer         ,intent(in) :: ncid      ! netcdf file id
     integer         ,intent(in) :: varid     ! netcdf var id
     character(len=*),intent(in) :: attrib    ! netcdf attrib
     real(r8)        ,intent(in) :: value     ! netcdf attrib value
     character(len=*),intent(in) :: cstring   ! comment string
     integer,optional,intent(in) :: xtype     ! netcdf data type
     logical,optional,intent(in) :: usepio    ! use pio lib

REVISION HISTORY:

LOCAL VARIABLES: