[Dart-dev] [4689] DART/trunk/models/tiegcm/dart_to_model.f90: updated F107 value is written out to an ASCII file

[nancy at ucar.edu]

Revision: 4689
Author:   tmatsuo
Date:     2011-02-03 11:55:04 -0700 (Thu, 03 Feb 2011)
Log Message:
-----------
updated F107 value is written out to an ASCII file 
that will be used in advance_model.csh to update tiegcm.nml

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-02-03 17:32:56 UTC (rev 4688)
+++ DART/trunk/models/tiegcm/dart_to_model.f90	2011-02-03 18:55:04 UTC (rev 4689)
@@ -156,6 +156,12 @@
    call error_handler(E_ERR,'dart_to_model:','cannot write target_time mtime (day/hour/minute) to STDOUT', &
          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', &
+         source,revision,revdate)
+endif
 
 close(file_unit)