Changeset 3241 for palm/trunk/SOURCE/chem_photolysis_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/chem_photolysis_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/chem_photolysis_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variables commented
+! 
+! 2766 2018-01-22 17:17:47Z kanani
 ! Removed preprocessor directive __chem
 ! 
 ! 2718 2018-01-02 08:49:38Z maronga
 ! Initial revision
-!
-! 
 !
 !
@@ -37 +38 @@
 ! --------
 ! @author Renate Forkel
-!
 !
 !------------------------------------------------------------------------------!
@@ -143 +143 @@
 
 
-    REAL(wp) :: time_photolysis = 0.0_wp,         & !< time since last call of photolysis code
-                dt_photolysis = 0.0_wp,           & !< hotolysis model timestep
-                skip_time_do_photolysis = 0.0_wp    !< Radiation model is not called before this time
+!    REAL(wp) :: time_photolysis = 0.0_wp,         & !< time since last call of photolysis code
+!                dt_photolysis = 0.0_wp,           & !< hotolysis model timestep
+!                skip_time_do_photolysis = 0.0_wp    !< Radiation model is not called before this time
 
     REAL(wp)     :: cosz = 0.7_wp                   !< cosine of Zenith angle (45 deg, if not specified otherwise)