Ignore:
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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/WRF.COMMON/WRFV3/external/RSL_LITE/module_dm.F

    r2759 r2774  
    2323
    2424   INTERFACE wrf_dm_maxval
    25 #ifdef PROMOTE_FLOAT
     25#if (RWORDSIZE == 8)
    2626     MODULE PROCEDURE wrf_dm_maxval_real , wrf_dm_maxval_integer
    2727#else
     
    3131
    3232   INTERFACE wrf_dm_minval                       ! gopal's doing
    33 #ifdef PROMOTE_FLOAT
     33#if (RWORDSIZE == 8)
    3434     MODULE PROCEDURE wrf_dm_minval_real , wrf_dm_minval_integer
    3535#else
     
    10821082   END SUBROUTINE wrf_dm_maxval_real
    10831083
    1084 #ifndef PROMOTE_FLOAT
     1084#if (RWORDSIZE == 4)
    10851085   SUBROUTINE wrf_dm_maxval_doubleprecision ( val, idex, jdex )
    10861086      IMPLICIT NONE
     
    11731173   END SUBROUTINE wrf_dm_minval_real
    11741174
    1175 #ifndef PROMOTE_FLOAT
     1175#if (RWORDSIZE == 4)
    11761176   SUBROUTINE wrf_dm_minval_doubleprecision ( val, idex, jdex )
    11771177      IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.