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

Timestamp:

Nov 14, 2018 4:06:14 PM (5 years ago)

Author:

kanani

Message:

Changes related to clean-up of biometeorology (by dom_dwd_user)

File:

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

palm/trunk/SOURCE/average_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
-! Implementation of a new aerosol module salsa. 
+! Changes related to clean-up of biometeorology (dom_dwd_user)
+! 
+! 3467 2018-10-30 19:05:21Z suehring
+! Implementation of a new aerosol module salsa.
 ! 
 ! 3448 2018-10-29 18:14:31Z kanani
@@ -160 +163 @@
 
     USE biometeorology_mod,                                                    &
-        ONLY:  biom_3d_data_averaging
+        ONLY:  bio_3d_data_averaging
 
     USE bulk_cloud_model_mod,                                                  &
@@ -580 +583 @@
              ENDIF             
 
-             IF ( biometeorology )  THEN
-                CALL biom_3d_data_averaging( 'average', doav(ii) )
+             IF ( biometeorology .AND. trimvar(1:4) == 'bio_' )  THEN
+                CALL bio_3d_data_averaging( 'average', doav(ii) )
              ENDIF