diff --git a/model/fv_regional_bc.F90 b/model/fv_regional_bc.F90 index 3d7be4038..d6073900c 100644 --- a/model/fv_regional_bc.F90 +++ b/model/fv_regional_bc.F90 @@ -179,11 +179,11 @@ module fv_regional_mod ,oro_data ='oro_data.tile7.halo4.nc' #ifdef OVERLOAD_R4 - real, parameter:: real_snan=x'FFBFFFFF' + real, parameter:: real_snan=real(Z'FFBFFFFF') #else - real, parameter:: real_snan=x'FFF7FFFFFFFFFFFF' + real, parameter:: real_snan=real(Z'FFF7FFFFFFFFFFFF') #endif - real(kind=R_GRID), parameter:: dbl_snan=x'FFF7FFFFFFFFFFFF' + real(kind=R_GRID), parameter:: dbl_snan=real(Z'FFF7FFFFFFFFFFFF') interface dump_field module procedure dump_field_3d