Changeset 3448 for palm/trunk/SOURCE/average_3d_data.f90

Timestamp:

Oct 29, 2018 6:14:31 PM (6 years ago)

Author:

kanani

Message:

Implementation of human thermal indices (from branch biomet_p2 at r3444)

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Adjustment of biometeorology calls
+! 
+! 3421 2018-10-24 18:39:32Z gronemeier
 ! Renamed output variables
 ! 
@@ -153 +156 @@
     USE averaging
 
+    USE biometeorology_mod,                                                    &
+        ONLY:  biom_3d_data_averaging
+
     USE bulk_cloud_model_mod,                                                  &
         ONLY:  bulk_cloud_model, bcm_3d_data_averaging
@@ -160 +166 @@
 
     USE control_parameters,                                                    &
-        ONLY:  air_chemistry, average_count_3d, doav, doav_n, land_surface,    &
-               ocean_mode, urban_surface, varnamelength
+        ONLY:  air_chemistry, average_count_3d, biometeorology, doav, doav_n,  &
+               land_surface, ocean_mode, urban_surface, varnamelength
 
     USE cpulog,                                                                &
@@ -182 +188 @@
     USE radiation_model_mod,                                                   &
         ONLY:  radiation, radiation_3d_data_averaging
-
-    USE biometeorology_mod,                                                    &
-        ONLY:  biometeorology_3d_data_averaging
 
     USE turbulence_closure_mod,                                                &
@@ -567 +570 @@
              ENDIF
 
-             IF ( radiation  .AND.  trimvar(1:4) == 'bio_' )  THEN
-                CALL biometeorology_3d_data_averaging( 'average', doav(ii) )
+             IF ( biometeorology )  THEN
+                CALL biom_3d_data_averaging( 'average', doav(ii) )
              ENDIF