Changeset 254 for palm/trunk/SOURCE/init_3d_model.f90

Timestamp:

Mar 5, 2009 3:33:42 PM (15 years ago)

Author:

heinze

Message:

Output of messages replaced by message handling routine.

File:

• palm/trunk/SOURCE/init_3d_model.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_3d_model.f90

@@ -5 +5 @@
 
 !------------------------------------------------------------------------------!
-! Actual revisions:
+! Current revisions:
 ! -----------------
+! Output of messages replaced by message handling routine.
 ! Set the starting level and the vertical smoothing factor used for 
 ! the external pressure gradient
-! +converve_volume_flow_mode: 'default', 'initial_profiles', 'inflow_profile'
+! +conserve_volume_flow_mode: 'default', 'initial_profiles', 'inflow_profile'
 ! and 'bulk_velocity'
 !
@@ -1079 +1080 @@
 !
 !--    Actually this part of the programm should not be reached
-       IF ( myid == 0 )  PRINT*,'+++ init_3d_model: unknown initializing ', &
-                                                    'problem'
-       CALL local_stop
+       message_string = 'unknown initializing problem'
+       CALL message( 'init_3d_model', 'PA0193', 1, 2, 0, 6, 0 )
     ENDIF
 
@@ -1378 +1378 @@
 
     IF ( dots_num > dots_max )  THEN
-       IF ( myid == 0 )  THEN
-          PRINT*, '+++ user_init: number of time series quantities exceeds', &
-                  ' its maximum of dots_max = ', dots_max
-          PRINT*, '    Please increase dots_max in modules.f90.'
-       ENDIF
-       CALL local_stop
+       WRITE( message_string, * ) 'number of time series quantities exceeds', &
+                                  ' its maximum of dots_max = ', dots_max, &
+                                  ' &Please increase dots_max in modules.f90.'
+       CALL message( 'init_3d_model', 'PA0194', 1, 2, 0, 6, 0 )    
     ENDIF