[Dart-dev] DART/branches Revision: 11360

[dart at ucar.edu]

nancy at ucar.edu
2017-03-16 09:39:31 -0600 (Thu, 16 Mar 2017)
182
we've changed paramname_length to either varnamelength for general
variable names, or obstypelength for things related to obs types/quantities.
make the corresponding changes here.




Modified: DART/branches/rma_trunk/models/template/geo_model_mod.f90
===================================================================
--- DART/branches/rma_trunk/models/template/geo_model_mod.f90	2017-03-16 15:31:38 UTC (rev 11359)
+++ DART/branches/rma_trunk/models/template/geo_model_mod.f90	2017-03-16 15:39:31 UTC (rev 11360)
@@ -43,7 +43,7 @@
                              open_file, file_exist, find_textfile_dims,        &
                              file_to_text, close_file
 
-use     obs_kind_mod, only : paramname_length,        &
+use     obs_kind_mod, only : obstypelength,        &
                              get_index_for_quantity,  &
                              get_name_for_quantity
 
@@ -173,7 +173,7 @@
    integer :: index1      ! location in dart state vector of first occurrence
    integer :: indexN      ! location in dart state vector of last  occurrence
    integer :: dart_kind
-   character(len=paramname_length) :: kind_string
+   character(len=obstypelength) :: kind_string
 end type progvartype
 
 type(progvartype), dimension(max_state_variables) :: progvar
@@ -372,7 +372,7 @@
 
 integer, dimension(NF90_MAX_VAR_DIMS) :: dimIDs
 character(len=NF90_MAX_NAME)          :: varname
-character(len=paramname_length)       :: kind_string
+character(len=obstypelength)       :: kind_string
 integer :: ncid, VarID, numdims, dimlen, varsize
 integer :: iunit, io, ivar, i, index1, indexN
 integer :: ss, dd
@@ -1882,7 +1882,7 @@
 real(r8), intent(out) :: LatStart, LatEnd, LonStart
 
 integer :: grid_id, dimid
-character(len=paramname_length) :: filename = 'UAM.in'
+character(len=obstypelength) :: filename = 'UAM.in'
 
 character(len=100) :: cLine  ! iCharLen_ == 100
 character(len=128) :: fileloc
@@ -2756,7 +2756,7 @@
 integer, intent(out) :: index1,indexN
 
 integer :: i
-character(len=paramname_length) :: string
+character(len=obstypelength) :: string
 
 index1 = 0
 indexN = 0

Modified: DART/branches/rma_trunk/observations/obs_converters/GSI2DART/dart_obs_seq_mod.f90
===================================================================
--- DART/branches/rma_trunk/observations/obs_converters/GSI2DART/dart_obs_seq_mod.f90	2017-03-16 15:31:38 UTC (rev 11359)
+++ DART/branches/rma_trunk/observations/obs_converters/GSI2DART/dart_obs_seq_mod.f90	2017-03-16 15:39:31 UTC (rev 11360)
@@ -392,7 +392,7 @@
 
    integer                            :: i
    logical                       :: is_all
-   character(len = paramname_length)  :: ob_type_string  ! paramname_length from obs_kind_mod
+   character(len = obstypelength)  :: ob_type_string  ! obstypelength from obs_kind_mod
 
    ! Initialize to false
    write_this_ob_type_external_FO = .false.