Ignore:
Timestamp:
Dec 20, 2019 5:09:33 PM (16 months ago)
Author:
suehring
Message:

Bugfix in message calls for local checks; error messages in init_grid slightly revised; bugfix in time_integration (uninitialized emission time index); read_restart_data (change from J.Resler): use dynamic array allocation rather than automatic arrays to avoid problems with stack memory

File:
1 edited

Legend:

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

    r4346 r4356  
    2525! -----------------
    2626! $Id$
     27! Revise error messages for generic tunnel setup.
     28!
     29! 4346 2019-12-18 11:55:56Z motisi
    2730! Introduction of wall_flags_total_0, which currently sets bits based on static
    2831! topography information used in wall_flags_static_0
     
    20732076          ENDIF
    20742077!
    2075 !--       Tunnel axis along y
     2078!--       Check for too small tunnel width in x- and y-direction
     2079          IF ( tunnel_width_x /= 9999999.9_wp  .AND.                           &   
     2080               tunnel_width_x - 2.0_wp * td <= 2.0_wp * dx )  THEN
     2081             message_string = 'tunnel_width_x too small'
     2082             CALL message( 'init_grid', 'PA0175', 1, 2, 0, 6, 0 )
     2083          ENDIF
     2084          IF ( tunnel_width_y /= 9999999.9_wp  .AND.                           &
     2085               tunnel_width_y - 2.0_wp * td <= 2.0_wp * dy )  THEN
     2086             message_string = 'tunnel_width_y too small'
     2087             CALL message( 'init_grid', 'PA0455', 1, 2, 0, 6, 0 )
     2088          ENDIF
     2089!
     2090!--       Check for too large tunnel width.
     2091!--       Tunnel axis along y.
    20762092          IF ( tunnel_width_x /= 9999999.9_wp )  THEN
    20772093             IF ( tunnel_width_x > ( nx + 1 ) * dx )  THEN
    2078                 message_string = 'Tunnel width too large'
     2094                message_string = 'tunnel_width_x too large'
    20792095                CALL message( 'init_grid', 'PA0282', 1, 2, 0, 6, 0 )
    20802096             ENDIF
     
    20922108             tye_in  = tye_out
    20932109          ENDIF
    2094           IF ( tunnel_width_x /= 9999999.9_wp  .AND.                           &   
    2095                tunnel_width_x - 2.0_wp * td <= 2.0_wp * dx )                   &
    2096           THEN
    2097              message_string = 'Tunnel width too small'
    2098              CALL message( 'init_grid', 'PA0175', 1, 2, 0, 6, 0 )
    2099           ENDIF
    2100           IF ( tunnel_width_y /= 9999999.9_wp  .AND.                           &
    2101                tunnel_width_y - 2.0_wp * td <= 2.0_wp * dy )                   &
    2102           THEN
    2103              message_string = 'Tunnel width too small'
    2104              CALL message( 'init_grid', 'PA0455', 1, 2, 0, 6, 0 )
    2105           ENDIF
    2106 !
    2107 !--       Tunnel axis along x
     2110!
     2111!--       Tunnel axis along x.
    21082112          IF ( tunnel_width_y /= 9999999.9_wp )  THEN
    21092113             IF ( tunnel_width_y > ( ny + 1 ) * dy )  THEN
    2110                 message_string = 'Tunnel width too large'
     2114                message_string = 'tunnel_width_y too large'
    21112115                CALL message( 'init_grid', 'PA0456', 1, 2, 0, 6, 0 )
    21122116             ENDIF
Note: See TracChangeset for help on using the changeset viewer.