Changeset 4887


Ignore:
Timestamp:
Feb 26, 2021 4:22:32 PM (7 months ago)
Author:
banzhafs
Message:

Unnecessary comments removed from chemistry_model_mod and chem_emissions_mod

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chem_emissions_mod.f90

    r4828 r4887  
    2626! -----------------
    2727! $Id$
     28! Unnecessary comments removed
     29!
     30! 4828 2021-01-05 11:21:41Z Giersch
    2831! Implementation of downward facing USM and LSM surfaces
    29 ! 
     32!
    3033! 4559 2020-06-11 08:51:48Z raasch
    3134! file re-formatted to follow the PALM coding standard
    3235!
    3336! 4481 2020-03-31 18:55:54Z maronga
    34 ! Implemented on-demand read mode for LOD 2 (ECC)
     37! Implemented on-demand read mode for LOD 2 NB
    3538!  - added following module global variables
    3639!    - input_file_chem (namesake in netcdf_data_input_mod is local)
     
    126129!>  MODULE for reading-in Chemistry Emissions data
    127130!>
    128 !> @todo Rename nspec to n_emis to avoid inteferece with nspec from chem_gasphase_mod
    129 !> @todo Check_parameters routine should be developed: for now it includes just one condition
    130 !> @todo Use of Restart files not contempled at the moment
    131 !> @todo revise indices of files read from the netcdf: preproc_emission_data and expert_emission_data
    132 !> @todo for now emission data may be passed on a singular vertical level: need to be more flexible
    133 !> @todo fill/activate restart option in chem_emissions_init
    134 !> @todo discuss dt_emis
    135131!> @note <Enter notes on the module>
    136132!> @bug  <Enter known bugs here>
     
    169165
    170166!
    171 !-- 20200203 (ECC)
     167!-- 20200203 NB
    172168!-- Added new palm_date_time_mod for on-demand emission reading
    173169
     
    181177
    182178!
    183 !-- 20200203 (ECC) - variable unused
    184 !    CHARACTER (LEN=80) ::  filename_emis           !< Variable for the name of the netcdf input file
    185 
    186 !
    187 !-- 20200203 (ECC) new variables for on-demand read mode
     179!-- 20200203 NB new variables for on-demand read mode
    188180
    189181    CHARACTER(LEN=*),   PARAMETER   :: input_file_chem = 'PIDS_CHEM' !< chemistry file
     
    210202    SAVE
    211203
    212 ! !
    213 ! !-- Checks Input parameters
    214 !     INTERFACE chem_emissions_check_parameters
    215 !        MODULE PROCEDURE chem_emissions_check_parameters
    216 !     END INTERFACE chem_emissions_check_parameters
    217204!
    218205!-- Matching Emissions actions
     
    232219
    233220!
    234 !-- 20200203 (ECC) new interfaces for on-demand mode
     221!-- 20200203 NB new interfaces for on-demand mode
    235222
    236223!
     
    246233
    247234!
    248 !-- 20200203 (ECC) update public routines
    249 
    250 !    PUBLIC chem_emissions_init, chem_emissions_match, chem_emissions_setup
     235!-- 20200203 NB update public routines
    251236
    252237    PUBLIC chem_emissions_init, chem_emissions_match, chem_emissions_setup,                        &
     
    257242
    258243 CONTAINS
    259 
    260 ! !------------------------------------------------------------------------------------------------!
    261 ! ! Description:
    262 ! ! ------------
    263 ! !> Routine for checking input parameters
    264 ! !------------------------------------------------------------------------------------------------!
    265 !  SUBROUTINE chem_emissions_check_parameters
    266 !
    267 !     IMPLICIT NONE
    268 !
    269 !     TYPE(chem_emis_att_type) ::  emt
    270 !
    271 ! !
    272 ! !-- Check if species count matches the number of names
    273 ! !-- passed for the chemiscal species
    274 !
    275 !     IF  ( SIZE(emt%species_name) /= emt%n_emiss_species  )  THEN
    276 ! !    IF  ( SIZE(emt%species_name) /= emt%nspec  )  THEN
    277 !
    278 !        message_string = 'Numbers of input emission species names and number of species'     //      &
    279 !                          'for which emission values are given do not match'
    280 !        CALL message( 'chem_emissions_check_parameters', 'CM0437', 2, 2, 0, 6, 0 )
    281 !
    282 !     ENDIF
    283 !
    284 !  END SUBROUTINE chem_emissions_check_parameters
    285244
    286245
     
    794753
    795754    INTEGER(iwp) :: ispec                        !< running index
    796 
    797 !
    798 !-- Actions for initial runs
    799 !  IF  (  TRIM( initializing_actions ) /= 'read_restart_data' )  THEN
    800 !--    ...
    801 !
    802 !
    803 !-- Actions for restart runs
    804 !  ELSE
    805 !--    ...
    806 !
    807 !  ENDIF
    808755
    809756
     
    10931040                                             hyp(nzb:nzt+1)                            ! Pa
    10941041
    1095 ! (ecc) for reference
    1096 !                   m**3/Nmole               (J/mol)*K^-1           K                      Pa
    1097 !             conv_to_ratio(nzb:nzt+1,j,i) = ( (Rgas * tmp_temp(nzb:nzt+1,j,i)) / ((hyp(nzb:nzt+1))) )
    1098 
    10991042          ENDDO
    11001043       ENDDO
    11011044
    11021045
    1103 ! (ecc) moved initialization immediately after allocation
    1104 !
    1105 !-- Initialize
    1106 
    1107 !       emis_distribution(:,nys:nyn,nxl:nxr,:) = 0.0_wp
    1108 
    1109 
    11101046!
    11111047!-- LOD 2 (PRE-PROCESSED MODE)
    11121048
    11131049       IF  ( emiss_lod == 2 )  THEN
    1114 
    1115 ! for reference (ecc)
    1116 !       IF  ( TRIM( mode_emis ) == "PRE-PROCESSED" )  THEN
    11171050
    11181051!
     
    11301063!--     LOD 1 (DEFAULT MODE)
    11311064        ELSEIF  ( emiss_lod == 1 )  THEN
    1132 
    1133 ! for reference (ecc)
    1134 !       ELSEIF  ( TRIM( mode_emis ) == "DEFAULT" )  THEN
    11351065
    11361066!
     
    12321162
    12331163
    1234 ! for reference (ecc)
    1235 !       ELSEIF  ( TRIM( mode_emis ) == "PARAMETERIZED" )  THEN
    1236 
    12371164!
    12381165!--       Assign constant values of time factors, diurnal profile for traffic sector
     
    12571184!--  Emission distribution calculation
    12581185
    1259 !
    1260 !--    LOD 0 (PARAMETERIZED mode)
    12611186       IF  ( emiss_lod == 0 )  THEN
    1262 
    1263 ! for reference (ecc)
    1264 !       IF  ( TRIM( mode_emis ) == "PARAMETERIZED" )  THEN
    12651187
    12661188          DO  ispec = 1, n_matched_vars
     
    12771199!--    LOD 1 (DEFAULT mode)
    12781200       ELSEIF  ( emiss_lod == 1 )  THEN
    1279 
    1280 ! for referene (ecc)
    1281 !       ELSEIF  ( TRIM( mode_emis ) == "DEFAULT" )  THEN
    12821201
    12831202!
     
    14481367       ELSEIF  ( emiss_lod == 2 )  THEN
    14491368
    1450 ! for reference (ecc)
    1451 !       ELSEIF  ( TRIM( mode_emis ) == "PRE-PROCESSED" )  THEN
    1452 
    14531369!
    14541370!--       Cycle over species: n_matched_vars represents the number of species in common between the
     
    14611377                                       * conversion_factor
    14621378
    1463 
    1464 !             emis_distribution(1,nys:nyn,nxl:nxr,ispec) =                                &
    1465 !                       emt(match_spec_input(ispec))%                                     &
    1466 !                           preproc_emission_data(index_hh,1,:,:) *   &
    1467 !                       conversion_factor
    14681379          ENDDO
    14691380
     
    14791390!--    Units of inputs are micromoles/m2/s
    14801391       IF  ( emiss_lod == 0 )  THEN
    1481 ! for reference (ecc)
    1482 !       IF  ( TRIM( mode_emis ) == "PARAMETERIZED" )  THEN
    14831392
    14841393          IF  (street_type_f%from_file)  THEN
     
    15771486                   ENDDO  ! ispec
    15781487
    1579 !
    1580 !-- If no street type is defined, then assign zero emission to all the species
    1581 ! (ecc) moved to front (for reference)
    1582 !                ELSE
    1583 !
    1584 !                   surf_lsm_h(0)%cssws(:,m) = 0.0_wp
    1585 
    15861488                ENDIF  ! street type
    15871489
     
    17751677!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
    17761678!!
    1777 !! 20200203 (ECC) - ON DEMAND EMISSION UPDATE MODE
     1679!! 20200203 NB - ON DEMAND EMISSION UPDATE MODE
    17781680!!
    17791681!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
     
    17931695
    17941696!
    1795 !-- 20200203 (ECC)
     1697!-- 20200203 NB
    17961698!
    17971699!--------------------------------------------------------------------------------------------------!
     
    18191721
    18201722!
    1821 !-- 20200203 (ECC)
     1723!-- 20200203 NB
    18221724!
    18231725!--------------------------------------------------------------------------------------------------!
     
    18501752
    18511753!
    1852 !-- 20200203 (ECC)
     1754!-- 20200203 NB
    18531755!
    18541756!--------------------------------------------------------------------------------------------------!
     
    19101812
    19111813!
    1912 !-- 20200203 (ECC)
     1814!-- 20200203 NB
    19131815!
    19141816!--------------------------------------------------------------------------------------------------!
     
    20921994
    20931995!
    2094 !-- 20200203 (ECC)
     1996!-- 20200203 NB
    20951997!
    20961998!--------------------------------------------------------------------------------------------------!
     
    21192021                        chem_emis_att%n_emiss_species )
    21202022!
    2121 !-  Backward compatibility for salsa_mod (ECC)
     2023!-  Backward compatibility for salsa_mod NB
    21222024    chem_emis_att%nspec = chem_emis_att%n_emiss_species
    21232025!
     
    21602062
    21612063!
    2162 !-- 20200203 (ECC)
     2064!-- 20200203 NB
    21632065!
    21642066!--------------------------------------------------------------------------------------------------!
     
    22142116
    22152117!
    2216 !-- 20200203 (ECC)
     2118!-- 20200203 NB
    22172119!
    22182120!--------------------------------------------------------------------------------------------------!
     
    23122214
    23132215!
    2314 !-- 20200203 (ECC)
     2216!-- 20200203 NB
    23152217!
    23162218!--------------------------------------------------------------------------------------------------!
     
    23952297
    23962298!
    2397 !-- 20200203 (ECC)
     2299!-- 20200203 NB
    23982300!
    23992301!--------------------------------------------------------------------------------------------------!
     
    24212323
    24222324!
    2423 !-- 20200203 (ECC)
     2325!-- 20200203 NB
    24242326!
    24252327!--------------------------------------------------------------------------------------------------!
     
    24582360
    24592361!
    2460 !-- 20200203 (ECC)
     2362!-- 20200203 NB
    24612363!
    24622364!--------------------------------------------------------------------------------------------------!
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r4881 r4887  
    2626! -----------------
    2727! $Id$
     28! Unnecessary comments removed
     29!
     30! 4881 2021-02-19 22:05:08Z forkel
    2831! removed unnecessarty namelist parameters and commented output statements
    2932! and cs_surface_initial_change
    30 !
    3133!
    3234! 4860 2021-02-01 08:10:59Z raasch
     
    19721974
    19731975!
    1974 !-- 20200203 (ECC)
    1975 !-- introduced additional interfaces for on-demand emission update
     1976!-- NB introduced additional interfaces for on-demand emission update
    19761977
    19771978!    USE chem_emissions_mod,                                                                        &
     
    19981999
    19992000!
    2000 !-- 20200203 (ECC)
    2001 !-- Calls specific emisisons initialization subroutines for legacy mode and on-demand mode
     2001!-- NB Calls specific emisisons initialization subroutines for legacy mode and on-demand mode
    20022002
    20032003!    IF ( emissions_anthropogenic )  CALL chem_emissions_init
     
    20572057    REAL(wp)     ::  flag              !< flag for masking topography/building grid points
    20582058!
    2059 !-- 20200203 ECC
    2060 !-- reads netcdf data only under legacy mode
     2059!-- NB reads netcdf data only under legacy mode
    20612060
    20622061!    IF ( emissions_anthropogenic )  THEN
     
    26582657
    26592658!
    2660 !-- (ECC) input check for emission read mode.
     2659!-- NB input check for emission read mode.
    26612660!--    legacy : business as usual (everything read / set up at start of run)
    26622661!--    new    : emission based on timestamp, and for lod2 data is loaded on an hourly basis
    26632662
    26642663!
    2665 !-- (ECC) handler for emiss_read_legacy_mode
     2664!-- NB handler for emiss_read_legacy_mode
    26662665!-- * emiss_read_legacy_mode is defaulted to TRUE
    26672666!-- * if emiss_read_legacy_mode is TRUE and LOD is 0 or 1,
Note: See TracChangeset for help on using the changeset viewer.