Changeset 2774 for trunk/WRF.COMMON/WRFV3/external/RSL_LITE/module_dm.F
- Timestamp:
- Jul 6, 2022, 3:39:44 PM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/WRF.COMMON/WRFV3/external/RSL_LITE/module_dm.F
r2759 r2774 23 23 24 24 INTERFACE wrf_dm_maxval 25 #if def PROMOTE_FLOAT25 #if (RWORDSIZE == 8) 26 26 MODULE PROCEDURE wrf_dm_maxval_real , wrf_dm_maxval_integer 27 27 #else … … 31 31 32 32 INTERFACE wrf_dm_minval ! gopal's doing 33 #if def PROMOTE_FLOAT33 #if (RWORDSIZE == 8) 34 34 MODULE PROCEDURE wrf_dm_minval_real , wrf_dm_minval_integer 35 35 #else … … 1082 1082 END SUBROUTINE wrf_dm_maxval_real 1083 1083 1084 #if ndef PROMOTE_FLOAT1084 #if (RWORDSIZE == 4) 1085 1085 SUBROUTINE wrf_dm_maxval_doubleprecision ( val, idex, jdex ) 1086 1086 IMPLICIT NONE … … 1173 1173 END SUBROUTINE wrf_dm_minval_real 1174 1174 1175 #if ndef PROMOTE_FLOAT1175 #if (RWORDSIZE == 4) 1176 1176 SUBROUTINE wrf_dm_minval_doubleprecision ( val, idex, jdex ) 1177 1177 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.