[Dart-dev] DART/branches Revision: 11128

[dart at ucar.edu]

mizzi at ucar.edu
2017-02-22 10:42:10 -0700 (Wed, 22 Feb 2017)
37
APM: Update WRF-Chem/DART repository



Deleted: DART/branches/mizzi/models/wrf_chem/run_scripts/RUN_PERT_CHEM/EMISS_PERT/perturb_chem_emiss.f90
===================================================================
--- DART/branches/mizzi/models/wrf_chem/run_scripts/RUN_PERT_CHEM/EMISS_PERT/perturb_chem_emiss.f90	2017-02-22 17:18:18 UTC (rev 11127)
+++ DART/branches/mizzi/models/wrf_chem/run_scripts/RUN_PERT_CHEM/EMISS_PERT/perturb_chem_emiss.f90	2017-02-22 17:42:10 UTC (rev 11128)
@@ -1,383 +0,0 @@
-!
-! code to perturb the wrfchem emission files
-!
-! ifort -C perturb_chem_emiss.f90 -o perturb_chem_emiss.exe -lgfortran -lnetcdff -lnetcdf
-!
-          program main
-             implicit none
-             integer,parameter                        :: nx=100
-             integer,parameter                        :: ny=40
-             integer,parameter                        :: nz=33
-             integer,parameter                        :: nz_chem=11
-             integer,parameter                        :: nchem_spc=39
-             integer,parameter                        :: nfire_spc=34
-             integer,parameter                        :: nbio_spc=1
-             integer                                  :: unit,isp,nseed,idate,itime,icnt
-             integer,allocatable,dimension(:)         :: seed
-             integer,dimension(8)                     :: values
-             real                                     :: pi,ran1,ran2,tr_mean,tr_stdev,ens_member
-             real                                     :: z_stdn
-             real,allocatable,dimension(:,:)          :: chem_data2d
-             real,allocatable,dimension(:,:,:)        :: chem_data3d
-             real                                     :: z_ran,y_ran
-             character(len=5)                         :: czone
-             character(len=8)                         :: cdate
-             character(len=10)                        :: ctime
-             character(len=150)                       :: wrfchemi,wrffirechemi,wrfbiochemi
-             character(len=150),dimension(nchem_spc)  :: ch_chem_spc 
-             character(len=150),dimension(nfire_spc)  :: ch_fire_spc 
-             character(len=150),dimension(nbio_spc)   :: ch_bio_spc 
-             logical                                  :: pert_chem,pert_fire,pert_bio
-             namelist /perturb_chem_emiss_nml/idate,ens_member,tr_mean,tr_stdev,wrfchemi, &
-                       wrffirechemi,wrfbiochemi,pert_chem,pert_fire,pert_bio
-!
-! Assign constants
-             pi=4.*atan(1.)
-             z_stdn=2.58     ! 99%
-             z_stdn=1.96     ! 95%
-!
-! Read namelist
-             unit=20
-             open(unit=unit,file='perturb_chem_emiss_nml.nl',form='formatted', &
-             status='old',action='read')
-             read(unit,perturb_chem_emiss_nml)
-             close(unit)
-!             print *, 'date         ',idate
-!             print *, 'ens_member   ',ens_member
-!             print *, 'tr_mean      ',tr_mean
-!             print *, 'tr_stdev     ',tr_stdev
-!             print *, 'wrfchemi     ',trim(wrfchemi)
-!             print *, 'wrffirechemi ',trim(wrffirechemi)
-!             print *, 'wrfbiochemi  ',trim(wrfbiochemi)
-!             print *, 'pert_chem    ',pert_chem
-!             print *, 'pert_fire    ',pert_fire
-!             print *, 'pert_bio     ',pert_bio
-!
-! Assign emission species names
-             ch_chem_spc(1)='E_CO'
-             ch_chem_spc(2)='E_CO02'
-             ch_chem_spc(3)='E_CO03'
-             ch_chem_spc(4)='E_CO04'
-             ch_chem_spc(5)='E_CO05'
-             ch_chem_spc(6)='E_CO06'
-             ch_chem_spc(7)='E_CO07'
-             ch_chem_spc(8)='E_CO08'
-             ch_chem_spc(9)='E_CO09'
-             ch_chem_spc(10)='E_CO10'
-             ch_chem_spc(11)='E_CO11'
-             ch_chem_spc(12)='E_CO12'
-             ch_chem_spc(13)='E_CO13'
-             ch_chem_spc(14)='E_CO14'
-             ch_chem_spc(15)='E_NO2'
-             ch_chem_spc(16)='E_BIGALK'
-             ch_chem_spc(17)='E_BIGENE'
-             ch_chem_spc(18)='E_C2H4'
-             ch_chem_spc(19)='E_C2H5OH'
-             ch_chem_spc(20)='E_C2H6'
-             ch_chem_spc(21)='E_C3H6'
-             ch_chem_spc(22)='E_C3H8'
-             ch_chem_spc(23)='E_CH2O'
-             ch_chem_spc(24)='E_CH3CHO'
-             ch_chem_spc(25)='E_CH3COCH3'
-             ch_chem_spc(26)='E_CH3OH'
-             ch_chem_spc(27)='E_MEK'
-             ch_chem_spc(28)='E_SO2'
-             ch_chem_spc(29)='E_TOLUENE'
-             ch_chem_spc(30)='E_NH3'
-             ch_chem_spc(31)='E_ISOP'
-             ch_chem_spc(32)='E_C10H16'
-             ch_chem_spc(33)='E_XNO'
-             ch_chem_spc(34)='E_XNO2'
-             ch_chem_spc(35)='E_sulf'
-             ch_chem_spc(36)='E_PM_25'
-             ch_chem_spc(37)='E_PM_10'
-             ch_chem_spc(38)='E_OC'
-             ch_chem_spc(39)='E_BC'
-!