diff --git a/arch/md_calls.inc b/arch/md_calls.inc index 88e0722fbb..11b6e3be24 100644 --- a/arch/md_calls.inc +++ b/arch/md_calls.inc @@ -258,7 +258,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -280,7 +280,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -291,7 +291,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -301,7 +301,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -311,7 +311,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -321,7 +321,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -331,7 +331,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -342,7 +342,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -365,7 +365,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -388,7 +388,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -472,7 +472,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -494,7 +494,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -505,7 +505,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -515,7 +515,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -525,7 +525,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -535,7 +535,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -545,7 +545,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -556,7 +556,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -579,7 +579,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -602,7 +602,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_dom_ti_double ( Hndl, Element, Data, & locCount, Outcount, Status ) # else @@ -688,7 +688,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -710,7 +710,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -721,7 +721,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -731,7 +731,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -741,7 +741,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -751,7 +751,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -761,7 +761,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -772,7 +772,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -795,7 +795,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -818,7 +818,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -902,7 +902,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -924,7 +924,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -935,7 +935,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -945,7 +945,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -955,7 +955,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -965,7 +965,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -975,7 +975,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -986,7 +986,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -1009,7 +1009,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -1032,7 +1032,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_dom_ti_double ( Hndl, Element, Data, & locCount, Status ) # else @@ -3431,7 +3431,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3453,7 +3453,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3464,7 +3464,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3474,7 +3474,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3484,7 +3484,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3494,7 +3494,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3504,7 +3504,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3515,7 +3515,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3538,7 +3538,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3561,7 +3561,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3645,7 +3645,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3667,7 +3667,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3678,7 +3678,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3688,7 +3688,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3698,7 +3698,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3708,7 +3708,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3718,7 +3718,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3729,7 +3729,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3752,7 +3752,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3775,7 +3775,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Outcount, Status ) # else @@ -3861,7 +3861,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3883,7 +3883,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3894,7 +3894,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3904,7 +3904,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3914,7 +3914,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3924,7 +3924,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3934,7 +3934,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3945,7 +3945,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3968,7 +3968,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -3991,7 +3991,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4075,7 +4075,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4097,7 +4097,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4108,7 +4108,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4118,7 +4118,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4128,7 +4128,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4138,7 +4138,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4148,7 +4148,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4159,7 +4159,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4182,7 +4182,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -4205,7 +4205,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_dom_td_double ( Hndl, Element, DateStr, Data, & locCount, Status ) # else @@ -6604,7 +6604,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6626,7 +6626,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6637,7 +6637,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6647,7 +6647,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6657,7 +6657,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6667,7 +6667,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6677,7 +6677,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6688,7 +6688,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6711,7 +6711,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6734,7 +6734,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6818,7 +6818,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6840,7 +6840,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6851,7 +6851,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6861,7 +6861,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PIO CASE ( IO_PIO ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6871,7 +6871,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6881,7 +6881,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6891,7 +6891,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6901,7 +6901,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6912,7 +6912,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6935,7 +6935,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -6958,7 +6958,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Outcount, Status ) # else @@ -7044,7 +7044,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7066,7 +7066,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7077,7 +7077,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7087,7 +7087,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7097,7 +7097,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7107,7 +7107,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7117,7 +7117,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7128,7 +7128,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7151,7 +7151,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7174,7 +7174,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7258,7 +7258,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7280,7 +7280,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7291,7 +7291,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7301,7 +7301,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7311,7 +7311,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7321,7 +7321,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7331,7 +7331,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7342,7 +7342,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7365,7 +7365,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -7388,7 +7388,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_var_ti_double ( Hndl, Element, Varname, Data, & locCount, Status ) # else @@ -9787,7 +9787,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9809,7 +9809,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9820,7 +9820,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9830,7 +9830,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9840,7 +9840,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9850,7 +9850,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9860,7 +9860,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9871,7 +9871,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9894,7 +9894,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -9917,7 +9917,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10001,7 +10001,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10023,7 +10023,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10034,7 +10034,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10044,7 +10044,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10054,7 +10054,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10064,7 +10064,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10074,7 +10074,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10085,7 +10085,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10108,7 +10108,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10131,7 +10131,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_get_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Outcount, Status ) # else @@ -10217,7 +10217,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10239,7 +10239,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10250,7 +10250,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10260,7 +10260,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10270,7 +10270,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10280,7 +10280,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10290,7 +10290,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10301,7 +10301,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10324,7 +10324,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10347,7 +10347,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10431,7 +10431,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef NETCDF CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncd_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10453,7 +10453,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_ncdpar_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10464,7 +10464,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef PNETCDF CASE ( IO_PNETCDF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_pnc_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10474,7 +10474,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef PHDF5 CASE ( IO_PHDF5 ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_phdf5_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10484,7 +10484,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef ESMFIO CASE ( IO_ESMF ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_esmf_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10494,7 +10494,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef XXX CASE ( IO_XXX ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_xxx_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10504,7 +10504,7 @@ IF ( Hndl .GT. -1 ) THEN #endif #ifdef YYY CASE ( IO_YYY ) -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_yyy_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10515,7 +10515,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB1 CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr1_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10538,7 +10538,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef GRIB2 CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_gr2_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else @@ -10561,7 +10561,7 @@ IF ( Hndl .GT. -1 ) THEN #ifdef INTIO CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION CALL ext_int_put_var_td_double ( Hndl, Element, DateStr, Varname, Data, & locCount, Status ) # else diff --git a/frame/md_calls.m4 b/frame/md_calls.m4 index 73ce5deef3..69ac289910 100644 --- a/frame/md_calls.m4 +++ b/frame/md_calls.m4 @@ -62,7 +62,7 @@ IF ( Hndl .GT. -1 ) THEN CASE ( IO_NETCDF ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_ncd_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -87,7 +87,7 @@ ifelse($3,real, #ifdef NETCDFPAR CASE ( IO_NETCDFPAR ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_ncdpar_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -101,7 +101,7 @@ ifelse($3,real, #ifdef PNETCDF CASE ( IO_PNETCDF ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_pnc_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -114,7 +114,7 @@ ifelse($3,real, #ifdef ADIOS2 CASE ( IO_ADIOS2 ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_adios2_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -127,7 +127,7 @@ ifelse($3,real, #ifdef PIO CASE ( IO_PIO ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_pio_$1_$2_$6_double$4_$5 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -140,7 +140,7 @@ ifelse($3,real, #ifdef PHDF5 CASE ( IO_PHDF5 ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_phdf5_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -153,7 +153,7 @@ ifelse($3,real, #ifdef ESMFIO CASE ( IO_ESMF ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_esmf_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -166,7 +166,7 @@ ifelse($3,real, #ifdef XXX CASE ( IO_XXX ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_xxx_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -179,7 +179,7 @@ ifelse($3,real, #ifdef YYY CASE ( IO_YYY ) ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_yyy_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -193,7 +193,7 @@ ifelse($3,real, CASE ( IO_GRIB1 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_gr1_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -219,7 +219,7 @@ ifelse($3,real, CASE ( IO_GRIB2 ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_gr2_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else @@ -245,7 +245,7 @@ ifelse($3,real, CASE ( IO_INTIO ) IF ( multi_files(io_form) .OR. wrf_dm_on_monitor() ) THEN ifelse($3,real, -`# if ( RWORDSIZE == DWORDSIZE ) +`# ifdef DOUBLE_PRECISION CALL ext_int_$1_$2_$6_double$4 ( Hndl, Element, ifelse($6,td,`DateStr,') ifelse($2,var,`Varname,') Data, & ifelse($4,char,,`locCount, ifelse($1,get,`Outcount,')') Status ) # else diff --git a/phys/module_ra_cam_support.F b/phys/module_ra_cam_support.F index 4e71f21dcd..86c1ffd501 100644 --- a/phys/module_ra_cam_support.F +++ b/phys/module_ra_cam_support.F @@ -3517,7 +3517,7 @@ subroutine oznini(ozmixm,pin,levsiz,num_months,XLAT, & #if ( defined( DM_PARALLEL ) && ( ! defined( STUBMPI ) ) ) endif if_master call wrf_debug(1,"Broadcast ozone to other ranks.") -# if ( RWORDSIZE == DWORDSIZE ) +# ifdef DOUBLE_PRECISION call MPI_Bcast(ozmixin,size(ozmixin),MPI_DOUBLE_PRECISION,0,local_communicator,ierr) call MPI_Bcast(pin,size(pin),MPI_DOUBLE_PRECISION,0,local_communicator,ierr) plev=pin