Changeset 3717 for palm/trunk/SOURCE/virtual_measurement_mod.f90

Timestamp:

Feb 5, 2019 5:21:16 PM (5 years ago)

Author:

suehring

Message:

Bugfix, do not set boundary conditions for pt in neutral runs; enable checks + additional checks for virtual measurements

File:

• palm/trunk/SOURCE/virtual_measurement_mod.f90 (modified) (4 diffs)

palm/trunk/SOURCE/virtual_measurement_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Additional check + error numbers adjusted
+! 
+! 3706 2019-01-29 20:02:26Z suehring
 ! unused variables removed
 ! 
@@ -313 +316 @@
  
     USE netcdf_data_input_mod,                                                 &
-        ONLY:  input_pids_static
+        ONLY:  input_pids_static, input_pids_vm
         
     IMPLICIT NONE
-    
+
+!
+!-- Virtual measurements require a setup file. 
+    IF ( virtual_measurement  .AND.  .NOT. input_pids_vm )  THEN
+       message_string = 'If virtual measurements are taken, a setup input ' // &
+                        'file for the site locations is mandatory.'
+       CALL message( 'vm_check_parameters', 'PA0533', 1, 2, 0, 6, 0 )
+    ENDIF   
 !
 !-- In case virtual measurements are taken, a static input file is required.
@@ -325 +335 @@
        message_string = 'If virtual measurements are taken, a static input ' //&
                         'file is mandatory.'
-       CALL message( 'vm_check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
+       CALL message( 'vm_check_parameters', 'PA0534', 1, 2, 0, 6, 0 )
     ENDIF
  
@@ -522 +532 @@
                            TRIM( vmea(l)%feature_type ) //                     &
                            ' is not allowed.' 
-          CALL message( 'vm_init', 'PA0000', 1, 2, 0, 6, 0 )
+          CALL message( 'vm_init', 'PA0535', 1, 2, 0, 6, 0 )
        ENDIF
 !