Changeset 3274 for palm/trunk/SOURCE/multi_agent_system_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/multi_agent_system_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Modularization of all bulk cloud physics code components
+! 
+! 3268 2018-09-21 13:45:37Z sward
 ! Cleaned up agent pointer assignment in output routine
 ! 
@@ -77 +80 @@
     USE, INTRINSIC ::  ISO_C_BINDING
 
-    USE constants,                                                             &
+    USE basic_constants_and_equations_mod,                                     &
         ONLY:  pi
 
@@ -2689 +2692 @@
 
        USE arrays_3d,                                                          &
-           ONLY:  u, v, pt, hyp
+           ONLY:  u, v, pt, hyp, exner
 
 !       USE chemistry_model_mod,                                                &
@@ -2761 +2764 @@
 !
 !--                Calculate temperature at agent position
-                   agents(nl)%t = pt(kl,jl,il) *                               &
-                                  ( hyp(kl) / 100000.0_wp )**0.286_wp
+                   agents(nl)%t = pt(kl,jl,il) * exner(kl)
 ! !
 ! !--                Get PM10 concentration at agent position, if possible
@@ -4107 +4109 @@
     SUBROUTINE mas_timestep_social_forces ( mode, nl, ip, jp )
 
-!       USE constants,                                                          &
-!           ONLY:  pi
-
        IMPLICIT NONE