Changeset 274 for palm/trunk/SOURCE/parin.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/parin.f90 (modified) (2 diffs)

palm/trunk/SOURCE/parin.f90

@@ -179 +179 @@
     READ ( 11, inipar, ERR=10, END=11 )
     GOTO 12
- 10 message_string = 'errors in \$inipar &or no \$inipar-namelist found (CRAY-machines only)'
+ 10 message_string = 'errors in \$inipar &or no \$inipar-namelist ' // &
+                     'found (CRAY-machines only)'
     CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
 
@@ -229 +230 @@
 
        IF ( nx <= 0 )  THEN
-          WRITE( message_string, * ) 'no value or wrong value given for nx: nx=', nx
+          WRITE( message_string, * ) 'no value or wrong value given for nx: ',&
+                                     'nx=', nx
           CALL message( 'parin', 'PA0273', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( ny <= 0 )  THEN
-          WRITE( message_string, * ) 'no value or wrong value given for ny: ny=', ny
+          WRITE( message_string, * ) 'no value or wrong value given for ny: ',&
+                                     'ny=', ny
           CALL message( 'parin', 'PA0274', 1, 2, 0, 6, 0 )
        ENDIF
        IF ( nz <= 0 )  THEN
-          WRITE( message_string, * ) 'no value or wrong value given for nz: nz=', nz
+          WRITE( message_string, * ) 'no value or wrong value given for nz: ',&
+                                     'nz=', nz
           CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
        ENDIF