From 69fdf0141950f7f3b8633f77462c41d9cc082eab Mon Sep 17 00:00:00 2001 From: Bill Ladwig Date: Wed, 23 May 2018 14:23:50 -0600 Subject: [PATCH] Updated default fill value to be a double --- fortran/wrf_constants.f90 | 4 ++-- fortran/wrffortran.pyf | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/fortran/wrf_constants.f90 b/fortran/wrf_constants.f90 index 336c0e3..eb2e9d8 100644 --- a/fortran/wrf_constants.f90 +++ b/fortran/wrf_constants.f90 @@ -9,13 +9,13 @@ MODULE wrf_constants REAL(KIND=8), PARAMETER :: PI = 3.1415926535897932384626433D0 REAL(KIND=8), PARAMETER :: RAD_PER_DEG = PI/180.D0 REAL(KIND=8), PARAMETER :: DEG_PER_RAD = 180.D0/PI - REAL(KIND=8), PARAMETER :: DEFAULT_FILL = 9.9692099683868690E36 + REAL(KIND=8), PARAMETER :: DEFAULT_FILL = 9.9692099683868690D36 INTEGER(KIND=1), PARAMETER :: DEFAULT_FILL_INT8 = -127 INTEGER(KIND=2), PARAMETER :: DEFAULT_FILL_INT16 = -32767 INTEGER(KIND=4), PARAMETER :: DEFAULT_FILL_INT32 = -2147483647 INTEGER(KIND=8), PARAMETER :: DEFAULT_FILL_INT64 = INT(-9223372036854775806D0, KIND=8) REAL(KIND=4), PARAMETER :: DEFAULT_FILL_FLOAT = 9.9692099683868690E36 - REAL(KIND=8), PARAMETER :: DEFAULT_FILL_DOUBLE = 9.9692099683868690E36 + REAL(KIND=8), PARAMETER :: DEFAULT_FILL_DOUBLE = 9.9692099683868690D36 CHARACTER(LEN=1), PARAMETER :: DEFAULT_FILL_CHAR = ACHAR(0) diff --git a/fortran/wrffortran.pyf b/fortran/wrffortran.pyf index be27452..15340e1 100644 --- a/fortran/wrffortran.pyf +++ b/fortran/wrffortran.pyf @@ -322,7 +322,7 @@ python module _wrffortran ! in real(kind=8), parameter,optional :: p1000mb=100000.d0 real(kind=8), parameter,optional :: rv=461.6d0 real(kind=8), parameter,optional,depend(pi) :: rad_per_deg=pi/180.d0 - real(kind=8), parameter,optional :: default_fill_double=9.96920996839e+36 + real(kind=8), parameter,optional :: default_fill_double=9.9692099683868690d36 real(kind=8), parameter,optional :: rd=287.d0 real(kind=8), parameter,optional :: abscoef=.145d0 real(kind=8), parameter,optional :: celkel=273.15d0 @@ -341,7 +341,7 @@ python module _wrffortran ! in real(kind=8), parameter,optional :: cpmd=.887d0 real(kind=8), parameter,optional,depend(rd,g) :: sclht=rd*256.d0/g real(kind=8), parameter,optional :: ussalr=0.0065d0 - real(kind=8), parameter,optional :: default_fill=9.96920996839e+36 + real(kind=8), parameter,optional :: default_fill=9.9692099683868690d36 real(kind=8), parameter,optional :: rho_s=100.d0 real(kind=8), parameter,optional,depend(rhowat) :: rho_r=1000.0 real(kind=8), parameter,optional :: alpha=0.224d0