!! Copyright (C) Stichting Deltares, 2005-2020. !! !! This file is part of iMOD. !! !! This program is free software: you can redistribute it and/or modify !! it under the terms of the GNU General Public License as published by !! the Free Software Foundation, either version 3 of the License, or !! (at your option) any later version. !! !! This program is distributed in the hope that it will be useful, !! but WITHOUT ANY WARRANTY; without even the implied warranty of !! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the !! GNU General Public License for more details. !! !! You should have received a copy of the GNU General Public License !! along with this program. If not, see . !! !! Contact: imod.support@deltares.nl !! Stichting Deltares !! P.O. Box 177 !! 2600 MH Delft, The Netherlands. MODULE MOD_NC2IDF !USE IO_NETCDF INTEGER :: INETCDF=0 !## no support of netcdf CONTAINS !###====================================================================== SUBROUTINE NC2IDF_IMPORTNC(IDFNAME,IERROR) !###====================================================================== IMPLICIT NONE CHARACTER(LEN=*),INTENT(IN) :: IDFNAME INTEGER,INTENT(INOUT) :: IERROR ! CHARACTER(LEN=13) :: DUMMY ! INTEGER :: IERR ! IERR = ionc_getfullversionstring_io_netcdf(DUMMY) END SUBROUTINE NC2IDF_IMPORTNC !###====================================================================== SUBROUTINE NC2IDF_EXPORTNC_CLOSE() !###====================================================================== IMPLICIT NONE END SUBROUTINE NC2IDF_EXPORTNC_CLOSE !###====================================================================== SUBROUTINE NC2IDF_EXPORTNC(ID) !###====================================================================== IMPLICIT NONE INTEGER,INTENT(IN) :: ID END SUBROUTINE NC2IDF_EXPORTNC END MODULE MOD_NC2IDF