Changeset 3569 for palm/trunk/SOURCE/sum_up_3d_data.f90

Timestamp:

Nov 27, 2018 5:03:40 PM (5 years ago)

Author:

kanani

Message:

Fix for biomet output (ticket:757), merge of uv_exposure into biometeorology_mod

File:

• palm/trunk/SOURCE/sum_up_3d_data.f90 (modified) (8 diffs)

palm/trunk/SOURCE/sum_up_3d_data.f90

@@ -19 +19 @@
 !
 ! Current revisions:
-! -----------------
+! ------------------
 ! 
 ! 
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! dom_dwd_user, Schrempf:
+! Remove CALLs to uv exposure model, this is now part of biometeorology_mod
+! 
+! 3553 2018-11-22 10:30:48Z suehring
 ! variables documented
 ! 
@@ -260 +264 @@
         ONLY:  air_chemistry, average_count_3d, biometeorology, doav, doav_n,  &
                land_surface, ocean_mode, rho_surface, urban_surface,           &
-               uv_exposure, varnamelength
+               varnamelength
 
     USE cpulog,                                                                &
@@ -297 +301 @@
     USE urban_surface_mod,                                                     &
         ONLY:  usm_average_3d_data
-
-    USE uv_exposure_model_mod,                                                &
-        ONLY:  uvem_3d_data_averaging
 
 
@@ -536 +537 @@
                 ENDIF
 
-                IF ( biometeorology  .AND.  trimvar(1:4) == 'bio_')  THEN
+                IF ( biometeorology )  THEN
                    CALL bio_3d_data_averaging( 'allocate', doav(ii) )
                 ENDIF
@@ -562 +563 @@
                 IF ( urban_surface  .AND.  trimvar(1:4) == 'usm_' )  THEN
                    CALL usm_average_3d_data( 'allocate', doav(ii) )
-                ENDIF
-
-                IF ( uv_exposure  .AND.  trimvar(1:5) == 'uvem_')  THEN
-                   CALL uvem_3d_data_averaging( 'allocate', doav(ii) )
                 ENDIF
 
@@ -1190 +1187 @@
              ENDIF
 
-             IF ( biometeorology  .AND.  trimvar(1:4) == 'bio_' )  THEN
+             IF ( biometeorology )  THEN
                 CALL bio_3d_data_averaging( 'sum', doav(ii) )
              ENDIF
@@ -1222 +1219 @@
              ENDIF
 
-             IF ( uv_exposure )  THEN
-                CALL uvem_3d_data_averaging( 'sum', doav(ii) )
-             ENDIF
-
 !
 !--          User-defined quantities