Changeset 3066 for palm/trunk/SOURCE/wind_turbine_model_mod.f90

Timestamp:

Jun 12, 2018 8:55:55 AM (6 years ago)

Author:

Giersch

Message:

Error messages related to the new vertical grid stretching revised, Bugfix in IF statement before error message

File:

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

palm/trunk/SOURCE/wind_turbine_model_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Error message revised
+! 
+! 3065 2018-06-12 07:03:02Z Giersch
 ! dz was replaced by dz(1), error message concerning grid stretching has been
 ! introduced
@@ -1010 +1013 @@
                                      'greater than ', MAXVAL(rcz) +            &
                                       MAXVAL(rr) + eps_min
-          CALL message( 'init_grid', 'PA0484', 1, 2, 0, 6, 0 )
+          CALL message( 'wtm_init', 'PA0484', 1, 2, 0, 6, 0 )
        ENDIF 
 !