Changeset 257 for palm/trunk/SOURCE/poismg.f90
- Timestamp:
- Mar 11, 2009 3:17:42 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/poismg.f90
r198 r257 6 6 ! is required. 7 7 ! 8 ! Actualrevisions:8 ! Current revisions: 9 9 ! ----------------- 10 ! 10 ! Output of messages replaced by message handling routine. 11 ! 11 12 ! 12 13 ! Former revisions: … … 117 118 !-- of insufficient convergence 118 119 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 ) 123 122 ENDIF 124 123
Note: See TracChangeset
for help on using the changeset viewer.