Changeset 3593 for palm/trunk/SOURCE/multi_agent_system_mod.f90

Timestamp:

Dec 3, 2018 1:51:13 PM (6 years ago)

Author:

kanani

Message:

Bugfix for missing array allocation (biometeorology_mod), remove degree symbol (biometeorology_mod, indoor_model_mod, multi_agent_system_mod, surface_mod, wind_turbine_model_mod)

File:

• palm/trunk/SOURCE/multi_agent_system_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/multi_agent_system_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Replace degree symbol by degree_C/degrees
+!
+! 3587 2018-11-30 13:52:19Z sward
 ! Added output of agent substep time
 ! 
@@ -237 +240 @@
         REAL(wp)     ::  speed_x              !< speed of agent in x
         REAL(wp)     ::  speed_y              !< speed of agent in y
-        REAL(wp)     ::  ipt                  !< instationary thermal index iPT (°C)
+        REAL(wp)     ::  ipt                  !< instationary thermal index iPT (degree_C)
         REAL(wp)     ::  windspeed            !< absolute value of windspeed at agent position
         REAL(wp)     ::  x                    !< x-position
@@ -363 +366 @@
     INTEGER(iwp)                :: a     !< agent iterator
     !-- local meteorological conditions
-    REAL(wp)                    :: tmrt  !< mean radiant temperature        (°C)
-    REAL(wp)                    :: ta    !< air temperature                 (°C)
+    REAL(wp)                    :: tmrt  !< mean radiant temperature        (degree_C)
+    REAL(wp)                    :: ta    !< air temperature                 (degree_C)
     REAL(wp)                    :: vp    !< vapour pressure                 (hPa)
     REAL(wp)                    :: v     !< wind speed    (local level)     (m/s)
@@ -4574 +4577 @@
 
 ! !--    forces that are located outside of a sight radius of 
-! !--    200° (-> COS(100./180.*pi) = COS(.555*pi)) of
+! !--    200 degrees (-> COS(100./180.*pi) = COS(.555*pi)) of
 ! !--    current agent are considered to have an effect of 50%
 !        IF ( force_d_x * agents(nl)%speed_e_x +               &