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

Timestamp:

Oct 29, 2018 6:14:31 PM (5 years ago)

Author:

kanani

Message:

Implementation of human thermal indices (from branch biomet_p2 at r3444)

File:

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

palm/trunk/SOURCE/check_parameters.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Add biometeorology
+! 
+! 3421 2018-10-24 18:39:32Z gronemeier
 ! Renamed output variables
 ! Add checks for surface data output
@@ -704 +707 @@
     USE basic_constants_and_equations_mod
 
+    USE biometeorology_mod,                                                    &
+        ONLY:  biom_check_data_output, biom_check_parameters
+
     USE bulk_cloud_model_mod,                                                  &
         ONLY:  bulk_cloud_model, bcm_check_parameters, bcm_check_data_output,  &
@@ -769 +775 @@
         ONLY:  radiation, radiation_check_data_output,                         &
                radiation_check_data_output_pr, radiation_check_parameters
-
-    USE biometeorology_mod,                                                    &
-        ONLY:  biometeorology_check_data_output
 
     USE spectra_mod,                                                           &
@@ -1488 +1491 @@
 
 !-- Check the module settings
+    IF ( biometeorology )       CALL biom_check_parameters
     IF ( bulk_cloud_model )     CALL bcm_check_parameters
     IF ( gust_module_enabled )  CALL gust_check_parameters
@@ -3182 +3186 @@
              ENDIF
 
-             IF ( unit == 'illegal' )  THEN
-                CALL biometeorology_check_data_output( var, unit, i, ilen, k )
-             ENDIF
-
              IF ( unit == 'illegal'  .AND.  gust_module_enabled  )  THEN
                 CALL gust_check_data_output ( var, unit )
+             ENDIF
+
+             IF ( unit == 'illegal'  .AND.  biometeorology )  THEN
+                CALL biom_check_data_output( var, unit )
              ENDIF