Changeset 3458 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Oct 30, 2018 2:51:23 PM (6 years ago)

Author:

kanani

Message:

Reintegrated fixes/changes from branch chemistry

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! from chemistry branch r3443, banzhafs, Russo:
+! Uncommented lines on dimension of surface_fractions
+! Removed par_emis_time_factor variable, moved to chem_emissions_mod
+! Initialized nspec and other emission variables at time of declaration
+! Modified EXPERT mode to PRE-PROCESSED mode
+! Introduced Chemistry static netcdf file
+! Added the routine for reading-in netcdf data for chemistry
+! Added routines to get_variable interface specific for chemistry files
+! 
+! 3429 2018-10-25 13:04:23Z knoop
 ! add default values of origin_x/y/z
 ! 
@@ -368 +378 @@
 
        !-DIMENSIONS
-       INTEGER(iwp)                                 :: nspec                     !< number of chem species for which emission values are provided
-       INTEGER(iwp)                                 :: ncat                      !< number of emission categories
-       INTEGER(iwp)                                 :: nvoc                      !< number of VOCs components
-       INTEGER(iwp)                                 :: npm                       !< number of PMs components
+       INTEGER(iwp)                                 :: nspec=0                   !< number of chem species for which emission values are provided
+       INTEGER(iwp)                                 :: ncat=0                    !< number of emission categories
+       INTEGER(iwp)                                 :: nvoc=0                    !< number of VOCs components
+       INTEGER(iwp)                                 :: npm=0                     !< number of PMs components
        INTEGER(iwp)                                 :: nnox=2                    !< number of NOx components: NO and NO2
        INTEGER(iwp)                                 :: nsox=2                    !< number of SOx components: SO and SO4
@@ -391 +401 @@
        INTEGER(iwp),ALLOCATABLE, DIMENSION(:)       :: species_index             !< Index of emission chem species
 
-       REAL(wp), DIMENSION(24)                      :: par_emis_time_factor      !< time factors 
-                                                                                 !  for the parameterized mode: these are fixed for each hour
-                                                                                 !  of a single day.
        REAL(wp),ALLOCATABLE, DIMENSION(:)           :: xm                        !< Molecular masses of emission chem species
 
@@ -928 +935 @@
          ENDDO
 
-          !Assign Constant Values of time factors:
-          emt_att%par_emis_time_factor( : ) = (/ 0.01, 0.01, 0.01, 0.02, 0.03, 0.07, 0.09, 0.09, 0.05, 0.03, 0.03, 0.03, &
-                                                 0.03, 0.03, 0.03, 0.04, 0.05, 0.09, 0.09, 0.09, 0.04, 0.02, 0.01, 0.01 /)
 
        !> DEFAULT AND PRE-PROCESSED MODE