Updated default fill value to be a double

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)
 
 

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