[Dart-dev] DART/branches Revision: 12874

[dart at ucar.edu]

thoar at ucar.edu
2018-10-02 10:14:38 -0600 (Tue, 02 Oct 2018)
56
minor formatting changes - consistent with git version




Modified: DART/branches/rma_wrfHydro/assimilation_code/modules/assimilation/assim_tools_mod.f90
===================================================================
--- DART/branches/rma_wrfHydro/assimilation_code/modules/assimilation/assim_tools_mod.f90	2018-10-02 00:52:21 UTC (rev 12873)
+++ DART/branches/rma_wrfHydro/assimilation_code/modules/assimilation/assim_tools_mod.f90	2018-10-02 16:14:38 UTC (rev 12874)
@@ -349,16 +349,16 @@
 integer(i8), allocatable :: my_obs_indx(:)
 
 integer  :: my_num_obs, i, j, owner, owners_index, my_num_state
-integer :: obs_mean_index, obs_var_index
+integer  :: obs_mean_index, obs_var_index
 integer  :: grp_beg(num_groups), grp_end(num_groups), grp_size, grp_bot, grp_top, group
 integer  :: num_close_obs, obs_index, num_close_states
 integer  :: total_num_close_obs, last_num_close_obs, last_num_close_states
-integer :: base_obs_kind, base_obs_type, nth_obs
+integer  :: base_obs_kind, base_obs_type, nth_obs
 integer  :: num_close_obs_cached, num_close_states_cached
 integer  :: num_close_obs_calls_made, num_close_states_calls_made
 integer  :: localization_unit, secs, days, rev_num_close_obs
-integer :: whichvert_obs_in_localization_coord
-integer :: istatus
+integer  :: whichvert_obs_in_localization_coord
+integer  :: istatus
 integer, allocatable :: close_obs_ind(:)
 integer, allocatable :: close_state_ind(:)
 integer, allocatable :: last_close_obs_ind(:)
@@ -370,7 +370,7 @@
 
 character(len = 200)  :: base_loc_text   ! longer than longest location formatting possible
 
-type(location_type)  :: base_obs_loc, last_base_obs_loc, last_base_states_loc
+type(location_type) :: base_obs_loc, last_base_obs_loc, last_base_states_loc
 type(location_type) :: dummyloc
 type(location_type), allocatable :: my_obs_loc(:)
 type(location_type), allocatable :: my_state_loc(:)

Modified: DART/branches/rma_wrfHydro/observations/forward_operators/DEFAULT_obs_def_mod.F90
===================================================================
--- DART/branches/rma_wrfHydro/observations/forward_operators/DEFAULT_obs_def_mod.F90	2018-10-02 00:52:21 UTC (rev 12873)
+++ DART/branches/rma_wrfHydro/observations/forward_operators/DEFAULT_obs_def_mod.F90	2018-10-02 16:14:38 UTC (rev 12874)
@@ -124,10 +124,10 @@
    eq_obs_def, ne_obs_def, operator(==), operator(/=), print_obs_def
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
+character(len=*), parameter :: revision = "$Revision$"
+character(len=*), parameter :: revdate  = "$Date$"
 
 ! FIXME: should write_external_FO be some kind of global instead of
 ! being per-obs?
@@ -607,16 +607,16 @@
 real(r8),                   intent(inout) :: obs_val
 character(len=*), optional, intent(in)    :: fform
 
-character(len=5)  :: header
-integer           :: o_index
-logical           :: is_ascii
-character(len=32) :: fileformat   ! here for backwards compatibility only
-character(len=256) :: errstring
-character(len=11) :: header_external_FO 
-integer           :: ii, secs,days 
+character(len=5)   :: header
+integer            :: o_index
+logical            :: is_ascii
+character(len=32)  :: fileformat   ! here for backwards compatibility only
+character(len=512) :: errstring
+character(len=11)  :: header_external_FO 
+integer            :: ii, secs,days 
 character(len=128) :: string 
-logical           :: time_set
-integer, save     :: counter = 0
+logical            :: time_set
+integer, save      :: counter = 0
 
 if ( .not. module_initialized ) call initialize_module
 

Modified: DART/branches/rma_wrfHydro/observations/forward_operators/obs_def_dew_point_mod.f90
===================================================================
--- DART/branches/rma_wrfHydro/observations/forward_operators/obs_def_dew_point_mod.f90	2018-10-02 00:52:21 UTC (rev 12873)
+++ DART/branches/rma_wrfHydro/observations/forward_operators/obs_def_dew_point_mod.f90	2018-10-02 16:14:38 UTC (rev 12874)
@@ -110,10 +110,10 @@
 public :: get_expected_dew_point
 
 ! version controlled file description for error handling, do not edit
-character(len=256), parameter :: source   = &
+character(len=*), parameter :: source   = &
    "$URL$"
-character(len=32 ), parameter :: revision = "$Revision$"
-character(len=128), parameter :: revdate  = "$Date$"
+character(len=*), parameter :: revision = "$Revision$"
+character(len=*), parameter :: revdate  = "$Date$"
 
 logical, save :: module_initialized = .false.