[Dart-dev] [4468] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: made the length of the parameter strings public - useful to use when

[nancy at ucar.edu]

Revision: 4468
Author:   thoar
Date:     2010-08-04 16:07:00 -0600 (Wed, 04 Aug 2010)
Log Message:
-----------
made the length of the parameter strings public - useful to use when
declaring variables that will receive values from routines in obs_kind_mod.f90

Modified Paths:
--------------
    DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90

-------------- next part --------------
Modified: DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90
===================================================================
--- DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2010-08-04 21:45:47 UTC (rev 4467)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2010-08-04 22:07:00 UTC (rev 4468)
@@ -52,7 +52,7 @@
 ! F90 currently has a maximum length of 32 characters for the NAME of
 ! any Fortran PARAMETER. 
 
-integer, parameter :: paramname_length = 32
+integer, parameter, public :: paramname_length = 32
 
 ! Definition and public access to the observation types/kinds
 ! Unique index values associated with each observation type and 
@@ -512,7 +512,8 @@
 if ( .not. module_initialized ) call initialize_module
 
 if (obs_kind_ind < 1 .or. obs_kind_ind > max_obs_specific) then
-   write(msg_string, *) 'index out of range 1<=val<=', max_obs_specific
+   write(msg_string,'(''index out of range 1 <= '',i6,'' <= '',i6)') &
+                                       obs_kind_ind, max_obs_specific
    call error_handler(E_ERR, 'get_obs_kind_name', msg_string, &
                       source, revision, revdate)
 endif