[Dart-dev] [7116] DART/trunk/obs_sequence: No functional changes.
nancy at ucar.edu
nancy at ucar.edu
Tue Aug 12 17:01:52 MDT 2014
Revision: 7116
Author: thoar
Date: 2014-08-12 17:01:52 -0600 (Tue, 12 Aug 2014)
Log Message:
-----------
No functional changes. Formatted whitespace.
Modified Paths:
--------------
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_loop.f90
DART/trunk/obs_sequence/obs_selection.f90
DART/trunk/obs_sequence/obs_seq_coverage.f90
DART/trunk/obs_sequence/obs_seq_to_netcdf.f90
DART/trunk/obs_sequence/obs_sequence_tool.f90
-------------- next part --------------
Modified: DART/trunk/obs_sequence/create_fixed_network_seq.f90
===================================================================
--- DART/trunk/obs_sequence/create_fixed_network_seq.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/create_fixed_network_seq.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -33,7 +33,7 @@
type(obs_sequence_type) :: seq, seq_in
type(obs_type) :: obs, next_obs, new_obs
type(obs_def_type) :: obs_def
-character(len = 129) :: file_name
+character(len=129) :: file_name
logical :: is_there_one, is_this_last
type(time_type) :: ob_time, init_time, this_time, period
integer :: seconds, days, i, j, network_size, option, num_times, num_copies, num_qc
Modified: DART/trunk/obs_sequence/create_obs_sequence.f90
===================================================================
--- DART/trunk/obs_sequence/create_obs_sequence.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/create_obs_sequence.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -21,7 +21,7 @@
character(len=128), parameter :: revdate = "$Date$"
type(obs_sequence_type) :: seq
-character(len = 129) :: file_name
+character(len=129) :: file_name
! Record the current time, date, etc. to the logfile
call initialize_utilities('create_obs_sequence')
Modified: DART/trunk/obs_sequence/obs_common_subset.f90
===================================================================
--- DART/trunk/obs_sequence/obs_common_subset.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/obs_common_subset.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -96,26 +96,26 @@
integer :: max_num_obs(maxcomp), file_id, atonce, nsets
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
+character(len=129) :: read_format
logical :: pre_I_format, cal
-character(len = 512) :: msgstring, msgstring1, msgstring2, msgstring3
-character(len = 256) :: filename_in(maxcomp)
-character(len = 384) :: filename_out(maxcomp) ! filename_in + . + suffix
+character(len=512) :: msgstring, msgstring1, msgstring2, msgstring3
+character(len=256) :: filename_in(maxcomp)
+character(len=384) :: filename_out(maxcomp) ! filename_in + . + suffix
-character(len = metadatalength), parameter :: dart_qc_meta_data = 'DART quality control'
-character(len = metadatalength) :: meta_data
+character(len=metadatalength), parameter :: dart_qc_meta_data = 'DART quality control'
+character(len=metadatalength) :: meta_data
integer :: qc_index
integer :: num_input_sets = 0
-character(len = 256) :: temp_filelist(max_num_input_files) = ''
+character(len=256) :: temp_filelist(max_num_input_files) = ''
!----------------------------------------------------------------
! Namelist input with default values
-character(len = 256) :: filename_seq(max_num_input_files) = ''
-character(len = 256) :: filename_seq_list(maxcomp) = ''
-character(len = 32) :: filename_out_suffix = '.common'
+character(len=256) :: filename_seq(max_num_input_files) = ''
+character(len=256) :: filename_seq_list(maxcomp) = ''
+character(len=32) :: filename_out_suffix = '.common'
integer :: num_to_compare_at_once = 2
logical :: print_only = .false.
Modified: DART/trunk/obs_sequence/obs_loop.f90
===================================================================
--- DART/trunk/obs_sequence/obs_loop.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/obs_loop.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -60,12 +60,12 @@
integer :: max_num_obs, file_id
integer :: num_rejected_badqc, num_rejected_diffqc
integer :: num_rejected_other
-character(len = 129) :: read_format
+character(len=129) :: read_format
logical :: pre_I_format, cal
-character(len = 256) :: msgstring, msgstring1, msgstring2
+character(len=256) :: msgstring, msgstring1, msgstring2
type(obs_def_type) :: this_obs_def
-character(len = metadatalength) :: meta_data
+character(len=metadatalength) :: meta_data
! could go into namelist if you wanted more control
integer, parameter :: print_every = 5000
@@ -77,8 +77,8 @@
! Namelist input with default values
-character(len = 160) :: filename_in = ''
-character(len = 160) :: filename_out = ''
+character(len=160) :: filename_in = ''
+character(len=160) :: filename_out = ''
logical :: print_only = .false.
character(len=32) :: calendar = 'Gregorian'
@@ -304,7 +304,7 @@
! stop times, and metadata strings and counts.
type(obs_sequence_type), intent(in) :: seq_in
-character(len=*), intent(in) :: filename
+character(len=*), intent(in) :: filename
type(obs_type) :: obs, next_obs
type(obs_def_type) :: this_obs_def
@@ -535,7 +535,7 @@
!
type(obs_sequence_type), intent(in) :: seq
-character(len=*), optional :: fname
+character(len=*), optional :: fname
integer :: num_copies , num_qc, i
character(len=metadatalength) :: str
Modified: DART/trunk/obs_sequence/obs_selection.f90
===================================================================
--- DART/trunk/obs_sequence/obs_selection.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/obs_selection.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -75,9 +75,9 @@
integer :: max_num_obs, file_id, this_type
logical, allocatable :: type_wanted(:)
integer :: first_seq, num_good_called, num_good_searched
-character(len = 129) :: read_format, meta_data
+character(len=129) :: read_format, meta_data
logical :: pre_I_format, cal
-character(len = 255) :: msgstring, msgstring1, msgstring2, msgstring3
+character(len=255) :: msgstring, msgstring1, msgstring2, msgstring3
!----------------------------------------------------------------
@@ -93,13 +93,13 @@
integer :: print_every_nth_obs = 100
-character(len = 129) :: filename_seq(max_num_input_files) = ''
-character(len = 129) :: filename_seq_list = ''
-character(len = 129) :: filename_out = 'obs_seq.processed'
-logical :: process_file(max_num_input_files)
+character(len=129) :: filename_seq(max_num_input_files) = ''
+character(len=129) :: filename_seq_list = ''
+character(len=129) :: filename_out = 'obs_seq.processed'
+logical :: process_file(max_num_input_files)
-character(len = 129) :: selections_file = 'obsdef_mask.txt'
-logical :: selections_is_obs_seq = .false.
+character(len=129) :: selections_file = 'obsdef_mask.txt'
+logical :: selections_is_obs_seq = .false.
! max differences allowed when deciding a location is the same
real(r8) :: latlon_tolerance = 0.000001 ! horizontal, degrees
@@ -598,8 +598,8 @@
! qc entries, seq1 has already been edited and only 2 needs the editing
! applied. before they were completely symmetric.
- type(obs_sequence_type), intent(IN) :: seq1, seq2
- character(len=*), optional :: fname1, fname2
+type(obs_sequence_type), intent(in) :: seq1, seq2
+character(len=*), optional :: fname1, fname2
integer :: num_copies1, num_qc1
integer :: num_copies2, num_qc2
@@ -692,7 +692,7 @@
! stop times, and metadata strings and counts.
type(obs_sequence_type), intent(in) :: seq_in
-character(len=*), intent(in) :: filename
+character(len=*), intent(in) :: filename
type(obs_type) :: obs, next_obs
type(obs_def_type) :: this_obs_def
Modified: DART/trunk/obs_sequence/obs_seq_coverage.f90
===================================================================
--- DART/trunk/obs_sequence/obs_seq_coverage.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/obs_seq_coverage.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -1210,8 +1210,8 @@
subroutine WriteNetCDF(ncid, fname, voxels)
-integer, intent(in) :: ncid
-character(len=*), intent(in) :: fname
+integer, intent(in) :: ncid
+character(len=*), intent(in) :: fname
type(voxel_type), dimension(:), intent(in) :: voxels
integer :: DimID, ntimes, voxelindex, days, secs, i
@@ -1352,7 +1352,7 @@
subroutine initialize_voxels(Nvoxels, myvoxels)
-integer, intent(in) :: Nvoxels
+integer, intent(in) :: Nvoxels
type(voxel_type), allocatable, dimension(:), intent(out) :: myvoxels
integer :: i
Modified: DART/trunk/obs_sequence/obs_seq_to_netcdf.f90
===================================================================
--- DART/trunk/obs_sequence/obs_seq_to_netcdf.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/obs_seq_to_netcdf.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -595,7 +595,7 @@
Function InitNetCDF(fname, ibin)
character(len=*), intent(in) :: fname
integer, intent(in) :: ibin
-integer :: InitNetCDF
+integer :: InitNetCDF
integer :: ncid, i, indx1, nlines, linelen
integer :: LineLenDimID, nlinesDimID, stringDimID
@@ -913,17 +913,16 @@
Subroutine WriteNetCDF(ncid, fname, ngood, obs_copies, qc_copies, &
locations, obs_times, obs_types, obs_keys )
!============================================================================
-integer, intent(in) :: ncid
-character(len=*), intent(in) :: fname
-integer, intent(in) :: ngood
+integer, intent(in) :: ncid
+character(len=*), intent(in) :: fname
+integer, intent(in) :: ngood
+real(r8), dimension(:,:), intent(in) :: obs_copies
+integer, dimension(:,:), intent(in) :: qc_copies
+type(location_type), dimension(:), intent(in) :: locations
+real(digits12), dimension(:), intent(in) :: obs_times
+integer, dimension(:), intent(in) :: obs_types
+integer, dimension(:), intent(in) :: obs_keys
-real(r8), dimension(:,:), intent(in) :: obs_copies
-integer, dimension(:,:), intent(in) :: qc_copies
-type(location_type), dimension(:), intent(in) :: locations
-real(digits12), dimension(:), intent(in) :: obs_times
-integer, dimension(:), intent(in) :: obs_types
-integer, dimension(:), intent(in) :: obs_keys
-
integer :: DimID, dimlen, obsindex, iobs
integer, dimension(1) :: istart, icount, intval
Modified: DART/trunk/obs_sequence/obs_sequence_tool.f90
===================================================================
--- DART/trunk/obs_sequence/obs_sequence_tool.f90 2014-08-11 15:50:56 UTC (rev 7115)
+++ DART/trunk/obs_sequence/obs_sequence_tool.f90 2014-08-12 23:01:52 UTC (rev 7116)
@@ -53,10 +53,10 @@
integer :: num_inserted, iunit, io, i, j, total_num_inserted
integer :: max_num_obs, file_id, remaining_obs_count
integer :: first_seq
-character(len = metadatalength) :: read_format, meta_data
+character(len=metadatalength) :: read_format, meta_data
logical :: pre_I_format, all_gone
logical :: trim_first, trim_last
-character(len = 255) :: msgstring
+character(len=255) :: msgstring
! could go into namelist if you wanted more control
integer, parameter :: print_every = 20000
@@ -70,7 +70,7 @@
! lazy, pick a big number
integer, parameter :: max_obs_input_types = 500
-character(len = obstypelength) :: obs_types(max_obs_input_types) = ''
+character(len=obstypelength) :: obs_types(max_obs_input_types) = ''
logical :: restrict_by_obs_type
integer :: num_obs_input_types
logical :: restrict_by_location
@@ -80,9 +80,9 @@
integer :: matching_qc_limit = 0
-character(len = 129) :: filename_seq(max_num_input_files) = ''
-character(len = 129) :: filename_seq_list = ''
-character(len = 129) :: filename_out = 'obs_seq.processed'
+character(len=129) :: filename_seq(max_num_input_files) = ''
+character(len=129) :: filename_seq_list = ''
+character(len=129) :: filename_out = 'obs_seq.processed'
logical :: process_file(max_num_input_files)
! 256 is an arb max of number of copies for data and qc
@@ -107,7 +107,7 @@
real(r8) :: max_qc = missing_r8
real(r8) :: min_copy = missing_r8
real(r8) :: max_copy = missing_r8
-character(len = obstypelength) :: copy_type = ''
+character(len=obstypelength) :: copy_type = ''
character(len=metadatalength) :: copy_metadata = ''
character(len=metadatalength) :: qc_metadata = ''
logical :: edit_copy_metadata = .false.
@@ -980,11 +980,11 @@
subroutine trim_seq(seq, trim_first, first_time, trim_last, last_time, &
seqfilename, print_msg, remaining_obs_count)
type(obs_sequence_type), intent(inout) :: seq
- logical, intent(in) :: trim_first, trim_last
- type(time_type), intent(in) :: first_time, last_time
- character(len = *), intent(in) :: seqfilename
- logical, intent(in) :: print_msg
- integer, intent(out) :: remaining_obs_count
+ logical, intent(in) :: trim_first, trim_last
+ type(time_type), intent(in) :: first_time, last_time
+ character(len=*), intent(in) :: seqfilename
+ logical, intent(in) :: print_msg
+ integer, intent(out) :: remaining_obs_count
integer :: i
logical :: found
@@ -1137,7 +1137,7 @@
! stop times, and metadata strings and counts.
type(obs_sequence_type), intent(in) :: seq_in
-character(len=*), intent(in) :: filename
+character(len=*), intent(in) :: filename
type(obs_type) :: obs, next_obs
type(obs_def_type) :: this_obs_def
More information about the Dart-dev
mailing list