718 |
|
|
719 |
|
|
720 |
check_netcdf_libs() { |
check_netcdf_libs() { |
721 |
|
if test ! "x$SKIP_NETCDF_CHECK" = x ; then |
722 |
|
return |
723 |
|
fi |
724 |
echo "" > genmake_tnc.log |
echo "" > genmake_tnc.log |
725 |
cat <<EOF > genmake_tnc.for |
cat <<EOF > genmake_tnc.for |
726 |
program fgennc |
program fgennc |
727 |
#include "netcdf.inc" |
#include "netcdf.inc" |
728 |
|
EOF |
729 |
|
if test ! "x$MPI" = x ; then |
730 |
|
echo '#include "mpif.h"' >> genmake_tnc.for |
731 |
|
fi |
732 |
|
cat <<EOF >> genmake_tnc.for |
733 |
integer iret, ncid, xid |
integer iret, ncid, xid |
734 |
iret = nf_create('genmake_tnc.nc', NF_CLOBBER, ncid) |
iret = nf_create('genmake_tnc.nc', NF_CLOBBER, ncid) |
735 |
IF (iret .NE. NF_NOERR) write(*,*) NF_STRERROR(iret) |
IF (iret .NE. NF_NOERR) write(*,*) NF_STRERROR(iret) |