[Dart-dev] [6919] DART/trunk: No functional code changes.
nancy at ucar.edu
nancy at ucar.edu
Wed Apr 23 11:33:18 MDT 2014
Revision: 6919
Author: nancy
Date: 2014-04-23 11:33:18 -0600 (Wed, 23 Apr 2014)
Log Message:
-----------
No functional code changes. more files with use lines
that reference routines which are not used in the code.
Modified Paths:
--------------
DART/trunk/adaptive_inflate/fill_inflation_restart.f90
DART/trunk/assim_model/assim_model_mod.f90
DART/trunk/diagnostics/oned/obs_diag.f90
DART/trunk/diagnostics/threed_sphere/obs_diag.f90
DART/trunk/filter/filter.f90
DART/trunk/models/cam/cam_to_dart.f90
DART/trunk/obs_sequence/create_fixed_network_seq.f90
DART/trunk/obs_sequence/create_obs_sequence.f90
DART/trunk/obs_sequence/obs_common_subset.f90
DART/trunk/obs_sequence/obs_seq_to_netcdf.f90
DART/trunk/obs_sequence/obs_sequence_tool.f90
DART/trunk/preprocess/preprocess.f90
DART/trunk/random_seq/test_reseed.f90
DART/trunk/time_manager/advance_time.f90
DART/trunk/utilities/closest_member_tool.f90
DART/trunk/utilities/restart_file_tool.f90
-------------- next part --------------
Modified: DART/trunk/adaptive_inflate/fill_inflation_restart.f90
===================================================================
--- DART/trunk/adaptive_inflate/fill_inflation_restart.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/adaptive_inflate/fill_inflation_restart.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -10,9 +10,9 @@
! based on a single inflate and standard deviation value read from the console.
! (alternatively we could read them from a namelist, but it seems like overkill.)
-use types_mod, only : r8, PI
+use types_mod, only : r8
-use utilities_mod, only : error_handler, E_ERR, E_MSG, &
+use utilities_mod, only : error_handler, E_MSG, &
initialize_utilities, finalize_utilities
use ensemble_manager_mod, only : ensemble_type, write_ensemble_restart, &
@@ -21,7 +21,7 @@
use assim_model_mod, only : static_init_assim_model
-use model_mod, only : get_model_size, static_init_model
+use model_mod, only : get_model_size
implicit none
@@ -52,23 +52,26 @@
call initialize_utilities('fill_inflation_restart')
msgstring = 'Both mean and sd will be read from console'
-call error_handler(E_MSG, 'fill_inflate_restart', trim(msgstring))
+call error_handler(E_MSG, 'fill_inflate_restart', trim(msgstring), &
+ source, revision, revdate)
msgstring = 'Full mean and sd fields will be written to this restart file: ' // trim(out_file_name)
-call error_handler(E_MSG, 'fill_inflate_restart', trim(msgstring))
+call error_handler(E_MSG, 'fill_inflate_restart', trim(msgstring), &
+ source, revision, revdate)
print *, 'Enter initial values for inflation mean and standard deviation:'
read *, inf_initial, sd_initial
write(msgstring, '(A, F12.6, 1X, F12.6)') 'mean and sd read from console as ', &
inf_initial, sd_initial
-call error_handler(E_MSG, 'fill_inflate_restart', trim(msgstring))
+call error_handler(E_MSG, 'fill_inflate_restart', trim(msgstring), &
+ source, revision, revdate)
! initialize the assim_model and model code
call static_init_assim_model()
model_size = get_model_size()
write(msgstring, *) 'Model size/restart data length = ', model_size
-call error_handler(E_MSG,'',msgstring)
+call error_handler(E_MSG,'',msgstring, source, revision, revdate)
call init_ensemble_manager(ens_handle, 2, model_size)
call prepare_to_write_to_vars(ens_handle)
Modified: DART/trunk/assim_model/assim_model_mod.f90
===================================================================
--- DART/trunk/assim_model/assim_model_mod.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/assim_model/assim_model_mod.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -10,18 +10,17 @@
! add capabilities needed by the standard assimilation methods.
use types_mod, only : r8, digits12
-use location_mod, only : location_type, read_location, &
- LocationDims, LocationName, LocationLName
-use time_manager_mod, only : time_type, get_time, read_time, write_time, &
- THIRTY_DAY_MONTHS, JULIAN, GREGORIAN, NOLEAP, NO_CALENDAR, &
- operator(<), operator(>), operator(+), operator(-), &
- operator(/), operator(*), operator(==), operator(/=), &
- get_calendar_type, print_time
+use location_mod, only : location_type, read_location, LocationDims
+use time_manager_mod, only : time_type, get_time, read_time, write_time, &
+ THIRTY_DAY_MONTHS, JULIAN, GREGORIAN, NOLEAP, &
+ operator(<), operator(>), operator(+), operator(-), &
+ operator(/), operator(*), operator(==), operator(/=), &
+ get_calendar_type
use utilities_mod, only : get_unit, close_file, register_module, error_handler, &
- E_ERR, E_WARN, E_MSG, E_DBG, logfileunit, nmlfileunit, &
- do_output, dump_unit_attributes, find_namelist_in_file, &
+ E_ERR, E_WARN, E_MSG, E_DBG, nmlfileunit, &
+ dump_unit_attributes, find_namelist_in_file, &
check_namelist_read, nc_check, do_nml_file, do_nml_term, &
- find_textfile_dims, file_to_text, timestamp, set_output, &
+ find_textfile_dims, file_to_text, set_output, &
ascii_file_format, set_output
use model_mod, only : get_model_size, static_init_model, get_state_meta_data, &
get_model_time_step, model_interpolate, init_conditions, &
@@ -397,10 +396,6 @@
call nc_check(nf90_sync(ncFileID%ncid), 'init_diag_output', 'sync '//trim(ncFileID%fname))
!-------------------------------------------------------------------------------
-!write(logfileunit,*)trim(ncFileID%fname), ' is ncid ',ncFileID%ncid
-!write(logfileunit,*)'ncFileID%NtimesMAX is ',ncFileID%NtimesMAX
-!write(logfileunit,*)'ncFileID%Ntimes is ',ncFileID%Ntimes
-
end function init_diag_output
Modified: DART/trunk/diagnostics/oned/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/oned/obs_diag.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/diagnostics/oned/obs_diag.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -17,31 +17,30 @@
! 'priorspred' should really be 'priorvar' since you have to accumulate variances
! the math is correct as it is, but the variable names don't make it easy ...
-use types_mod, only : r4, r8, digits12, MISSING_R8, MISSING_R4, metadatalength
+use types_mod, only : r4, r8, digits12, MISSING_R4, metadatalength
use obs_sequence_mod, only : read_obs_seq, obs_type, obs_sequence_type, get_first_obs, &
get_obs_from_key, get_obs_def, get_copy_meta_data, &
- get_obs_time_range, get_time_range_keys, get_num_obs, &
- get_next_obs, get_num_times, get_obs_values, init_obs, &
+ get_obs_time_range, get_time_range_keys, &
+ get_num_times, get_obs_values, init_obs, &
assignment(=), get_num_copies, static_init_obs_sequence, &
get_qc, destroy_obs_sequence, get_last_obs, get_num_qc, &
read_obs_seq_header, destroy_obs, get_qc_meta_data
use obs_def_mod, only : obs_def_type, get_obs_def_error_variance, get_obs_def_time, &
- get_obs_def_location, get_obs_kind, get_obs_name
+ get_obs_def_location, get_obs_kind
use obs_kind_mod, only : max_obs_kinds, get_obs_kind_name
-use location_mod, only : location_type, get_location, set_location_missing, &
- write_location, operator(/=), LocationDims
-use time_manager_mod, only : time_type, set_date, set_time, get_time, print_time, &
+use location_mod, only : location_type, get_location, operator(/=), LocationDims
+use time_manager_mod, only : time_type, set_time, get_time, print_time, &
print_date, set_calendar_type, get_date, &
operator(*), operator(+), operator(-), &
operator(>), operator(<), operator(/), &
operator(/=), operator(<=), operator(>=)
-use utilities_mod, only : get_unit, open_file, close_file, register_module, &
+use utilities_mod, only : open_file, register_module, &
file_exist, error_handler, E_ERR, E_WARN, E_MSG, &
initialize_utilities, logfileunit, nmlfileunit, &
find_namelist_in_file, check_namelist_read, &
nc_check, do_nml_file, do_nml_term, finalize_utilities, &
- next_file, get_next_filename, find_textfile_dims, &
- file_to_text
+ next_file, get_next_filename
+
use sort_mod, only : sort
use random_seq_mod, only : random_seq_type, init_random_seq, several_random_gaussians
Modified: DART/trunk/diagnostics/threed_sphere/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_diag.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/diagnostics/threed_sphere/obs_diag.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -23,8 +23,8 @@
metadatalength
use obs_sequence_mod, only : read_obs_seq, obs_type, obs_sequence_type, get_first_obs, &
get_obs_from_key, get_obs_def, get_copy_meta_data, &
- get_obs_time_range, get_time_range_keys, get_num_obs, &
- get_next_obs, get_num_times, get_obs_values, init_obs, &
+ get_obs_time_range, get_time_range_keys, &
+ get_obs_values, init_obs, &
assignment(=), get_num_copies, static_init_obs_sequence, &
get_qc, destroy_obs_sequence, read_obs_seq_header, &
get_last_obs, destroy_obs, get_num_qc, get_qc_meta_data
@@ -51,8 +51,7 @@
initialize_utilities, logfileunit, nmlfileunit, &
find_namelist_in_file, check_namelist_read, &
nc_check, do_nml_file, do_nml_term, finalize_utilities, &
- next_file, get_next_filename, find_textfile_dims, &
- file_to_text
+ next_file, get_next_filename
use sort_mod, only : sort
use random_seq_mod, only : random_seq_type, init_random_seq, several_random_gaussians
@@ -3392,7 +3391,7 @@
write(nsigmaUnit,'(''(prior) innovations in stdev bin '',i3,'' = '',i10)')i+1,nsigma(i)
endif
enddo
-close(nsigmaUnit)
+call close_file(nsigmaUnit)
end Subroutine Normalize4Dvars
Modified: DART/trunk/filter/filter.f90
===================================================================
--- DART/trunk/filter/filter.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/filter/filter.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -10,25 +10,22 @@
use types_mod, only : r8, missing_r8, metadatalength
use obs_sequence_mod, only : read_obs_seq, obs_type, obs_sequence_type, &
get_obs_from_key, set_copy_meta_data, get_copy_meta_data, &
- get_obs_def, get_time_range_keys, set_obs_values, set_obs, &
- write_obs_seq, get_num_obs, get_obs_values, init_obs, &
- assignment(=), get_num_copies, get_qc, get_num_qc, set_qc, &
+ get_obs_def, get_time_range_keys, write_obs_seq, &
+ get_obs_values, init_obs, set_qc_meta_data, get_expected_obs,&
+ assignment(=), get_num_copies, get_qc, get_num_qc, &
static_init_obs_sequence, destroy_obs, read_obs_seq_header, &
- set_qc_meta_data, get_expected_obs, get_first_obs, &
- get_obs_time_range, delete_obs_from_seq, delete_seq_head, &
- delete_seq_tail, replace_obs_values, replace_qc, &
- destroy_obs_sequence, get_qc_meta_data, add_qc
-use obs_def_mod, only : obs_def_type, get_obs_def_error_variance, get_obs_def_time, &
- get_obs_kind
+ delete_seq_head, delete_seq_tail, replace_obs_values, add_qc,&
+ destroy_obs_sequence, get_qc_meta_data, replace_qc
+use obs_def_mod, only : obs_def_type, get_obs_def_error_variance, get_obs_def_time
use time_manager_mod, only : time_type, get_time, set_time, operator(/=), operator(>), &
operator(-), print_time
use utilities_mod, only : register_module, error_handler, E_ERR, E_MSG, E_DBG, &
- initialize_utilities, logfileunit, nmlfileunit, timestamp, &
+ logfileunit, nmlfileunit, timestamp, &
do_output, find_namelist_in_file, check_namelist_read, &
open_file, close_file, do_nml_file, do_nml_term
use assim_model_mod, only : static_init_assim_model, get_model_size, &
netcdf_file_type, init_diag_output, finalize_diag_output, &
- aoutput_diagnostics, ens_mean_for_model, end_assim_model
+ ens_mean_for_model, end_assim_model
use assim_tools_mod, only : filter_assim, set_assim_tools_trace, get_missing_ok_status
use obs_model_mod, only : move_ahead, advance_state, set_obs_model_trace
use ensemble_manager_mod, only : init_ensemble_manager, end_ensemble_manager, &
@@ -36,10 +33,10 @@
all_vars_to_all_copies, all_copies_to_all_vars, &
read_ensemble_restart, write_ensemble_restart, &
compute_copy_mean, compute_copy_mean_sd, &
- compute_copy_mean_var, duplicate_ens, get_copy_owner_index, &
+ compute_copy_mean_var, get_copy_owner_index, &
get_ensemble_time, set_ensemble_time, broadcast_copy, &
- prepare_to_read_from_vars, prepare_to_write_to_vars, prepare_to_read_from_copies, &
- prepare_to_write_to_copies, get_ensemble_time, set_ensemble_time, &
+ prepare_to_read_from_vars, prepare_to_write_to_vars, &
+ prepare_to_read_from_copies, get_ensemble_time, set_ensemble_time,&
map_task_to_pe, map_pe_to_task, prepare_to_update_copies
use adaptive_inflate_mod, only : adaptive_inflate_end, do_varying_ss_inflate, &
do_single_ss_inflate, inflate_ens, adaptive_inflate_init, &
Modified: DART/trunk/models/cam/cam_to_dart.f90
===================================================================
--- DART/trunk/models/cam/cam_to_dart.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/models/cam/cam_to_dart.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -18,13 +18,15 @@
!----------------------------------------------------------------------
use types_mod, only : r8
-use utilities_mod, only : initialize_utilities, finalize_utilities, do_output, &
- check_namelist_read, find_namelist_in_file, nmlfileunit, &
- do_nml_file, do_nml_term
-use model_mod, only : model_type, init_model_instance, end_model_instance, &
+use utilities_mod, only : initialize_utilities, finalize_utilities, &
+ check_namelist_read, find_namelist_in_file, &
+ nmlfileunit, do_nml_file, do_nml_term
+use model_mod, only : model_type, init_model_instance, &
+ end_model_instance, &
prog_var_to_vector, read_cam_init
-use assim_model_mod, only : static_init_assim_model, get_model_size, &
- open_restart_write, awrite_state_restart, close_restart
+use assim_model_mod, only : static_init_assim_model, get_model_size, &
+ open_restart_write, awrite_state_restart, &
+ close_restart
use time_manager_mod, only : time_type
implicit none
Modified: DART/trunk/obs_sequence/create_fixed_network_seq.f90
===================================================================
--- DART/trunk/obs_sequence/create_fixed_network_seq.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/obs_sequence/create_fixed_network_seq.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -6,11 +6,10 @@
program create_fixed_network_seq
-use types_mod, only : r8
-use utilities_mod, only : register_module, open_file, close_file, &
+use utilities_mod, only : register_module, &
initialize_utilities, finalize_utilities, &
error_handler, E_MSG
-use obs_def_mod, only : obs_def_type, get_obs_def_time, set_obs_def_time
+use obs_def_mod, only : obs_def_type, set_obs_def_time
use obs_sequence_mod, only : obs_sequence_type, obs_type, read_obs_seq, &
get_num_obs, init_obs_sequence, get_first_obs, &
write_obs_seq, set_copy_meta_data, get_obs_def, &
Modified: DART/trunk/obs_sequence/create_obs_sequence.f90
===================================================================
--- DART/trunk/obs_sequence/create_obs_sequence.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/obs_sequence/create_obs_sequence.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -6,10 +6,9 @@
program create_obs_sequence
-use utilities_mod, only : register_module, open_file, close_file, &
- initialize_utilities, finalize_utilities, &
+use utilities_mod, only : register_module, initialize_utilities, finalize_utilities, &
error_handler, E_MSG
-use obs_sequence_mod, only : obs_sequence_type, interactive_obs, write_obs_seq, &
+use obs_sequence_mod, only : obs_sequence_type, write_obs_seq, &
interactive_obs_sequence, static_init_obs_sequence
use assim_model_mod, only : static_init_assim_model
Modified: DART/trunk/obs_sequence/obs_common_subset.f90
===================================================================
--- DART/trunk/obs_sequence/obs_common_subset.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/obs_sequence/obs_common_subset.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -42,16 +42,15 @@
! files from experiment 2, up to N experiments.
-use types_mod, only : r8, missing_r8, metadatalength, obstypelength
+use types_mod, only : r8, metadatalength
use utilities_mod, only : register_module, initialize_utilities, &
find_namelist_in_file, check_namelist_read, &
error_handler, E_ERR, E_MSG, nmlfileunit, &
do_nml_file, do_nml_term, get_next_filename, &
finalize_utilities, logfileunit
-use location_mod, only : location_type, get_location, write_location, &
- operator(/=)
+use location_mod, only : location_type, operator(/=)
use obs_def_mod, only : obs_def_type, get_obs_def_time, get_obs_kind, &
- get_obs_def_location, read_obs_def
+ get_obs_def_location
use obs_kind_mod, only : max_obs_kinds, get_obs_kind_name
use time_manager_mod, only : time_type, print_date, print_time, set_time, &
set_calendar_type, get_calendar_type, &
@@ -90,7 +89,7 @@
logical :: wanted
integer :: size_seq_in(maxseq), num_copies_in(maxseq), num_qc_in(maxseq)
integer :: size_seq_out, num_inserted, iunit, io, i, j, k
-integer :: max_num_obs(maxseq), file_id, atonce, nsets, other, offset
+integer :: max_num_obs(maxseq), file_id, atonce, nsets, offset
integer :: num_rejected_badqc, num_rejected_diffqc, num_rejected_other
integer :: num_mismatch_loc, num_mismatch_time, num_mismatch_type
character(len = 129) :: read_format
@@ -584,7 +583,7 @@
character(len=*), intent(in) :: fnames(:)
integer :: num_copies1, num_copiesN, num_qc1, num_qcN
-integer :: i, j, k
+integer :: i, j
character(len=metadatalength) :: str1, strN
num_copies1 = get_num_copies(seq(1))
Modified: DART/trunk/obs_sequence/obs_seq_to_netcdf.f90
===================================================================
--- DART/trunk/obs_sequence/obs_seq_to_netcdf.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/obs_sequence/obs_seq_to_netcdf.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -12,31 +12,29 @@
! All 'possible' obs_kinds are treated separately.
!-----------------------------------------------------------------------
-use types_mod, only : r4, r8, digits12, MISSING_R8, MISSING_R4
+use types_mod, only : r8, digits12, MISSING_R8
use obs_sequence_mod, only : read_obs_seq, obs_type, obs_sequence_type, get_first_obs, &
get_obs_from_key, get_obs_def, get_copy_meta_data, &
- get_obs_time_range, get_time_range_keys, get_num_obs, &
- get_next_obs, get_num_times, get_obs_values, init_obs, &
- assignment(=), get_num_copies, static_init_obs_sequence, &
+ get_obs_time_range, get_time_range_keys, &
+ get_obs_values, init_obs, assignment(=), static_init_obs_sequence, &
get_qc, destroy_obs_sequence, read_obs_seq_header, &
- get_last_obs, destroy_obs, get_num_qc, get_qc_meta_data
+ get_last_obs, destroy_obs, get_qc_meta_data
use obs_def_mod, only : obs_def_type, get_obs_def_error_variance, get_obs_def_time, &
- get_obs_def_location, get_obs_kind, get_obs_name
-use obs_kind_mod, only : max_obs_kinds, get_obs_kind_var_type, get_obs_kind_name
-use location_mod, only : location_type, get_location, set_location_missing, &
- write_location, operator(/=), operator(==), &
+ get_obs_def_location, get_obs_kind
+use obs_kind_mod, only : max_obs_kinds, get_obs_kind_name
+use location_mod, only : location_type, write_location, operator(/=), operator(==), &
set_location, is_location_in_region, query_location, &
nc_write_location_atts, nc_get_location_varids, &
nc_write_location
-use time_manager_mod, only : time_type, set_date, set_time, get_time, print_time, &
- set_calendar_type, get_calendar_string, print_date, &
+use time_manager_mod, only : time_type, get_time, print_time, &
+ get_calendar_string, print_date, &
operator(*), operator(+), operator(-), &
operator(>), operator(<), operator(/), &
operator(/=), operator(<=)
use schedule_mod, only : schedule_type, set_regular_schedule, get_schedule_length, &
get_time_from_schedule
-use utilities_mod, only : open_file, close_file, register_module, &
- file_exist, error_handler, E_ERR, E_WARN, E_MSG, &
+use utilities_mod, only : register_module, &
+ file_exist, error_handler, E_ERR, E_MSG, &
initialize_utilities, finalize_utilities, nmlfileunit, &
find_namelist_in_file, check_namelist_read, nc_check, &
next_file, get_next_filename, find_textfile_dims, &
Modified: DART/trunk/obs_sequence/obs_sequence_tool.f90
===================================================================
--- DART/trunk/obs_sequence/obs_sequence_tool.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/obs_sequence/obs_sequence_tool.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -24,7 +24,7 @@
init_obs, assignment(=), get_obs_def, &
init_obs_sequence, static_init_obs_sequence, &
read_obs_seq_header, read_obs_seq, get_num_obs, &
- get_first_obs, get_last_obs, get_next_obs, &
+ get_first_obs, get_next_obs, &
insert_obs_in_seq, get_num_copies, get_num_qc, &
get_copy_meta_data, get_qc_meta_data, &
set_copy_meta_data, set_qc_meta_data, &
Modified: DART/trunk/preprocess/preprocess.f90
===================================================================
--- DART/trunk/preprocess/preprocess.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/preprocess/preprocess.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -18,13 +18,12 @@
! NEED TO ADD IN ALL THE ERROR STUFF
-use types_mod, only : r8
use utilities_mod, only : register_module, error_handler, E_ERR, E_MSG, &
- file_exist, open_file, logfileunit, &
- initialize_utilities, do_nml_file, do_nml_term, &
- find_namelist_in_file, check_namelist_read, &
- finalize_utilities
+ file_exist, open_file, logfileunit, &
+ initialize_utilities, finalize_utilities, &
+ find_namelist_in_file, check_namelist_read
+
implicit none
! version controlled file description for error handling, do not edit
Modified: DART/trunk/random_seq/test_reseed.f90
===================================================================
--- DART/trunk/random_seq/test_reseed.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/random_seq/test_reseed.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -6,15 +6,13 @@
program test_reseed
-use types_mod, only : r8, digits12
-use utilities_mod, only : register_module, error_handler, E_ERR, &
+use types_mod, only : r8
+use utilities_mod, only : register_module, error_handler, E_MSG, &
initialize_utilities, finalize_utilities, &
- logfileunit, nmlfileunit, E_MSG, &
find_namelist_in_file, check_namelist_read, &
- open_file, close_file, do_nml_file, do_nml_term
-use time_manager_mod, only : time_type, operator(+), set_time, get_time, &
- set_calendar_type, print_time, print_date, &
- generate_seed
+ nmlfileunit, do_nml_file, do_nml_term
+use time_manager_mod, only : time_type, operator(+), set_time, generate_seed, &
+ set_calendar_type, print_time, print_date
use random_seq_mod, only : random_seq_type, init_random_seq, &
random_uniform, random_gaussian
@@ -254,7 +252,7 @@
real(r8) :: next_val
integer :: i, j, k, nextseed
integer, allocatable :: seedhist(:)
-type(time_type) :: t, base_time, state_time, delta_time, delta_time2
+type(time_type) :: base_time, state_time, delta_time, delta_time2
type(random_seq_type) :: seq1
Modified: DART/trunk/time_manager/advance_time.f90
===================================================================
--- DART/trunk/time_manager/advance_time.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/time_manager/advance_time.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -36,9 +36,9 @@
!
use time_manager_mod, only : time_type, set_calendar_type, GREGORIAN, &
- increment_time, decrement_time, set_time, get_time, &
+ increment_time, decrement_time, get_time, &
set_date, get_date, julian_day
-use utilities_mod, only : initialize_utilities, error_handler, E_ERR, E_MSG
+use utilities_mod, only : initialize_utilities
use parse_args_mod, only : get_args_from_string
implicit none
Modified: DART/trunk/utilities/closest_member_tool.f90
===================================================================
--- DART/trunk/utilities/closest_member_tool.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/utilities/closest_member_tool.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -12,11 +12,10 @@
use time_manager_mod, only : time_type, set_time_missing, &
operator(/=), print_time
-use utilities_mod, only : register_module, do_output, &
- error_handler, nmlfileunit, E_MSG, E_ERR, &
- find_namelist_in_file, &
- check_namelist_read, logfileunit, &
- do_nml_file, do_nml_term, open_file, close_file
+use utilities_mod, only : register_module, find_namelist_in_file, &
+ error_handler, nmlfileunit, E_MSG, E_ERR, &
+ check_namelist_read, do_nml_file, do_nml_term, &
+ open_file, close_file
use location_mod, only : location_type
@@ -26,8 +25,7 @@
use sort_mod, only : slow_index_sort
use assim_model_mod, only : static_init_assim_model, get_model_size, &
- open_restart_read, open_restart_write, &
- awrite_state_restart, aread_state_restart, &
+ open_restart_read, aread_state_restart, &
close_restart, get_state_meta_data
use mpi_utilities_mod, only : initialize_mpi_utilities, task_count, &
@@ -344,11 +342,7 @@
real(r8) :: compute_diff
-integer :: i
-real(r8) :: val, r, diff, biggest, val2
real(r8), allocatable :: adiff(:)
-integer :: hist(5)
-character(len=72) :: tbuf
! new strategy: compute an array of differences and sum them at the end.
! try to use array operations when possible. useindex() is a logical array
Modified: DART/trunk/utilities/restart_file_tool.f90
===================================================================
--- DART/trunk/utilities/restart_file_tool.f90 2014-04-23 17:08:16 UTC (rev 6918)
+++ DART/trunk/utilities/restart_file_tool.f90 2014-04-23 17:33:18 UTC (rev 6919)
@@ -8,17 +8,14 @@
! Program to overwrite the time on each ensemble in a restart file.
-use types_mod, only : r8
-use time_manager_mod, only : time_type, operator(<), operator(==), &
- set_time_missing, set_time, &
- operator(/=), print_time, print_date, &
- set_calendar_type, GREGORIAN, NO_CALENDAR, &
- get_calendar_type
+use time_manager_mod, only : time_type, operator(<), operator(==), &
+ set_time_missing, set_time, &
+ operator(/=), print_time, print_date, &
+ set_calendar_type, GREGORIAN
-use utilities_mod, only : register_module, do_output, &
- error_handler, nmlfileunit, E_MSG, E_ERR, &
- find_namelist_in_file, &
- check_namelist_read, logfileunit, &
+use utilities_mod, only : register_module, error_handler, nmlfileunit, &
+ E_MSG, E_ERR, find_namelist_in_file, &
+ check_namelist_read, logfileunit, &
do_nml_file, do_nml_term
use assim_model_mod, only : static_init_assim_model, get_model_size, &
@@ -26,10 +23,10 @@
awrite_state_restart, aread_state_restart, &
close_restart
-use ensemble_manager_mod, only : init_ensemble_manager, ensemble_type, &
- put_copy, prepare_to_write_to_vars, prepare_to_read_from_vars
+use ensemble_manager_mod, only : init_ensemble_manager, ensemble_type, &
+ prepare_to_write_to_vars
-use mpi_utilities_mod, only : initialize_mpi_utilities, task_count, &
+use mpi_utilities_mod, only : initialize_mpi_utilities, task_count, &
finalize_mpi_utilities
More information about the Dart-dev
mailing list