Changeset 274 for palm/trunk/SOURCE/init_dvrp.f90

Timestamp:

Mar 26, 2009 3:11:21 PM (15 years ago)

Author:

heinze

Message:

Indentation of the message calls corrected

File:

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

palm/trunk/SOURCE/init_dvrp.f90

@@ -145 +145 @@
     IF ( dvrp_output /= 'ftp'  .AND.  dvrp_output /= 'rtsp'  .AND. &
          dvrp_output /= 'local' )  THEN
-       message_string = 'dvrp_output="' // TRIM( dvrp_output ) // '" not allowed'
+       message_string = 'dvrp_output="' // TRIM( dvrp_output ) // &
+                        '" not allowed'
        CALL message( 'init_dvrp', 'PA0196', 1, 2, 0, 6, 0 )
     ENDIF
@@ -189 +190 @@
             mode_dvrp(m)(1:9)  /= 'pathlines' )  THEN
 
-          message_string = 'mode_dvrp="' // TRIM( mode_dvrp(m) ) // '" not allowed'
+          message_string = 'mode_dvrp="' // TRIM( mode_dvrp(m) ) // &
+                           '" not allowed'
           CALL message( 'init_dvrp', 'PA0198', 1, 2, 0, 6, 0 )
           CALL local_stop