Changeset 3045 for palm/trunk/SOURCE/turbulence_closure_mod.f90

Timestamp:

May 28, 2018 7:55:41 AM (6 years ago)

Author:

Giersch

Message:

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

File:

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

palm/trunk/SOURCE/turbulence_closure_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Error message revised
+! 
+! 3014 2018-05-09 08:42:38Z maronga
 ! Bugfix: nzb_do and nzt_do were not used for 3d data output
 ! 
@@ -1212 +1215 @@
 
        DO  k = 1, nzt
-          IF ( l_grid(k) > 1.5_wp * dx * wall_adjustment_factor .OR.  &
+          IF ( l_grid(k) > 1.5_wp * dx * wall_adjustment_factor .OR.           &
                l_grid(k) > 1.5_wp * dy * wall_adjustment_factor )  THEN
-             WRITE( message_string, * ) 'grid anisotropy exceeds ', &
-                                        'threshold given by only local', &
-                                        ' &horizontal reduction of near_wall ', &
-                                        'mixing length l_wall', &
-                                        ' &starting from height level k = ', k, '.'
+             WRITE( message_string, * ) 'grid anisotropy exceeds ',            &
+                                        'threshold given by only local',       &
+                                        ' horizontal reduction of near_wall ', &
+                                        'mixing length l_wall',                &
+                                        ' starting from height level k = ', k, &
+                                        '.'
              CALL message( 'init_grid', 'PA0202', 0, 1, 0, 6, 0 )
              EXIT