Ignore:
Timestamp:
Jul 4, 2018 5:30:52 PM (3 years ago)
Author:
suehring
Message:

Reference lowest terrain height to zero level; new check for negative terrain heights in static input file

File:
1 edited

Legend:

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

    r3089 r3103  
    2525! -----------------
    2626! $Id$
     27! New check for negative terrain heights
     28!
     29! 3089 2018-06-27 13:20:38Z suehring
    2730! Revise call for message routine in case of local data inconsistencies.
    2831!
     
    28832886          message_string = 'NetCDF variable zt is not ' //                     &
    28842887                           'allowed to have missing data'
     2888          CALL message( 'netcdf_data_input_mod', 'NDI013', 2, 2, myid, 6, 0 )
     2889       ENDIF
     2890!
     2891!--    Check for negative terrain heights
     2892       IF ( ANY( terrain_height_f%var < 0.0_wp ) )  THEN
     2893          message_string = 'NetCDF variable zt is not ' //                     &
     2894                           'allowed to have negative values'
    28852895          CALL message( 'netcdf_data_input_mod', 'NDI013', 2, 2, myid, 6, 0 )
    28862896       ENDIF
Note: See TracChangeset for help on using the changeset viewer.