[Dart-dev] [3961] DART/trunk/models/wrf/model_mod.f90: must use .eqv.

[nancy at ucar.edu]

An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/dart-dev/attachments/20090710/f5ea9877/attachment.html 
-------------- next part --------------
Modified: DART/trunk/models/wrf/model_mod.f90
===================================================================
--- DART/trunk/models/wrf/model_mod.f90	2009-07-09 22:53:49 UTC (rev 3960)
+++ DART/trunk/models/wrf/model_mod.f90	2009-07-10 17:19:02 UTC (rev 3961)
@@ -6014,7 +6014,7 @@
  
    ! if you have one wind component you have to have both
    case (KIND_U_WIND_COMPONENT, KIND_V_WIND_COMPONENT)
-      if (in_state_vector(KIND_U_WIND_COMPONENT) .ne. in_state_vector(KIND_V_WIND_COMPONENT)) then
+      if (in_state_vector(KIND_U_WIND_COMPONENT) .neqv. in_state_vector(KIND_V_WIND_COMPONENT)) then
          write(errstring, *) 'WIND kinds will require both U,V in state vector'
          ! FIXME: not fatal error, just informative at this point.
          call error_handler(E_MSG, 'fill_dart_kinds_table', errstring, &