Ignore:
Timestamp:
Feb 5, 2019 5:21:16 PM (2 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/virtual_measurement_mod.f90

    r3706 r3717  
    2525! -----------------
    2626! $Id$
     27! Additional check + error numbers adjusted
     28!
     29! 3706 2019-01-29 20:02:26Z suehring
    2730! unused variables removed
    2831!
     
    313316 
    314317    USE netcdf_data_input_mod,                                                 &
    315         ONLY:  input_pids_static
     318        ONLY:  input_pids_static, input_pids_vm
    316319       
    317320    IMPLICIT NONE
    318    
     321
     322!
     323!-- Virtual measurements require a setup file.
     324    IF ( virtual_measurement  .AND.  .NOT. input_pids_vm )  THEN
     325       message_string = 'If virtual measurements are taken, a setup input ' // &
     326                        'file for the site locations is mandatory.'
     327       CALL message( 'vm_check_parameters', 'PA0533', 1, 2, 0, 6, 0 )
     328    ENDIF   
    319329!
    320330!-- In case virtual measurements are taken, a static input file is required.
     
    325335       message_string = 'If virtual measurements are taken, a static input ' //&
    326336                        'file is mandatory.'
    327        CALL message( 'vm_check_parameters', 'PA0000', 1, 2, 0, 6, 0 )
     337       CALL message( 'vm_check_parameters', 'PA0534', 1, 2, 0, 6, 0 )
    328338    ENDIF
    329339 
     
    522532                           TRIM( vmea(l)%feature_type ) //                     &
    523533                           ' is not allowed.'
    524           CALL message( 'vm_init', 'PA0000', 1, 2, 0, 6, 0 )
     534          CALL message( 'vm_init', 'PA0535', 1, 2, 0, 6, 0 )
    525535       ENDIF
    526536!
Note: See TracChangeset for help on using the changeset viewer.