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

Timestamp:

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

Author:

kanani

Message:

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

File:

• palm/trunk/SOURCE/check_parameters.f90 (modified) (6 diffs)

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Sort chemistry routine calls into list.
+! dom_dwd_user, Schrempf:
+! remove CALLs to uv exposure model, this is now part of biometeorology_mod
+! 
+! 3545 2018-11-21 11:19:41Z gronemeier
 ! Call tcm_check_parameters before other modules
 ! 
@@ -823 +828 @@
     USE urban_surface_mod,                                                     &
         ONLY:  usm_check_data_output, usm_check_parameters
-
-    USE uv_exposure_model_mod,                                                 &
-        ONLY:  uvem_check_data_output
 
     USE wind_turbine_model_mod,                                                &
@@ -1507 +1509 @@
     ENDIF
 
-!   Check for chem_emission_mod parameters setting
-!   IF ( air_chemistry ) CALL chem_emissions_check_parameters   ! forkel preliminary
-
-
-!   Check for chemitry_model_mod parameters setting
-    IF ( air_chemistry )  CALL chem_check_parameters
-
-
-!-- Check the module settings
+!
+!-- Check the module settings:
+!-- tcm_check_parameters must be called at first
     CALL tcm_check_parameters
+
     IF ( biometeorology )       CALL bio_check_parameters
     IF ( bulk_cloud_model )     CALL bcm_check_parameters
+    IF ( air_chemistry )        CALL chem_check_parameters
+!   IF ( air_chemistry )        CALL chem_emissions_check_parameters   ! forkel preliminary
     IF ( gust_module_enabled )  CALL gust_check_parameters
     IF ( large_scale_forcing  .OR.  nudging )                                  &
@@ -1527 +1526 @@
     IF ( radiation )            CALL radiation_check_parameters
     IF ( calculate_spectra )    CALL spectra_check_parameters
-    CALL stg_check_parameters
+                                CALL stg_check_parameters
     IF ( urban_surface )        CALL usm_check_parameters
     IF ( wind_turbine )         CALL wtm_check_parameters
@@ -3220 +3219 @@
 
              IF ( unit == 'illegal'  .AND.  biometeorology )  THEN
-                CALL bio_check_data_output( var, unit )
+                CALL bio_check_data_output( var, unit, i, ilen, k )
              ENDIF
 
@@ -3244 +3243 @@
                  CALL usm_check_data_output( var, unit )
              ENDIF
-
-             IF ( unit == 'illegal'  .AND.  uv_exposure                        &
-                                     .AND.  var(1:5) == 'uvem_' )  THEN
-                CALL uvem_check_data_output( var, unit, i, ilen, k )
-             ENDIF
-
 !
 !--          Finally, check for user-defined quantities