Changeset 257 for palm/trunk/SOURCE/parin.f90

Timestamp:

Mar 11, 2009 3:17:42 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine

File:

• palm/trunk/SOURCE/parin.f90 (modified) (4 diffs)

palm/trunk/SOURCE/parin.f90

@@ -2 +2 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! Output of messages replaced by message handling routine.
 ! +canyon_height, canyon_width_x, canyon_width_y, canyon_wall_left, 
 ! canyon_wall_south, conserve_volume_flow_mode, dp_external, dp_level_b, 
@@ -176 +177 @@
     READ ( 11, inipar, ERR=10, END=11 )
     GOTO 12
- 10 IF ( myid == 0 )  THEN
-       PRINT*, '+++ parin: errors in \$inipar'
-       PRINT*, '           or no \$inipar-namelist found (CRAY-machines only)' 
-    ENDIF
-    CALL local_stop
- 11 IF ( myid == 0 )  THEN
-       PRINT*, '+++ parin: no \$inipar-namelist found'
-    ENDIF
-    CALL local_stop
+ 10 message_string = 'errors in \$inipar &or no \$inipar-namelist found (CRAY-machines only)'
+    CALL message( 'parin', 'PA0271', 1, 2, 0, 6, 0 )
+
+ 11 message_string = 'no \$inipar-namelist found'
+    CALL message( 'parin', 'PA0272', 1, 2, 0, 6, 0 )
 
 !
@@ -230 +227 @@
 
        IF ( nx <= 0 )  THEN
-          IF ( myid == 0 )  THEN
-             PRINT*, '+++ parin: no value or wrong value given for nx: nx=', nx
-          ENDIF
-          CALL local_stop
+          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
-          IF ( myid == 0 )  THEN
-             PRINT*, '+++ parin: no value or wrong value given for ny: ny=', ny
-          ENDIF
-          CALL local_stop
+          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
-          IF ( myid == 0 )  THEN
-             PRINT*, '+++ parin: no value or wrong value given for nz: nz=', nz
-          ENDIF
-          CALL local_stop
+          WRITE( message_string, * ) 'no value or wrong value given for nz: nz=', nz
+          CALL message( 'parin', 'PA0275', 1, 2, 0, 6, 0 )
        ENDIF
 !
@@ -270 +261 @@
     RETURN
 
- 30 IF ( myid == 0 )  THEN
-       PRINT*, '+++ parin: WARNING: local file ENVPAR not found'
-       PRINT*, '           some variables for steering may not be properly set'
-    ENDIF
+ 30 message_string = 'local file ENVPAR not found' // &
+                     '&some variables for steering may not be properly set'
+    CALL message( 'parin', 'PA0276', 0, 1, 0, 6, 0 )
     RETURN
 
- 31 IF ( myid == 0 )  THEN
-       PRINT*, '+++ parin: WARNING: errors in local file ENVPAR'
-       PRINT*, '           some variables for steering may not be properly set'
-    ENDIF
+ 31 message_string = 'errors in local file ENVPAR' // &
+                     '&some variables for steering may not be properly set'
+    CALL message( 'parin', 'PA0277', 0, 1, 0, 6, 0 )
     RETURN
 
- 32 IF ( myid == 0 )  THEN
-       PRINT*, '+++ parin: WARNING: no envpar-NAMELIST found in local file ', &
-                           'ENVPAR'
-       PRINT*, '           some variables for steering may not be properly set'
-    ENDIF
+ 32 message_string = 'no envpar-NAMELIST found in local file ENVPAR'  // &
+                     '&some variables for steering may not be properly set'
+    CALL message( 'parin', 'PA0278', 0, 1, 0, 6, 0 )
 
  END SUBROUTINE parin