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

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -298 +298 @@
                                                                                   
     USE control_parameters,                                                    &  
-        ONLY:  air_chemistry, bc_radiation_l, bc_radiation_n, bc_radiation_r,  &
-               bc_radiation_s                
+        ONLY:  bc_radiation_l, bc_radiation_n, bc_radiation_r, bc_radiation_s
+
     USE indices,                                                               &  
-        ONLY:  nxl, nxr,  nxlg, nxrg, nyng, nysg, nzt                              
+        ONLY:  nxl, nxr, nzt
                                                                                   
-!    USE prognostic_equations_mod,                                             &
-
     USE arrays_3d,                                                             &     
         ONLY:  dzu                                                
+
     USE surface_mod,                                                           &
         ONLY:  bc_h                                                           
@@ -318 +317 @@
     INTEGER(iwp) ::  m                                                            !< running index surface elements.
     INTEGER(iwp) ::  lsp                                                          !< running index for chem spcs.
-    INTEGER(iwp) ::  lph                                                          !< running index for photolysis frequencies
 
 
@@ -469 +467 @@
     INTEGER ::  lsp_pr     !< running index for number of species in cs_names, cs_profiles etc
     INTEGER ::  lpr_lev    !< running index for profile level for each chem spcs. 
-    INTEGER ::  npr_lev    !< the next available profile lev
+!    INTEGER ::  npr_lev    !< the next available profile lev
 
 !-----------------
@@ -548 +546 @@
 !------------------------------------------------------------------------------!
    SUBROUTINE chem_init
-
-
-      USE control_parameters,                                                  &
-         ONLY: message_string, io_blocks, io_group, turbulent_inflow
-       
-      USE arrays_3d,                                                           &
-          ONLY: mean_inflow_profiles
 
       USE pegrid
@@ -917 +908 @@
       INTEGER(iwp) ::  lsp                                                          !< running index for chem spcs.
       INTEGER(iwp) ::  lph                                                          !< running index for photolysis frequencies
-      INTEGER                  :: k,m,istatf                                        
+      INTEGER                  :: istatf
       INTEGER,dimension(20)    :: istatus
       REAL(kind=wp),dimension(nzb+1:nzt,nspec)                :: tmp_conc           
@@ -926 +917 @@
      REAL(wp)                         ::  conv                                !< conversion factor
      REAL(wp), PARAMETER              ::  ppm2fr  = 1.0e-6_wp                 !< Conversion factor ppm to fraction
-     REAL(wp), PARAMETER              ::  pref_i  = 1._wp / 100000.0_wp       !< inverse reference pressure (1/Pa)
      REAL(wp), PARAMETER              ::  t_std   = 273.15_wp                 !< standard pressure (Pa)
      REAL(wp), PARAMETER              ::  p_std   = 101325.0_wp               !< standard pressure (Pa)
-     REAL(wp), PARAMETER              ::  r_cp    = 0.286_wp                  !< R / cp (exponent for potential temperature)
      REAL(wp), PARAMETER              ::  vmolcm  = 22.414e3_wp               !< Mole volume (22.414 l) in cm^{-3}
      REAL(wp), PARAMETER              ::  xna     = 6.022e23_wp               !< Avogadro number (molecules/mol)
@@ -1068 +1057 @@
    SUBROUTINE chem_check_data_output( var, unit, i, ilen, k )
 
-
-      USE control_parameters,                                                 &
-         ONLY: data_output, message_string
-
       IMPLICIT NONE
 
@@ -1077 +1062 @@
       CHARACTER (LEN=*) ::  var      !<
 
-      INTEGER(iwp) :: i, lsp
-      INTEGER(iwp) :: ilen
-      INTEGER(iwp) :: k
+      INTEGER(iwp) ::  i, ilen, k, lsp
 
       CHARACTER(len=16)    ::  spec_name
@@ -1278 +1261 @@
     INTEGER(iwp) ::  m                  !< running index surface type
     INTEGER(iwp) :: lsp                 !< running index for chem spcs
-    INTEGER(iwp) :: lsp_2               !< it looks like redundent .. will be delted ..bK
   
     IF ( mode == 'allocate' )  THEN
        DO lsp = 1, nspec
           IF (TRIM(variable(4:)) == TRIM(chem_species(lsp)%name)) THEN
-!                   lsp_2 = lsp 
              chem_species(lsp)%conc_av = 0.0_wp
-             
           ENDIF
        ENDDO
@@ -1293 +1273 @@
        DO lsp = 1, nspec
           IF (TRIM(variable(4:)) == TRIM(chem_species(lsp)%name)) THEN
-!                   lsp_2 = lsp 
              DO  i = nxlg, nxrg
                 DO  j = nysg, nyng
@@ -1336 +1315 @@
        DO lsp = 1, nspec
           IF (TRIM(variable(4:)) == TRIM(chem_species(lsp)%name)) THEN
-!                   lsp_2 = lsp 
              DO  i = nxlg, nxrg
                 DO  j = nysg, nyng