[Dart-dev] DART/branches Revision: 11131

[dart at ucar.edu]

mizzi at ucar.edu
2017-02-22 11:56:31 -0700 (Wed, 22 Feb 2017)
34
Update WRF-Chem/DART repository.




Modified: DART/branches/mizzi/observations/MOPITT_CO/mopitt_ascii_to_obs.f90
===================================================================
--- DART/branches/mizzi/observations/MOPITT_CO/mopitt_ascii_to_obs.f90	2017-02-22 18:20:13 UTC (rev 11130)
+++ DART/branches/mizzi/observations/MOPITT_CO/mopitt_ascii_to_obs.f90	2017-02-22 18:56:31 UTC (rev 11131)
@@ -685,7 +685,7 @@
            enddo
 !              print *, 'nlvls_trc ',nlvls_trc
 !              print *, 'SV ',SV_cov(:)
-!          
+!        
            call mat_transpose(U_cov,UT_cov,nlvls,nlvls)
            call mat_transpose(VT_cov,V_cov,nlvls,nlvls)
            call vec_to_mat(SV_cov,SV,nlvls)
@@ -895,12 +895,13 @@
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 !
 ! Set vertical for levels (irot=0) or modes (irot=1)
-        irot=1
-        nlvls_fix=nlvls_trc
         if(trim(MOPITT_CO_retrieval_type).eq.'RAWR' .or. &
         trim(MOPITT_CO_retrieval_type).eq.'RETR') then
            irot=0
            nlvls_fix=xg_nlvls(i,j)
+        else
+           irot=1
+           nlvls_fix=nlvls_trc
         endif
         do k=1,nlvls_fix
 !

Deleted: DART/branches/mizzi/observations/MOPITT_CO/mopitt_ascii_to_obs_RETR_CPSR_SUPR.f90
===================================================================
--- DART/branches/mizzi/observations/MOPITT_CO/mopitt_ascii_to_obs_RETR_CPSR_SUPR.f90	2017-02-22 18:20:13 UTC (rev 11130)
+++ DART/branches/mizzi/observations/MOPITT_CO/mopitt_ascii_to_obs_RETR_CPSR_SUPR.f90	2017-02-22 18:56:31 UTC (rev 11131)
@@ -1,1347 +0,0 @@
-! 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_mopitt_obs_sequence
-
-! <next few lines under version control, do not edit>
-! $URL$
-! $Id$
-! $Revision$
-! $Date$
-
-!=============================================
-! MOPITT CO retrieval 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 obs_def_mopitt_mod, only :  set_obs_def_mopitt_co
-
-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, 	&