Changeset 2932 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Mar 26, 2018 9:39:22 AM (6 years ago)

Author:

maronga

Message:

renamed all Fortran NAMELISTS

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! renamed chemistry_par to chemistry_parameters
+! 
+! 2894 2018-03-15 09:17:58Z Giersch
 ! Calculations of the index range of the subdomain on file which overlaps with
 ! the current subdomain are already done in read_restart_data_mod,
@@ -600 +603 @@
 !
 !-- Set initial concentration of profiles prescribed by parameters cs_profile
-!-- and cs_heights in the namelist &chemistry_par
+!-- and cs_heights in the namelist &chemistry_parameters
 !-- (todo (FK): chem_init_profiles not ready yet, has some bugs)
 !     CALL chem_init_profiles
@@ -780 +783 @@
 ! Description:
 ! ------------
-!> Subroutine defining parin for &chemistry_par for chemistry model
+!> Subroutine defining parin for &chemistry_parameters for chemistry model
 !------------------------------------------------------------------------------!
    SUBROUTINE chem_parin
@@ -797 +800 @@
       REAL(wp), DIMENSION(nmaxfixsteps) ::   my_steps   !< List of fixed timesteps   my_step(1) = 0.0 automatic stepping
 
-      NAMELIST /chemistry_par/   bc_cs_b,                                &
-                                 bc_cs_t,                                &
-                                 call_chem_at_all_substeps,              &
-                                 chem_debug0,                            &
-                                 chem_debug1,                            &
-                                 chem_debug2,                            &
-                                 chem_gasphase_on,                       &
-                                 cs_heights,                             &
-                                 cs_name,                                &
-                                 cs_profile,                             &
-                                 cs_profile_name,                        & 
-                                 cs_surface,                             &
-                                 emiss_factor_main,                      &
-                                 emiss_factor_side,                      &                      
-                                 icntrl,                                 &
-                                 main_street_id,                         &
-                                 max_street_id,                          &
-                                 my_steps,                               &
-                                 rcntrl,                                 &
-                                 side_street_id,                         &
-                                 photolysis_scheme,                      &
-                                 wall_csflux,                            &
-                                 cs_vertical_gradient,                   &
-                                 top_csflux,                             & 
-                                 surface_csflux,                         &
-                                 surface_csflux_name,                    &
-                                 cs_surface_initial_change,              &
-                                 cs_vertical_gradient_level
+      NAMELIST /chemistry_parameters/   bc_cs_b,                          &
+                                        bc_cs_t,                          &
+                                        call_chem_at_all_substeps,        &
+                                        chem_debug0,                      &
+                                        chem_debug1,                      &
+                                        chem_debug2,                      &
+                                        chem_gasphase_on,                 &
+                                        cs_heights,                       &
+                                        cs_name,                          &
+                                        cs_profile,                       &
+                                        cs_profile_name,                  & 
+                                        cs_surface,                       &
+                                        emiss_factor_main,                &
+                                        emiss_factor_side,                &                      
+                                        icntrl,                           &
+                                        main_street_id,                   &
+                                        max_street_id,                    &
+                                        my_steps,                         &
+                                        rcntrl,                           &
+                                        side_street_id,                   &
+                                        photolysis_scheme,                &
+                                        wall_csflux,                      &
+                                        cs_vertical_gradient,             &
+                                        top_csflux,                       & 
+                                        surface_csflux,                   &
+                                        surface_csflux_name,              &
+                                        cs_surface_initial_change,        &
+                                        cs_vertical_gradient_level
                              
 !-- analogue to chem_names(nspj) we could invent chem_surfaceflux(nspj) and chem_topflux(nspj)
 !-- so this way we could prescribe a specific flux value for each species
-!>  chemistry_par for initial profiles
+!>  chemistry_parameters for initial profiles
 !>  cs_names = 'O3', 'NO2', 'NO', ...   to set initial profiles)
 !>  cs_heights(1,:) = 0.0, 100.0, 500.0, 2000.0, .... (height levels where concs will be prescribed for O3)
@@ -839 +842 @@
 !--   Read chem namelist   
 !--   (todo: initialize these parameters in declaration part, do this for
-!--          all chemistry_par namelist parameters)
+!--          all chemistry_parameters namelist parameters)
       icntrl    = 0
       rcntrl    = 0.0_wp
@@ -851 +854 @@
       REWIND ( 11 )
       line = ' '
-      DO   WHILE ( INDEX( line, '&chemistry_par' ) == 0 )
+      DO   WHILE ( INDEX( line, '&chemistry_parameters' ) == 0 )
          READ ( 11, '(A)', END=10 )  line
       ENDDO
@@ -857 +860 @@
 !
 !--   Read chemistry namelist
-      READ ( 11, chemistry_par )                          
+      READ ( 11, chemistry_parameters )                          
 !
 !--   Enable chemistry model
@@ -1773 +1776 @@
 ! 
 ! !
-! !-- Writing out input parameters that are not part of chemistry_par namelist
-! !-- (namelist parameters are anyway read in again in case of restart)
+! !-- Writing out input parameters that are not part of chemistry_parameters 
+! !-- namelist (namelist parameters are anyway read in again in case of restart)
 !     DO lsp = 1, nvar
 !        CALL wrd_write_string( 'conc_pr_init_'//chem_species(lsp)%name )