[Dart-dev] [5603] DART/branches/development/models/wrf/WRF_DART_utilities/ add_pert_where_high_refl.f90: have this code call the current public interfaces to

[nancy at ucar.edu]

Revision: 5603
Author:   nancy
Date:     2012-03-15 14:45:30 -0600 (Thu, 15 Mar 2012)
Log Message:
-----------
have this code call the current public interfaces to 
the random sequence generator; the internal routines
are going to be changing names at some point in the
near future but the sequence interface will remain the same.
this update should cause no change in functionality.

Modified Paths:
--------------
    DART/branches/development/models/wrf/WRF_DART_utilities/add_pert_where_high_refl.f90

-------------- next part --------------
Modified: DART/branches/development/models/wrf/WRF_DART_utilities/add_pert_where_high_refl.f90
===================================================================
--- DART/branches/development/models/wrf/WRF_DART_utilities/add_pert_where_high_refl.f90	2012-03-15 20:40:50 UTC (rev 5602)
+++ DART/branches/development/models/wrf/WRF_DART_utilities/add_pert_where_high_refl.f90	2012-03-15 20:45:30 UTC (rev 5603)
@@ -33,8 +33,7 @@
 
 use        types_mod, only : r8, gravity, t_kelvin, ps0, gas_constant, gas_constant_v
 use    utilities_mod, only : error_handler, E_ERR
-use    random_nr_mod, only : random_seq_type, init_ran1
-use   random_seq_mod, only : random_gaussian
+use   random_seq_mod, only : random_gaussian, random_seq_type, init_random_seq
 use    netcdf
 use    f2kcli
 
@@ -290,7 +289,7 @@
 ! portion of the current time.
 
 call date_and_time(crdate,crtime,crzone,values)
-call init_ran1(rs, -int(values(8)))
+call init_random_seq(rs, -int(values(8)))
 
 
 ! Add perturbations.