Changeset 3569 for palm/trunk/SOURCE/init_3d_model.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/init_3d_model.f90 (modified) (7 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! dom_dwd_user, Schrempf:
+! Remove uv exposure model code, this is now part of biometeorology_mod,
+! remove bio_init_arrays.
+!
+! 3547 2018-11-21 13:21:24Z suehring
 ! variables documented
 ! 
@@ -560 +565 @@
 
     USE biometeorology_mod,                                                    &
-        ONLY:  bio_init, bio_init_arrays
+        ONLY:  bio_init
 
     USE bulk_cloud_model_mod,                                                  &
@@ -677 +682 @@
         ONLY:  usm_init_urban_surface, usm_allocate_surface
 
-    USE uv_exposure_model_mod,                                                 &
-        ONLY:  uvem_init, uvem_init_arrays
-        
     USE virtual_measurement_mod,                                               &
         ONLY:  vm_init
@@ -708 +710 @@
     INTEGER(iwp) ::  l       !< loop variable
     INTEGER(iwp) ::  nzt_l   !< index of top PE boundary for multigrid level
-    
     REAL(wp) ::  dx_l !< grid spacing along x on different multigrid level
     REAL(wp) ::  dy_l !< grid spacing along y on different multigrid level
@@ -1091 +1092 @@
 !
 !-- Allocate arrays for other modules
-    IF ( biometeorology      )  CALL bio_init_arrays
     IF ( bulk_cloud_model    )  CALL bcm_init_arrays
     IF ( gust_module_enabled )  CALL gust_init_arrays
@@ -1098 +1098 @@
     IF ( salsa               )  CALL salsa_init_arrays
     IF ( wind_turbine        )  CALL wtm_init_arrays
-    IF ( uv_exposure         )  CALL uvem_init_arrays
 
 !
@@ -1106 +1105 @@
     ENDIF
 
-!
-!-- Read uv exposure input data
-    IF ( uv_exposure )  THEN
-       CALL uvem_init
-    ENDIF
 
 !