Changeset 3525 for palm/trunk/SOURCE/sum_up_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/sum_up_3d_data.f90 (modified) (4 diffs)

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! 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.
 ! 
@@ -243 +246 @@
 
     USE biometeorology_mod,                                                    &
-        ONLY:  biom_3d_data_averaging
+        ONLY:  bio_3d_data_averaging
 
     USE bulk_cloud_model_mod,                                                  &
@@ -530 +533 @@
                 ENDIF
 
-                IF ( biometeorology  .AND.  trimvar(1:5) == 'biom_')  THEN
-                   CALL biom_3d_data_averaging( 'allocate', doav(ii) )
+                IF ( biometeorology  .AND.  trimvar(1:4) == 'bio_')  THEN
+                   CALL bio_3d_data_averaging( 'allocate', doav(ii) )
                 ENDIF
 
@@ -1184 +1187 @@
              ENDIF
 
-             IF ( biometeorology  .AND.  trimvar(1:5) == 'biom_' )  THEN
-                   CALL biom_3d_data_averaging( 'sum', doav(ii) )
+             IF ( biometeorology  .AND.  trimvar(1:4) == 'bio_' )  THEN
+                CALL bio_3d_data_averaging( 'sum', doav(ii) )
              ENDIF