Changeset 3614 for palm/trunk/SOURCE/biometeorology_mod.f90

Timestamp:

Dec 10, 2018 7:05:46 AM (5 years ago)

Author:

raasch

Message:

unused variables removed, abort renamed inifor_abort to avoid intrinsic problem in Fortran

File:

• palm/trunk/SOURCE/biometeorology_mod.f90 (modified) (5 diffs)

palm/trunk/SOURCE/biometeorology_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3593 2018-12-03 13:51:13Z kanani
 ! Bugfix: additional tmrt_grid allocation in case bio_mrt not selected as ouput,
 ! replace degree symbol by degree_C
@@ -157 +160 @@
     LOGICAL ::  aver_v     = .FALSE.  !< switch: do v  averaging in this module?
     LOGICAL ::  aver_w     = .FALSE.  !< switch: do w  averaging in this module?
-    LOGICAL ::  aver_mrt   = .FALSE.  !< switch: do mrt averaging in this module?
     LOGICAL ::  average_trigger_perct = .FALSE.  !< update averaged input on call to bio_perct?
     LOGICAL ::  average_trigger_utci  = .FALSE.  !< update averaged input on call to bio_utci?
@@ -1076 +1078 @@
         ONLY: message_string
 
-    USE netcdf_data_input_mod,                                                &
-        ONLY:  netcdf_data_input_uvem, uvem_projarea_f, uvem_radiance_f,      &
-               uvem_irradiance_f, uvem_integration_f, building_obstruction_f
+    USE netcdf_data_input_mod,                                                 &
+        ONLY:  netcdf_data_input_uvem
 
     IMPLICIT NONE
@@ -3930 +3931 @@
 
     USE indices,                                                                                                      &
-        ONLY:  nxlg, nxrg, nyng, nysg, nys, nyn, nxl, nxr 
+        ONLY:  nys, nyn, nxl, nxr
     
     
@@ -4034 +4035 @@
 !                                                
 !                                                
-       DO  i = nxl, nxr    !nxlg, nxrg
-          DO  j = nys, nyn    !nysg, nyng 
+       DO  i = nxl, nxr
+          DO  j = nys, nyn
 !                   
 ! !--        extract obstruction from IBSET-Integer_Array ------------------'