[Dart-dev] [6001] DART/branches/development/smoother/smoother_mod.f90: Fix the metadata length to match the rest of the system.

nancy at ucar.edu nancy at ucar.edu
Thu Mar 14 12:55:48 MDT 2013


Revision: 6001
Author:   nancy
Date:     2013-03-14 12:55:47 -0600 (Thu, 14 Mar 2013)
Log Message:
-----------
Fix the metadata length to match the rest of the system.
This was changed in filter and other places starting in 
rev 3851 but this file was missed.  The symptom is the length
of the metadata strings in the Lag_NNNNN_Diag.nc diagnostics
files will not match the length in the Prior and Posterior
Diag files. This makes it tough to use the NCO utilities
to subtract or combine arrays from these files.  The results
are not wrong; only the metadata labels in the various diagnostic
output files have different lengths without this update.  There
are no executable code changes or difference in the results
for this commit.

Modified Paths:
--------------
    DART/branches/development/smoother/smoother_mod.f90

-------------- next part --------------
Modified: DART/branches/development/smoother/smoother_mod.f90
===================================================================
--- DART/branches/development/smoother/smoother_mod.f90	2013-03-13 21:39:35 UTC (rev 6000)
+++ DART/branches/development/smoother/smoother_mod.f90	2013-03-14 18:55:47 UTC (rev 6001)
@@ -12,7 +12,7 @@
 !
 ! Tools for turning the filter into a fixed lag smoother for the full state vector.
 
-use      types_mod,       only : r8
+use      types_mod,       only : r8, metadatalength
 use  mpi_utilities_mod,   only : my_task_id
 use  utilities_mod,       only : file_exist, get_unit, check_namelist_read, do_output,  &
                                  find_namelist_in_file, register_module, error_handler, &
@@ -266,7 +266,7 @@
 ! These are the prior and posterior state output files. 
 
 ! The 4 is for ensemble mean and spread plus inflation mean and spread
-character(len = 129) :: state_meta(num_output_state_members + 4)
+character(len = metadatalength) :: state_meta(num_output_state_members + 4)
 character(len = 14)  :: file_name
 character(len = 15)  :: meta_data_string
 integer              :: i, ensemble_offset, num_state_copies


More information about the Dart-dev mailing list