Changeset 3516 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

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

    r3498 r3516  
    2525! -----------------
    2626! $Id$
     27! bugfix: - difference in z coordinate between file and PALM must be <1e-6
     28!         - output of error 553 for all PEs
     29!
     30! 3498 2018-11-07 10:53:03Z gronemeier
    2731! Bugfix: print error message by processor which encounters the error
    2832!
     
    39673971             ENDIF
    39683972
    3969              IF ( ANY( buildings_f%z(0:buildings_f%nz-1) /=                    &
    3970                        zu(0:buildings_f%nz-1) ) )  THEN
     3973             IF ( ANY( ABS( buildings_f%z(0:buildings_f%nz-1) -                &
     3974                       zu(0:buildings_f%nz-1) ) > 1E-6_wp ) )  THEN
    39713975                message_string = 'Reading 3D building data - vertical ' //     &
    39723976                                 'coordinate do not match numeric grid.'
    3973                 CALL message( 'netcdf_data_input_mod', 'PA0553', 2, 2, 0, 6, 0 )
     3977                CALL message( 'netcdf_data_input_mod', 'PA0553', 2, 2, myid, 6, 0 )
    39743978             ENDIF
    39753979          ENDIF
Note: See TracChangeset for help on using the changeset viewer.