Changeset 2774 for trunk/WRF.COMMON/WRFV3/external

Timestamp:

Jul 6, 2022, 3:39:44 PM (2 years ago)

Author:

aslmd

Message:

fix WRF handling of double precision, important for interface with physics

Location:

trunk/WRF.COMMON/WRFV3/external

Files:

• RSL_LITE/module_dm.F (modified) (4 diffs)
• io_grib_share/wrf_io_flags.h (modified) (1 diff)

trunk/WRF.COMMON/WRFV3/external/RSL_LITE/module_dm.F

@@ -23 +23 @@
 
    INTERFACE wrf_dm_maxval
-#ifdef PROMOTE_FLOAT
+#if (RWORDSIZE == 8)
      MODULE PROCEDURE wrf_dm_maxval_real , wrf_dm_maxval_integer
 #else
@@ -31 +31 @@
 
    INTERFACE wrf_dm_minval                       ! gopal's doing
-#ifdef PROMOTE_FLOAT
+#if (RWORDSIZE == 8)
      MODULE PROCEDURE wrf_dm_minval_real , wrf_dm_minval_integer
 #else
@@ -1082 +1082 @@
    END SUBROUTINE wrf_dm_maxval_real
 
-#ifndef PROMOTE_FLOAT
+#if (RWORDSIZE == 4)
    SUBROUTINE wrf_dm_maxval_doubleprecision ( val, idex, jdex )
       IMPLICIT NONE
@@ -1173 +1173 @@
    END SUBROUTINE wrf_dm_minval_real
 
-#ifndef PROMOTE_FLOAT
+#if (RWORDSIZE == 4)
    SUBROUTINE wrf_dm_minval_doubleprecision ( val, idex, jdex )
       IMPLICIT NONE

trunk/WRF.COMMON/WRFV3/external/io_grib_share/wrf_io_flags.h

@@ -5 +5 @@
       integer, parameter  :: WRF_REAL                             = 104
       integer, parameter  :: WRF_DOUBLE                           = 105
-#ifdef PROMOTE_FLOAT 
+#if (RWORDSIZE == 8)
       integer, parameter  :: WRF_FLOAT=WRF_DOUBLE
 #else