Ignore:
Timestamp:
Dec 10, 2018 7:05:46 AM (2 years ago)
Author:
raasch
Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:
1 edited

Legend:

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

    r3298 r3614  
    2626! -----------------
    2727! $Id$
     28! unused variables removed
     29!
     30! 3298 2018-10-02 12:21:11Z kanani
    2831! Moved USE radiation_model_mod from MODULE section into Subroutine
    2932! in order to use constant photolysis without radiation module (forkel)
     
    136139
    137140
    138     REAL(wp) :: time_photolysis = 0.0_wp,         & !< time since last call of photolysis code
    139                 dt_photolysis = 0.0_wp,           & !< hotolysis model timestep
    140                 skip_time_do_photolysis = 0.0_wp    !< Radiation model is not called before this time
    141 
    142141    REAL(wp)     :: cosz = 0.7_wp                   !< cosine of Zenith angle (45 deg, if not specified otherwise)
    143142
Note: See TracChangeset for help on using the changeset viewer.