| 1 | MODULE nc4dummy |
|---|
| 2 | !- |
|---|
| 3 | !- |
|---|
| 4 | ! This software is governed by the CeCILL license |
|---|
| 5 | ! See IOIPSL/IOIPSL_License_CeCILL.txt |
|---|
| 6 | !--------------------------------------------------------------------- |
|---|
| 7 | #if ! defined key_netcdf4 |
|---|
| 8 | !!-------------------------------------------------------------------- |
|---|
| 9 | !! NOT 'key_netcdf4' Defines dummy routines for netcdf4 |
|---|
| 10 | !! calls when compiling without netcdf4 libraries |
|---|
| 11 | !!-------------------------------------------------------------------- |
|---|
| 12 | INTEGER, PUBLIC :: NF90_HDF5 |
|---|
| 13 | CONTAINS |
|---|
| 14 | !=== |
|---|
| 15 | INTEGER FUNCTION NF90_DEF_VAR_CHUNKING(idum1, idum2, idum3, iarr1) |
|---|
| 16 | !!-------------------------------------------------------------------- |
|---|
| 17 | !! *** SUBROUTINE NF90_DEF_VAR_CHUNKING *** |
|---|
| 18 | !! |
|---|
| 19 | !! ** Purpose : Dummy NetCDF4 routine to enable compiling with NetCDF3 libraries |
|---|
| 20 | !!-------------------------------------------------------------------- |
|---|
| 21 | INTEGER, INTENT(in) :: idum1, idum2, idum3 |
|---|
| 22 | INTEGER, DIMENSION(4), INTENT(in) :: iarr1 |
|---|
| 23 | IF(lwp) WRITE(numout,*) 'Warning: Attempt to chunk output variable without NetCDF4 support' |
|---|
| 24 | NF90_DEF_VAR_CHUNKING = -1 |
|---|
| 25 | END FUNCTION NF90_DEF_VAR_CHUNKING |
|---|
| 26 | |
|---|
| 27 | INTEGER FUNCTION NF90_DEF_VAR_DEFLATE(idum1, idum2, idum3, idum4, idum5) |
|---|
| 28 | !!-------------------------------------------------------------------- |
|---|
| 29 | !! *** SUBROUTINE NF90_DEF_VAR_DEFLATE *** |
|---|
| 30 | !! |
|---|
| 31 | !! ** Purpose : Dummy NetCDF4 routine to enable compiling with NetCDF3 libraries |
|---|
| 32 | !!-------------------------------------------------------------------- |
|---|
| 33 | INTEGER, INTENT(in) :: idum1, idum2, idum3, idum4, idum5 |
|---|
| 34 | IF(lwp) WRITE(numout,*) 'Warning: Attempt to compress output variable without NetCDF4 support' |
|---|
| 35 | NF90_DEF_VAR_DEFLATE = -1 |
|---|
| 36 | END FUNCTION NF90_DEF_VAR_DEFLATE |
|---|
| 37 | #else |
|---|
| 38 | !!-------------------------------------------------------------------- |
|---|
| 39 | !! 'key_netcdf4' Dummy module (usually defines dummy routines for netcdf4 |
|---|
| 40 | !! calls when compiling without netcdf4 libraries |
|---|
| 41 | !!-------------------------------------------------------------------- |
|---|
| 42 | #endif |
|---|
| 43 | |
|---|
| 44 | !------------------ |
|---|
| 45 | END MODULE nc4dummy |
|---|
