[Dart-dev] [5089] DART/trunk/models/tiegcm/dart_to_model.f90: Modified to accomodate the case when model 1D paramters (e.g., F107) are NOT included in the DART state vector.

[nancy at ucar.edu]

Revision: 5089
Author:   tmatsuo
Date:     2011-07-19 16:13:42 -0600 (Tue, 19 Jul 2011)
Log Message:
-----------
Modified to accomodate the case when model 1D paramters (e.g., F107) are NOT included in the DART state vector.

Modified Paths:
--------------
    DART/trunk/models/tiegcm/dart_to_model.f90

-------------- next part --------------
Modified: DART/trunk/models/tiegcm/dart_to_model.f90
===================================================================
--- DART/trunk/models/tiegcm/dart_to_model.f90	2011-07-19 22:11:47 UTC (rev 5088)
+++ DART/trunk/models/tiegcm/dart_to_model.f90	2011-07-19 22:13:42 UTC (rev 5089)
@@ -157,10 +157,18 @@
          source,revision,revdate)
 endif
 !F107
-write(file_unit, *, iostat = io )  var%vars_1d(1)
-if (io /= 0 )then
-   call error_handler(E_ERR,'dart_to_model:','cannot write f107 (var%vars_1d) to STDOUT', &
+if (size(var%vars_1d) > 0) then
+  write(file_unit, *, iostat = io )  var%vars_1d(1)
+  if (io /= 0 )then
+    call error_handler(E_ERR,'dart_to_model:','cannot write f107 (var%vars_1d) to STDOUT', &
          source,revision,revdate)
+  endif
+else
+  write(file_unit, *, iostat = io ) 'NA'
+  if (io /= 0 )then
+    call error_handler(E_ERR,'dart_to_model:','cannot write f107 (var%vars_1d) to STDOUT', &
+         source,revision,revdate)
+  endif
 endif
 
 close(file_unit)