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

Timestamp:

Nov 12, 2018 3:49:39 PM (6 years ago)

Author:

gronemeier

Message:

bugfix: difference in z coordinate between file and PALM must be <1e-6; output of error 553 for all PEs (netcdf_data_input_mod)

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix: - difference in z coordinate between file and PALM must be <1e-6
+!         - output of error 553 for all PEs
+! 
+! 3498 2018-11-07 10:53:03Z gronemeier
 ! Bugfix: print error message by processor which encounters the error
 ! 
@@ -3967 +3971 @@
              ENDIF
 
-             IF ( ANY( buildings_f%z(0:buildings_f%nz-1) /=                    &
-                       zu(0:buildings_f%nz-1) ) )  THEN
+             IF ( ANY( ABS( buildings_f%z(0:buildings_f%nz-1) -                &
+                       zu(0:buildings_f%nz-1) ) > 1E-6_wp ) )  THEN
                 message_string = 'Reading 3D building data - vertical ' //     &
                                  'coordinate do not match numeric grid.'
-                CALL message( 'netcdf_data_input_mod', 'PA0553', 2, 2, 0, 6, 0 )
+                CALL message( 'netcdf_data_input_mod', 'PA0553', 2, 2, myid, 6, 0 )
              ENDIF
           ENDIF