Changeset 3274 for palm/trunk/SOURCE/chem_photolysis_mod.f90

Timestamp:

Sep 24, 2018 3:42:55 PM (6 years ago)

Author:

knoop

Message:

Modularization of all bulk cloud physics code components

File:

• palm/trunk/SOURCE/chem_photolysis_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/chem_photolysis_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3241 2018-09-12 15:02:00Z raasch
 ! unused variables commented
 ! 
@@ -50 +53 @@
         ONLY:  dzw, hyp, pt, q, ql, zu, zw
 
-    USE constants,                                                             &
+    USE basic_constants_and_equations_mod,                                     &
         ONLY:  pi
 
@@ -68 +71 @@
     USE control_parameters,                                                    &
         ONLY:  initializing_actions           
-!       ONLY:  cloud_droplets, cloud_physics, g, initializing_actions,         &
+!       ONLY:  cloud_droplets, initializing_actions,                           &
 !              large_scale_forcing, lsf_surf, phi, pt_surface, rho_surface,    &
 !              surface_pressure, time_since_reference_point
@@ -271 +274 @@
 !      INTEGER(iwp) :: i, j, k   !< loop indices
        INTEGER(iwp) :: iphot,iav !< loop indix for photolysis reaction
-!      REAL(wp)     :: exn,   &  !< Exner functions at surface
+!      REAL(wp)     :: exn,   &  !< Exner functions at surface (better use palms own exner array in arrays_3d)
 !                      pt1       !< potential temperature at first grid level
 
@@ -304 +307 @@
 !      INTEGER(iwp) :: i, j, k   !< loop indices
        INTEGER(iwp) :: iphot,iav !< loop indix for photolysis reaction
-!      REAL(wp)     :: exn,   &  !< Exner functions at surface
+!      REAL(wp)     :: exn,   &  !< Exner functions at surface (better use palms own exner array in arrays_3d)
 !                      pt1       !< potential temperature at first grid level
        REAL(wp)     :: coszi     !< 1./cosine of zenith angle