[Dart-dev] [4690] DART/trunk/models/tiegcm/model_to_dart.f90: read_TIEGCM_namelist is called to fill in var%vars_1d

[nancy at ucar.edu]

Revision: 4690
Author:   tmatsuo
Date:     2011-02-03 12:00:16 -0700 (Thu, 03 Feb 2011)
Log Message:
-----------
read_TIEGCM_namelist is called to fill in var%vars_1d 
with TIEGCM forcing parameters from tiegcm.nml

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

-------------- next part --------------
Modified: DART/trunk/models/tiegcm/model_to_dart.f90
===================================================================
--- DART/trunk/models/tiegcm/model_to_dart.f90	2011-02-03 18:55:04 UTC (rev 4689)
+++ DART/trunk/models/tiegcm/model_to_dart.f90	2011-02-03 19:00:16 UTC (rev 4690)
@@ -23,7 +23,7 @@
 use    utilities_mod, only : get_unit, initialize_utilities, timestamp
 use        model_mod, only : model_type, static_init_model, get_model_size, &
                              init_model_instance, read_TIEGCM_restart, &
-                             prog_var_to_vector 
+                             read_TIEGCM_namelist, prog_var_to_vector 
 use  assim_model_mod, only : open_restart_write, awrite_state_restart, close_restart
 use time_manager_mod, only : time_type
 
@@ -36,8 +36,9 @@
    revdate  = "$Date$"
 
 character (len = 128) ::  &
-   file_name = 'tiegcm_restart_p.nc', & 
-   file_out  = 'temp_ud'
+   file_namelist = 'tiegcm.nml', &
+   file_name     = 'tiegcm_restart_p.nc', & 
+   file_out      = 'temp_ud'
 
 ! Temporary allocatable storage to read in a native format for TIEGCM state
 type(model_type)       :: var
@@ -62,6 +63,9 @@
 ! to reflect the valid time of the TIEGCM state.
 call read_TIEGCM_restart(file_name, var, model_time)
 
+! Read the TIEGCM input variables into var
+call read_TIEGCM_namelist(file_namelist, var)
+
 ! transform fields into state vector for DART
 call prog_var_to_vector(var, x_state)