INTERFACE:
subroutine ncd_close(ncid,cstring,usepio)DESCRIPTION:
close netcdf file
ARGUMENTS:
implicit none integer ,intent(in) :: ncid ! netcdf file id character(len=*),intent(in) :: cstring ! comment string logical,optional,intent(in) :: usepio ! use pio libREVISION HISTORY:
LOCAL VARIABLES: