Changeset 3103 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Jul 4, 2018 5:30:52 PM (6 years ago)

Author:

suehring

Message:

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

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! New check for negative terrain heights
+! 
+! 3089 2018-06-27 13:20:38Z suehring
 ! Revise call for message routine in case of local data inconsistencies.
 ! 
@@ -2883 +2886 @@
           message_string = 'NetCDF variable zt is not ' //                     &
                            'allowed to have missing data'
+          CALL message( 'netcdf_data_input_mod', 'NDI013', 2, 2, myid, 6, 0 )
+       ENDIF
+!
+!--    Check for negative terrain heights
+       IF ( ANY( terrain_height_f%var < 0.0_wp ) )  THEN
+          message_string = 'NetCDF variable zt is not ' //                     &
+                           'allowed to have negative values'
           CALL message( 'netcdf_data_input_mod', 'NDI013', 2, 2, myid, 6, 0 )
        ENDIF