[Dart-dev] DART/branches Revision: 12274

[dart at ucar.edu]

nancy at ucar.edu
2018-01-04 09:36:59 -0700 (Thu, 04 Jan 2018)
250
this wrf model source code assumed that real*8 had a
kind of 8 - not true on the NAG compiler.  from context
i assume that they want 64 bit precision even if the
rest of the code is compiled 32.  so i set it equal
to digits12 from our types module.




Modified: DART/branches/recam/models/wrf/module_map_utils-wrf3.0.f90
===================================================================
--- DART/branches/recam/models/wrf/module_map_utils-wrf3.0.f90	2018-01-04 16:35:41 UTC (rev 12273)
+++ DART/branches/recam/models/wrf/module_map_utils-wrf3.0.f90	2018-01-04 16:36:59 UTC (rev 12274)
@@ -135,11 +135,12 @@
 !
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
+   use types_mod, only : digits12
    use constants_module
    use misc_definitions_module
 
    ! Define some private constants
-   INTEGER, PRIVATE, PARAMETER :: HIGH = 8
+   INTEGER, PRIVATE, PARAMETER :: HIGH = digits12
  
    TYPE proj_info
  

Modified: DART/branches/recam/models/wrf/module_map_utils.f90
===================================================================
--- DART/branches/recam/models/wrf/module_map_utils.f90	2018-01-04 16:35:41 UTC (rev 12273)
+++ DART/branches/recam/models/wrf/module_map_utils.f90	2018-01-04 16:36:59 UTC (rev 12274)
@@ -10,7 +10,7 @@
 
 module constants_module
 
-   use     types_mod, only : r8
+   use     types_mod, only : r8, digits12
 
    real (kind=r8), parameter :: PI = 3.141592653589793_r8
    real (kind=r8), parameter :: OMEGA_E = 0.00007292_r8 ! Angular rotation rate of the earth
@@ -227,7 +227,7 @@
 !   use utilities_mod, only : register_module
 
    ! Define some private constants
-   INTEGER, PRIVATE, PARAMETER :: HIGH = r8
+   INTEGER, PRIVATE, PARAMETER :: HIGH = digits12
 
    TYPE proj_info