Index: palm/trunk/SOURCE/biometeorology_mod.f90
===================================================================
--- palm/trunk/SOURCE/biometeorology_mod.f90	(revision 4125)
+++ palm/trunk/SOURCE/biometeorology_mod.f90	(revision 4126)
@@ -27,4 +27,8 @@
 ! -----------------
 ! $Id$
+! renamed vitd3_exposure_av into vitd3_dose,
+! renamed uvem_calc_exposure into bio_calculate_uv_exposure
+! 
+! 3885 2019-04-11 11:29:34Z kanani
 ! Changes related to global restructuring of location messages and introduction 
 ! of additional debug messages
@@ -274,6 +278,6 @@
     REAL(wp), DIMENSION(0:71,0:9) ::  radiance_array_temp          = 0.0_wp  !< temporary radiance data
 
-    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  vitd3_exposure     !< result variable for instantaneous vitamin-D weighted exposures
-    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  vitd3_exposure_av  !< result variable for summation of vitamin-D weighted exposures
+    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  vitd3_exposure  !< result variable for instantaneous vitamin-D weighted exposures
+    REAL(wp), DIMENSION(:,:), ALLOCATABLE ::  vitd3_dose      !< result variable for summation of vitamin-D weighted exposures
 
     REAL(wp), DIMENSION(0:35,0:9,0:90) ::  radiance_lookup_table   = 0.0_wp  !< radiance lookup table
@@ -290,5 +294,5 @@
 !
 !-- UVEM PUBLIC variables and methods
-    PUBLIC uvem_calc_exposure, uv_exposure
+    PUBLIC bio_calculate_uv_exposure, uv_exposure
 
 !
@@ -386,7 +390,7 @@
 !
 !-- Calculate UV exposure grid
-    INTERFACE uvem_calc_exposure
-       MODULE PROCEDURE uvem_calc_exposure
-    END INTERFACE uvem_calc_exposure
+    INTERFACE bio_calculate_uv_exposure
+       MODULE PROCEDURE bio_calculate_uv_exposure
+    END INTERFACE bio_calculate_uv_exposure
 
  CONTAINS
@@ -462,8 +466,8 @@
 
           CASE ( 'uvem_vitd3dose*' )
-             IF ( .NOT. ALLOCATED( vitd3_exposure_av ) )  THEN
-                ALLOCATE( vitd3_exposure_av(nysg:nyng,nxlg:nxrg) )
+             IF ( .NOT. ALLOCATED( vitd3_dose ) )  THEN
+                ALLOCATE( vitd3_dose(nysg:nyng,nxlg:nxrg) )
              ENDIF
-             vitd3_exposure_av = 0.0_wp
+             vitd3_dose = 0.0_wp
 
           CASE DEFAULT
@@ -607,8 +611,8 @@
 !--       This is a cumulated dose. No mode == 'average' for this quantity.
           CASE ( 'uvem_vitd3dose*' )
-             IF ( ALLOCATED( vitd3_exposure_av ) )  THEN
+             IF ( ALLOCATED( vitd3_dose ) )  THEN
                 DO  i = nxlg, nxrg
                    DO  j = nysg, nyng
-                      vitd3_exposure_av(j,i) = vitd3_exposure_av(j,i) + vitd3_exposure(j,i)
+                      vitd3_dose(j,i) = vitd3_dose(j,i) + vitd3_exposure(j,i)
                    ENDDO
                 ENDDO
@@ -805,9 +809,9 @@
 
        CASE ( 'uvem_vitd3*' )
-          IF (  .NOT.  uv_exposure )  THEN
-             message_string = 'output of "' // TRIM( var ) // '" requi' //     &
-                      'res a namelist &uvexposure_par'
-             CALL message( 'uvem_check_data_output', 'UV0001', 1, 2, 0, 6, 0 )
-          ENDIF
+!           IF (  .NOT.  uv_exposure )  THEN
+!              message_string = 'output of "' // TRIM( var ) // '" requi' //     &
+!                       'res a namelist &uvexposure_par'
+!              CALL message( 'uvem_check_data_output', 'UV0001', 1, 2, 0, 6, 0 )
+!           ENDIF
           IF ( k == 0  .OR.  data_output(i)(ilen-2:ilen) /= '_xy' )  THEN
              message_string = 'illegal value for data_output: "' //            &
@@ -823,9 +827,9 @@
 
        CASE ( 'uvem_vitd3dose*' )
-          IF (  .NOT.  uv_exposure )  THEN
-             message_string = 'output of "' // TRIM( var ) // '" requi' //     &
-                      'res  a namelist &uvexposure_par'
-             CALL message( 'uvem_check_data_output', 'UV0001', 1, 2, 0, 6, 0 )
-          ENDIF
+!           IF (  .NOT.  uv_exposure )  THEN
+!              message_string = 'output of "' // TRIM( var ) // '" requi' //     &
+!                       'res  a namelist &uvexposure_par'
+!              CALL message( 'uvem_check_data_output', 'UV0001', 1, 2, 0, 6, 0 )
+!           ENDIF
           IF ( k == 0  .OR.  data_output(i)(ilen-2:ilen) /= '_xy' )  THEN
              message_string = 'illegal value for data_output: "' //            &
@@ -835,8 +839,8 @@
           ENDIF
           unit = 'IU/av-h'
-          IF ( .NOT. ALLOCATED( vitd3_exposure_av ) )  THEN
-             ALLOCATE( vitd3_exposure_av(nysg:nyng,nxlg:nxrg) )
+          IF ( .NOT. ALLOCATED( vitd3_dose ) )  THEN
+             ALLOCATE( vitd3_dose(nysg:nyng,nxlg:nxrg) )
           ENDIF
-          vitd3_exposure_av = 0.0_wp
+          vitd3_dose = 0.0_wp
 
        CASE DEFAULT
@@ -1030,5 +1034,5 @@
              DO  i = nxl, nxr
                 DO  j = nys, nyn
-                   local_pf(i,j,nzb+1) = vitd3_exposure_av(j,i)
+                   local_pf(i,j,nzb+1) = vitd3_dose(j,i)
                 ENDDO
              ENDDO
@@ -1250,5 +1254,5 @@
         ONLY: message_string
 
-    IF ( .NOT. radiation_interactions )  THEN
+    IF ( (.NOT. radiation_interactions) .AND. ( thermal_comfort ) )  THEN
        message_string = 'The mrt calculation requires ' //                     &
                         'enabled radiation_interactions but it ' //            &
@@ -4290,5 +4294,5 @@
 !> Module-specific routine for new module
 !---------------------------------------------------------------------------------------------------------------------!
- SUBROUTINE uvem_calc_exposure
+ SUBROUTINE bio_calculate_uv_exposure
 
     USE indices,                                                                                                      &
@@ -4439,5 +4443,5 @@
     ENDIF
 
- END SUBROUTINE uvem_calc_exposure
+ END SUBROUTINE bio_calculate_uv_exposure
 
  END MODULE biometeorology_mod
Index: palm/trunk/SOURCE/time_integration.f90
===================================================================
--- palm/trunk/SOURCE/time_integration.f90	(revision 4125)
+++ palm/trunk/SOURCE/time_integration.f90	(revision 4126)
@@ -25,4 +25,7 @@
 ! -----------------
 ! $Id$
+! renamed routine to calculate uv exposure
+! 
+! 4111 2019-07-22 18:16:57Z suehring
 ! advc_flags_1 / advc_flags_2 renamed to advc_flags_m / advc_flags_s
 ! 
@@ -545,5 +548,6 @@
 
     USE biometeorology_mod,                                                                        &
-        ONLY:  bio_calculate_thermal_index_maps, thermal_comfort, uvem_calc_exposure, uv_exposure
+        ONLY:  bio_calculate_thermal_index_maps, thermal_comfort, bio_calculate_uv_exposure,       &
+               uv_exposure
 
     USE bulk_cloud_model_mod,                                                                      &
@@ -1704,5 +1708,5 @@
 !--       If required, do UV exposure calculations
           IF ( uv_exposure )  THEN
-             CALL uvem_calc_exposure
+             CALL bio_calculate_uv_exposure
           ENDIF
        ENDIF
