[Dart-dev] [4853] DART/trunk/models/tiegcm/model_mod.f90: Now a linear interpolation of the electron density to the obs height

[nancy at ucar.edu]

Revision: 4853
Author:   tmatsuo
Date:     2011-04-14 11:45:20 -0600 (Thu, 14 Apr 2011)
Log Message:
-----------
Now a linear interpolation of the electron density to the obs height 
is applied in a straightforward manner 
(it used to take log(Ne) before linearly interpolating values) 

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

-------------- next part --------------
Modified: DART/trunk/models/tiegcm/model_mod.f90
===================================================================
--- DART/trunk/models/tiegcm/model_mod.f90	2011-04-14 16:27:04 UTC (rev 4852)
+++ DART/trunk/models/tiegcm/model_mod.f90	2011-04-14 17:45:20 UTC (rev 4853)
@@ -521,12 +521,15 @@
 
 endif
 
-if ((obs_kind == KIND_ELECTRON_DENSITY) .or. &
-    (obs_kind == KIND_PRESSURE) ) then
+if (obs_kind == KIND_PRESSURE) then
 
   val = exp(frac_lev * log(val_bottom)  +  (1.0 - frac_lev) * log(val_top))
 
-else
+else 
+!KIND_ELECTRON_DENSITY 
+!KIND_TEMPERATURE 
+!KIND_MOLEC_OXYGEN_MIXING_RATIO
+!KIND_ATOMIC_OXYGEN_MIXING_RATIO
 
   val = frac_lev * val_bottom  +  (1.0 - frac_lev) * val_top