[Dart-dev] [9796] DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90: generic kinds ( queried by the 'raw' versions of these calls)

nancy at ucar.edu nancy at ucar.edu
Thu Feb 18 10:50:50 MST 2016


Revision: 9796
Author:   nancy
Date:     2016-02-18 10:50:49 -0700 (Thu, 18 Feb 2016)
Log Message:
-----------
generic kinds (queried by the 'raw' versions of these calls)
start at 0, not 1.  specific types start at 1.  the query
calls need to start their loops at 0 or 'KIND_RAW_STATE_VARIABLE'
will never be found.

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	2016-02-18 17:38:23 UTC (rev 9795)
+++ DART/trunk/obs_kind/DEFAULT_obs_kind_mod.F90	2016-02-18 17:50:49 UTC (rev 9796)
@@ -830,9 +830,9 @@
 
 if (.not. module_initialized) call initialize_module
 
-if (obs_kind_ind < 1 .or. obs_kind_ind > max_obs_generic) then
+if (obs_kind_ind < 0 .or. obs_kind_ind > max_obs_generic) then
    write(msg_string,'(A,I6,A,I6)') 'generic kind number ', obs_kind_ind, &
-                                   ' must be between 1 and ', max_obs_generic
+                                   ' must be between 0 and ', max_obs_generic
    call error_handler(E_ERR, 'get_raw_obs_kind_name', msg_string, &
                       source, revision, revdate)
 endif
@@ -888,7 +888,7 @@
 
 string1 = adjustl(obs_kind_name)
 
-do i = 1, max_obs_generic
+do i = 0, max_obs_generic
    if(trim(string1) == trim(obs_kind_names(i)%name)) then
       get_raw_obs_kind_index = i
       return


More information about the Dart-dev mailing list