[Dart-dev] DART/branches Revision: 11449

[dart at ucar.edu]

mizzi at ucar.edu
2017-04-08 08:43:56 -0600 (Sat, 08 Apr 2017)
42
Add obs converters for PANDA surface obs




Added: DART/branches/mizzi/observations/PANDA/panda_co_ascii_to_obs.f90
===================================================================
--- DART/branches/mizzi/observations/PANDA/panda_co_ascii_to_obs.f90	                        (rev 0)
+++ DART/branches/mizzi/observations/PANDA/panda_co_ascii_to_obs.f90	2017-04-08 14:43:56 UTC (rev 11449)
@@ -0,0 +1,376 @@
+! Data Assimilation Research Testbed -- DART
+! Copyright 2004-2007, Data Assimilation Research Section
+! University Corporation for Atmospheric Research
+! Licensed under the GPL -- www.gpl.org/licenses/gpl.html
+!
+   program create_panda_co_obs_sequence
+!
+! <next few lines under version control, do not edit>
+! $URL$
+! $Id$
+! $Revision$
+! $Date$
+!
+!=============================================
+! PANDA SURFACE AQ obs
+! Based from create_obs_sequence.f90
+!=============================================
+!
+      use    utilities_mod, only :    timestamp, 		&
+                                      register_module, 		&
+                                      open_file, 		&
+                                      close_file, 		&
+                                      initialize_utilities, 	&
+                                      open_file, 		&
+                                      close_file, 		&
+                                      find_namelist_in_file,  	&
+                                      check_namelist_read,    	&
+                                      error_handler, 		&
+                                      E_ERR,			& 
+                                      E_WARN,			& 
+                                      E_MSG, 			&
+                                      E_DBG
+!
+      use obs_sequence_mod, only :    obs_sequence_type, 	&
+                                      interactive_obs, 		&
+                                      write_obs_seq, 		&
+                                      interactive_obs_sequence,  &
+                                      static_init_obs_sequence,  &
+                                      init_obs_sequence,         &
+                                      init_obs,                  &
+                                      set_obs_values,            &
+                                      set_obs_def,               &
+                                      set_qc,                    &
+                                      set_qc_meta_data,          &
+                                      set_copy_meta_data,        &
+                                      insert_obs_in_seq,         &
+                                      obs_type
+!                    
+      use obs_def_mod, only :         set_obs_def_kind,          &
+                                      set_obs_def_location,      &
+                                      set_obs_def_time,          &
+                                      set_obs_def_key,           &
+                                      set_obs_def_error_variance,&
+                                      obs_def_type,              &
+                                      init_obs_def,              &
+                                      get_obs_kind
+!
+      use assim_model_mod, only :     static_init_assim_model
+      use location_mod, only :        location_type, 		&
+                                      set_location
+      use time_manager_mod, only :    set_date, 			&
+                                      set_calendar_type, 	&
+                                      time_type, 		&
+                                      get_time
+! 
+      use obs_kind_mod, only :        PANDA_CO, 		&
+                                      get_kind_from_menu
+!
+      use random_seq_mod, only :      random_seq_type, 	&
+                                      init_random_seq, 	&
+                                      random_uniform
+!
+      use sort_mod, only :            index_sort
+!
+      implicit none
+!
+! version controlled file description for error handling, do not edit                          
+      character(len=128), parameter :: &
+      source   = "$URL$", &
+      revision = "$Revision$", &
+      revdate  = "$Date$"
+!
+      type(obs_sequence_type)      :: seq
+      type(obs_type)               :: obs
+      type(obs_type)               :: obs_old
+      type(obs_def_type)           :: obs_def
+      type(location_type)          :: obs_location
+      type(time_type)              :: obs_time
+      integer,parameter            :: max_num_obs=2000000
+      integer,parameter            :: indx_max=2000000
+      integer,parameter            :: num_copies=1
+      integer,parameter            :: num_qc=1
+      integer,parameter            :: fileid=88
+      integer                      :: icopy,iunit,status,idx,indx,jndx,ierr,nndx
+      integer                      :: year0, month0, day0, hour0, min0, sec0
+      integer                      :: year1, month1, day1, hour1, min1, sec1