Ignore:
Timestamp:
May 28, 2018 7:55:41 AM (3 years ago)
Author:
Giersch
Message:

Code adjusted according to coding standards, renamed namelists, error messages revised until PA0347, output CASE 108 disabled

File:
1 edited

Legend:

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

    r3014 r3045  
    2525! -----------------
    2626! $Id$
     27! Error message revised
     28!
     29! 3014 2018-05-09 08:42:38Z maronga
    2730! Bugfix: nzb_do and nzt_do were not used for 3d data output
    2831!
     
    12121215
    12131216       DO  k = 1, nzt
    1214           IF ( l_grid(k) > 1.5_wp * dx * wall_adjustment_factor .OR.  &
     1217          IF ( l_grid(k) > 1.5_wp * dx * wall_adjustment_factor .OR.           &
    12151218               l_grid(k) > 1.5_wp * dy * wall_adjustment_factor )  THEN
    1216              WRITE( message_string, * ) 'grid anisotropy exceeds ', &
    1217                                         'threshold given by only local', &
    1218                                         ' &horizontal reduction of near_wall ', &
    1219                                         'mixing length l_wall', &
    1220                                         ' &starting from height level k = ', k, '.'
     1219             WRITE( message_string, * ) 'grid anisotropy exceeds ',            &
     1220                                        'threshold given by only local',       &
     1221                                        ' horizontal reduction of near_wall ', &
     1222                                        'mixing length l_wall',                &
     1223                                        ' starting from height level k = ', k, &
     1224                                        '.'
    12211225             CALL message( 'init_grid', 'PA0202', 0, 1, 0, 6, 0 )
    12221226             EXIT
Note: See TracChangeset for help on using the changeset viewer.