Changeset 4388


Ignore:
Timestamp:
Jan 28, 2020 4:36:55 PM (16 months ago)
Author:
raasch
Message:

bugfix for error messages while reading ASCII topo file

File:
1 edited

Legend:

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

    r4387 r4388  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! 
    2323!
    2424! Former revisions:
    2525! -----------------
    2626! $Id$
     27! bugfix for error messages while reading ASCII topo file
     28!
     29! 4387 2020-01-28 11:44:20Z banzhafs
    2730! Added subroutine get_variable_string_generic ( )
    2831! and added to interface get_variable to circumvent
     
    27052708 10             message_string = 'file TOPOGRAPHY_DATA'//                      &
    27062709                                 TRIM( coupling_char )// ' does not exist'
    2707                 CALL message( 'netcdf_data_input_mod', 'PA0208', 1, 2, 0, 6, 0 )
     2710                CALL message( 'netcdf_data_input_mod', 'PA0208', 1, 2, myid, 6, 0 )
    27082711
    27092712 11             message_string = 'errors in file TOPOGRAPHY_DATA'//            &
    27102713                                 TRIM( coupling_char )
    2711                 CALL message( 'netcdf_data_input_mod', 'PA0209', 2, 2, 0, 6, 0 )
     2714                CALL message( 'netcdf_data_input_mod', 'PA0209', 2, 2, myid, 6, 0 )
    27122715
    27132716 12             CLOSE( 90 )
Note: See TracChangeset for help on using the changeset viewer.