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

palm/trunk/SOURCE/data_output_2d.f90

@@ -19 +19 @@
 !
 ! Current revisions:
-! -----------------
+! ------------------
 ! 
 ! 
@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Remove fill_value from bio_data_output_2d call
+! dom_dwd_user, Schrempf:
+! Clean up of biometeorology calls,
+! remove uv exposure model code, this is now part of biometeorology_mod.
+!
+! 3554 2018-11-22 11:24:52Z gronemeier
 ! - add variable description
 ! - rename variable 'if' into 'ivar'
@@ -289 +295 @@
                ntdim_2d_xy, ntdim_2d_xz, ntdim_2d_yz,                          &
                ocean_mode, psolver, section, simulated_time,                   &
-               time_since_reference_point, uv_exposure
+               time_since_reference_point
 
     USE cpulog,                                                                &
@@ -336 +342 @@
     USE turbulence_closure_mod,                                                &
         ONLY:  tcm_data_output_2d
-
-    USE uv_exposure_model_mod,                                                 &
-        ONLY:  uvem_data_output_2d
 
 
@@ -1328 +1331 @@
                 ENDIF
 
-                IF ( .NOT. found  .AND.  biometeorology                        &
-                                  .AND.  mode == 'xy' )  THEN
+                IF ( .NOT. found  .AND.  biometeorology )  THEN
                    CALL bio_data_output_2d( av, do2d(av,ivar), found, grid,      &
-                                            local_pf, two_d, nzb_do, nzt_do,   &
-                                            fill_value )
+                                            local_pf, two_d, nzb_do, nzt_do )
                 ENDIF
 
@@ -1355 +1356 @@
                                               mode, local_pf, two_d )
                 ENDIF                 
-
-                IF ( .NOT. found  .AND.  uv_exposure )  THEN
-                   CALL uvem_data_output_2d( av, do2d(av,ivar), found, grid,     &
-                                             local_pf, two_d, nzb_do, nzt_do )
-                ENDIF
 
                 IF ( .NOT. found  .AND.  air_chemistry )  THEN