Ignore:
Timestamp:
Jun 25, 2020 9:53:58 AM (11 months ago)
Author:
raasch
Message:

further re-formatting to follow the PALM coding standard

File:
1 edited

Legend:

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

    r4559 r4577  
    2525! -----------------
    2626! $Id$
     27! further re-formatting to follow the PALM coding standard
     28!
     29! 4559 2020-06-11 08:51:48Z raasch
    2730! file re-formatted to follow the PALM coding standard
    2831!
     
    8992
    9093
    91 !   LOGICAL ::  unscheduled_photolysis_calls = .TRUE., & !< flag parameter indicating whether
    92 !                                                        !< additional calls of the photolysis code are allowed
    93 !               constant_albedo = .FALSE.,             & !< flag parameter indicating whether the
    94 !                                                        !< albedo may change depending on zenith
    95 !               force_photolysis_call = .FALSE.,       & !< flag parameter for unscheduled photolysis
    96 !                                                        !< calls
    97 !               photolysis = .FALSE.,                  & !< flag parameter indicating whether the
    98 !                                                        !< photolysis model is used
    99 !               sun_up    = .TRUE.,                    & !< flag parameter indicating whether the sun
    100 !                                                        !< is up or down
    101 !               photolysis = .TRUE.,                   & !< flag parameter indicing whether
    102 !                                                        !< photolysis shall be calculated
    103 !               sun_direction = .FALSE.                  !< flag parameter indicing whether solar
    104 !                                                        !< direction shall be calculated
    105 
     94!   LOGICAL ::  unscheduled_photolysis_calls = .TRUE., & !< flag parameter indicating whether additional calls of the photolysis
     95!                                                        !< code are allowed
     96!               constant_albedo = .FALSE.,             & !< flag parameter indicating whether the albedo may change depending on
     97!                                                        !< zenith
     98!               force_photolysis_call = .FALSE.,       & !< flag parameter for unscheduled photolysis calls
     99!               photolysis = .FALSE.,                  & !< flag parameter indicating whether the photolysis model is used
     100!               sun_up    = .TRUE.,                    & !< flag parameter indicating whether the sun is up or down
     101!               photolysis = .TRUE.,                   & !< flag parameter indicing whether photolysis shall be calculated
     102!               sun_direction = .FALSE.                  !< flag parameter indicing whether solar direction shall be calculated
     103
     104!
    106105!-- Parameters for constant photolysis frequencies
    107     INTEGER,PARAMETER :: nconst  = 15               !< available predefined photolysis prequencies
    108                                                     !< for constant
    109 
    110 ! Names for predefined fixed photolysis frequencies at zenith angle 0
     106    INTEGER,PARAMETER :: nconst  = 15               !< available predefined photolysis prequencies for constant
     107!
     108!-- Names for predefined fixed photolysis frequencies at zenith angle 0
    111109    CHARACTER(LEN=10), PARAMETER, DIMENSION(nconst) :: names_c =  (/                               &
    112110                     'J_O31D    ','J_O33P    ','J_NO2     ','J_HNO3    ','J_RCHO    ',             &
    113111                     'J         ','J         ','J         ','J         ','J         ',             &
    114112                     'J         ','J         ','J         ','J         ','J         ' /)
    115 ! Photolysis frequency at zenith angle 0 degrees in 1/s
     113!
     114!-- Photolysis frequency at zenith angle 0 degrees in 1/s
    116115    REAL(wp), PARAMETER, DIMENSION(nconst) :: phot0 =  (/                                          &
    117116                      2.489E-05_wp, 3.556E-04_wp, 8.89E-03_wp,5.334E-07_wp, 3.734E-05_wp,          &
    118117                      0.0000E00_wp, 0.0000E00_wp, 0.0000E00_wp,0.0000E00_wp, 0.0000E00_wp,         &
    119118                      0.0000E00_wp, 0.0000E00_wp, 0.0000E00_wp,0.0000E00_wp, 0.0000E00_wp /)
    120 
     119!
    121120!-- Parameters for simple photolysis frequencies from MCM (http://mcm.leeds.ac.uk/MCM)
    122121!-- Saunders et al., 2003, Atmos. Chem. Phys., 3, 161-180
    123122    INTEGER,PARAMETER :: nsimple = 15               !< available predefined photolysis prequencies for simple parameterisation
     123!
    124124!-- Names for simple photolysis frequencies parameterisation (
    125125    CHARACTER(LEN=10), PARAMETER, DIMENSION(nsimple) :: names_s =  (/                              &
     
    127127                     'J_NO3_B   ','J_HONO    ','J_HNO3    ','J_HCHO_A  ','J_HCHO_B  ',             &
    128128                     'J_CH3CHO  ','J         ','J         ','J         ','J_RCHO    ' /)
    129 
     129!
    130130!-- Species dependent parameters for simple photolysis frequencies from MCM
    131131!-- (http://mcm.leeds.ac.uk/MCM)
     
    136136                       7.344E-06_wp, 0.0000E00_wp, 0.0000E00_wp, 0.000E00_wp,  6.853E-05_wp /)
    137137
    138    REAL(wp), PARAMETER, DIMENSION(nconst) :: par_m =  (/                                           &
     138    REAL(wp), PARAMETER, DIMENSION(nconst) :: par_m =  (/                                          &
    139139                           1.743_wp,    0.298_wp,    0.723_wp,    0.244_wp,    0.168_wp,           &
    140140                           0.155_wp,    0.261_wp,    1.230_wp,    0.762_wp,    0.477_wp,           &
    141141                           1.202_wp,    0.000_wp,    0.000_wp,    0.000_wp,    0.477_wp /)
    142142
    143    REAL(wp), PARAMETER, DIMENSION(nconst) :: par_n =  (/                                           &
     143    REAL(wp), PARAMETER, DIMENSION(nconst) :: par_n =  (/                                          &
    144144                           0.474_wp,    0.080_wp,    0.279_wp,    0.267_wp,    0.108_wp,           &
    145145                           0.125_wp,    0.288_wp,    0.307_wp,    0.353_wp,    0.323_wp,           &
     
    150150                                                    !< specified otherwise)
    151151
    152 !
     152
    153153    INTERFACE photolysis_constant
    154154       MODULE PROCEDURE photolysis_constant
Note: See TracChangeset for help on using the changeset viewer.