Changeset 780 for palm/trunk

Timestamp:

Nov 10, 2011 7:16:47 AM (13 years ago)

Author:

raasch

Message:

Bugfix for rev 778: Misplaced error message moved to the rigth place

File:

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

palm/trunk/SOURCE/init_pegrid.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-!
+! Bugfix for rev 778: Misplaced error message moved to the rigth place
 !
 ! ATTENTION: nnz_x undefined problem still has to be solved!!!!!!!!
@@ -984 +984 @@
        ENDDO
 
+!
+!--    Temporary problem: Currently calculation of maxerror iin routine poismg crashes
+!--    if grid data are collected on PE0 already on the finest grid level.
+!--    To be solved later.
+       IF ( maximum_grid_level == mg_switch_to_pe0_level )  THEN
+          message_string = 'grid coarsening on subdomain level cannot be performed'
+          CALL message( 'poismg', 'PA0236', 1, 2, 0, 6, 0 )
+       ENDIF
+
     ELSE
 
        maximum_grid_level = 0
 
-    ENDIF
-
-!-- Temporary problem: In the moment the summation to calculate maxerror
-!-- in routine poismg crashes the program if the first coarsement is on PE0.
-!-- Further work required.
-    IF ( maximum_grid_level == mg_switch_to_pe0_level )  THEN
-       message_string = 'At least one coarser grid must be calculated ' // &
-                        'on the subdomain of each PE'
-       CALL message( 'poismg', 'PA0236', 1, 2, 0, 6, 0 )
     ENDIF