[Dart-dev] DART/trunk Revision: 12197

dart at ucar.edu dart at ucar.edu
Wed Dec 13 09:33:39 MST 2017 

thoar at ucar.edu
2017-12-13 09:33:39 -0700 (Wed, 13 Dec 2017)
320
This is Alex Chartier's original version of the slant TEC operator - as is was recovered from backup.
Since it does not actually compile ... it can be assumed to be a work in progress.
Saving the version for posterity. Will incorporate the routines into obs_def_upper_atm_mod.f90 and
get it to compile, then test, etc.




Added: DART/trunk/obs_def/obs_def_upper_atm_mod_slant_alex_original.f90
===================================================================
--- DART/trunk/obs_def/obs_def_upper_atm_mod_slant_alex_original.f90	                        (rev 0)
+++ DART/trunk/obs_def/obs_def_upper_atm_mod_slant_alex_original.f90	2017-12-13 16:33:39 UTC (rev 12197)
@@ -0,0 +1,643 @@
+! DART software - Copyright 2004 - 2013 UCAR. This open source software is
+! provided by UCAR, "as is", without charge, subject to all terms of use at
+! http://www.image.ucar.edu/DAReS/DART/DART_download
+!
+! $Id$
+
+! Fortran has a limit of 32 characters for variable names. Hence,
+! each column can be at most 32 characters wide.
+! xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy
+! BEGIN DART PREPROCESS KIND LIST
+! SAT_TEMPERATURE,                 KIND_TEMPERATURE,                COMMON_CODE
+! SAT_TEMPERATURE_ELECTRON,        KIND_TEMPERATURE_ELECTRON,       COMMON_CODE
+! SAT_TEMPERATURE_ION,             KIND_TEMPERATURE_ION,            COMMON_CODE
+! SAT_DENSITY_NEUTRAL_O3P,         KIND_DENSITY_NEUTRAL_O3P,        COMMON_CODE
+! SAT_DENSITY_NEUTRAL_O2,          KIND_DENSITY_NEUTRAL_O2,         COMMON_CODE
+! SAT_DENSITY_NEUTRAL_N2,          KIND_DENSITY_NEUTRAL_N2,         COMMON_CODE
+! SAT_DENSITY_NEUTRAL_N4S,         KIND_DENSITY_NEUTRAL_N4S,        COMMON_CODE
+! SAT_DENSITY_NEUTRAL_NO,          KIND_DENSITY_NEUTRAL_NO,         COMMON_CODE
+! SAT_DENSITY_NEUTRAL_N2D,         KIND_DENSITY_NEUTRAL_N2D,        COMMON_CODE
+! SAT_DENSITY_NEUTRAL_N2P,         KIND_DENSITY_NEUTRAL_N2P,        COMMON_CODE
+! SAT_DENSITY_NEUTRAL_H,           KIND_DENSITY_NEUTRAL_H,          COMMON_CODE
+! SAT_DENSITY_NEUTRAL_HE,          KIND_DENSITY_NEUTRAL_HE,         COMMON_CODE
+! SAT_DENSITY_NEUTRAL_CO2,         KIND_DENSITY_NEUTRAL_CO2,        COMMON_CODE
+! SAT_DENSITY_NEUTRAL_O1D,         KIND_DENSITY_NEUTRAL_O1D,        COMMON_CODE
+! SAT_DENSITY_ION_O4SP,            KIND_DENSITY_ION_O4SP,           COMMON_CODE
+! SAT_DENSITY_ION_O2P,             KIND_DENSITY_ION_O2P,            COMMON_CODE
+! SAT_DENSITY_ION_N2P,             KIND_DENSITY_ION_N2P,            COMMON_CODE
+! SAT_DENSITY_ION_NP,              KIND_DENSITY_ION_NP,             COMMON_CODE
+! SAT_DENSITY_ION_NOP,             KIND_DENSITY_ION_NOP,            COMMON_CODE
+! SAT_DENSITY_ION_O2DP,            KIND_DENSITY_ION_O2DP,           COMMON_CODE
+! SAT_DENSITY_ION_O2PP,            KIND_DENSITY_ION_O2PP,           COMMON_CODE
+! SAT_DENSITY_ION_HP,              KIND_DENSITY_ION_HP,             COMMON_CODE
+! SAT_DENSITY_ION_HEP,             KIND_DENSITY_ION_HEP,            COMMON_CODE
+! SAT_DENSITY_ION_E,               KIND_DENSITY_ION_E,              COMMON_CODE
+! SAT_VELOCITY_U,                  KIND_VELOCITY_U,                 COMMON_CODE
+! SAT_VELOCITY_V,                  KIND_VELOCITY_V,                 COMMON_CODE
+! SAT_VELOCITY_W,                  KIND_VELOCITY_W,                 COMMON_CODE
+! SAT_VELOCITY_U_ION,              KIND_VELOCITY_U_ION,             COMMON_CODE
+! SAT_VELOCITY_V_ION,              KIND_VELOCITY_V_ION,             COMMON_CODE
+! SAT_VELOCITY_W_ION,              KIND_VELOCITY_W_ION,             COMMON_CODE
+! SAT_VELOCITY_VERTICAL_O3P,       KIND_VELOCITY_VERTICAL_O3P,      COMMON_CODE
+! SAT_VELOCITY_VERTICAL_O2,        KIND_VELOCITY_VERTICAL_O2,       COMMON_CODE
+! SAT_VELOCITY_VERTICAL_N2,        KIND_VELOCITY_VERTICAL_N2,       COMMON_CODE
+! SAT_VELOCITY_VERTICAL_N4S,       KIND_VELOCITY_VERTICAL_N4S,      COMMON_CODE
+! SAT_VELOCITY_VERTICAL_NO,        KIND_VELOCITY_VERTICAL_NO,       COMMON_CODE
+! SAT_F107,                        KIND_1D_PARAMETER,               COMMON_CODE
+! SAT_RHO,                         KIND_DENSITY
+! GPS_PROFILE,                     KIND_ELECTRON_DENSITY,           COMMON_CODE
+! GND_GPS_VTEC,		           KIND_GND_GPS_VTEC
+! CHAMP_DENSITY,                   KIND_DENSITY
+! MIDAS_TEC,                       KIND_VERTICAL_TEC
+! SSUSI_O_N2_RATIO,                KIND_O_N2_COLUMN_DENSITY_RATIO
+! GPS_VTEC_EXTRAP,                 KIND_VERTICAL_TEC,               COMMON_CODE
+! END DART PREPROCESS KIND LIST
+
+! BEGIN DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
+!  use obs_def_upper_atm_mod, only : get_expected_upper_atm_density
+!  use obs_def_upper_atm_mod, only : get_expected_gnd_gps_vtec
+!  use obs_def_upper_atm_mod, only : get_expected_slant_tec
+!  use obs_def_upper_atm_mod, only : get_expected_O_N2_ratio
+! END DART PREPROCESS USE OF SPECIAL OBS_DEF MODULE
+
+! BEGIN DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
+! case(SAT_RHO) 
+!      call get_expected_upper_atm_density(state, location, obs_val, istatus)
+! case(CHAMP_DENSITY) 
+!      call get_expected_upper_atm_density(state, location, obs_val, istatus)
+! case(SLANT_TEC) 
+!      call get_expected_slant_tec(state, tx_loc, rx_loc, obs_val, istatus)
+! case(GND_GPS_VTEC)
+!      call get_expected_gnd_gps_vtec(state, location, obs_val, istatus)
+! case(SSUSI_O_N2_RATIO)
+!      call get_expected_O_N2_ratio(state, location, obs_val, istatus)
+! END DART PREPROCESS GET_EXPECTED_OBS_FROM_DEF
+
+! BEGIN DART PREPROCESS READ_OBS_DEF
+! case(SAT_RHO) 
+!      continue
+! case(CHAMP_DENSITY) 
+!      continue
+! case(MIDAS_TEC) 
+!      continue
+! case(GND_GPS_VTEC)
+!      continue
+! case(SSUSI_O_N2_RATIO)
+!      continue
+! END DART PREPROCESS READ_OBS_DEF
+
+! BEGIN DART PREPROCESS WRITE_OBS_DEF
+! case(SAT_RHO) 
+!      continue
+! case(CHAMP_DENSITY) 
+!      continue
+! case(MIDAS_TEC) 
+!      continue
+! case(GND_GPS_VTEC)

More information about the Dart-dev mailing list