Ignore:
Timestamp:
Mar 11, 2009 3:17:42 PM (15 years ago)
Author:
heinze
Message:

Output of messages replaced by message handling routine

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/poismg.f90

    r198 r257  
    66!            is required.
    77!
    8 ! Actual revisions:
     8! Current revisions:
    99! -----------------
    10 !
     10! Output of messages replaced by message handling routine.
     11!
    1112!
    1213! Former revisions:
     
    117118!--    of insufficient convergence
    118119       IF ( mgcycles > 1000  .AND.  mg_cycles == -1 )  THEN
    119           IF ( myid == 0 )  THEN
    120              PRINT*, '+++ poismg: no sufficient convergence within 1000 cycles'
    121           ENDIF
    122           CALL local_stop
     120          message_string = 'no sufficient convergence within 1000 cycles'
     121          CALL message( 'poismg', 'PA0283', 1, 2, 0, 6, 0 )
    123122       ENDIF
    124123
Note: See TracChangeset for help on using the changeset viewer.