Skip to content

Commit

Permalink
update blowup message
Browse files Browse the repository at this point in the history
  • Loading branch information
@patrickscholz
patrickscholz committed Mar 19, 2024
1 parent 5a6ebee commit 646e0f8
Showing 1 changed file with 33 additions and 23 deletions.
56 changes: 33 additions & 23 deletions src/write_step_info.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -532,29 +532,39 @@ subroutine check_blowup(istep, ice, dynamics, tracers, partit, mesh)
! moment only over CPU mype==0
call MPI_AllREDUCE(found_blowup_loc , found_blowup , 1, MPI_INTEGER, MPI_MAX, MPI_COMM_FESOM, MPIerr)
if (found_blowup==1) then
call write_step_info(istep, 1, ice, dynamics, tracers, partit, mesh)
if (mype==0) then
call sleep(1)
write(*,*)
write(*,*) ' MODEL BLOW UP !!!'
write(*,*) ' ____'
write(*,*) ' __,-~~/~ `---.'
write(*,*) ' _/_,---( , )'
write(*,*) ' __ / < / ) \___'
write(*,*) '- -- ----===;;;`====------------------===;;;===---- -- -'
write(*,*) ' \/ ~"~"~"~"~"~\~"~)~"/'
write(*,*) ' (_ ( \ ( > \)'
write(*,*) ' \_( _ < >_>`'
write(*,*) ' ~ `-i` ::>|--"'
write(*,*) ' I;|.|.|'
write(*,*) ' <|i::|i|`'
write(*,*) ' (` ^`"`- ")'
write(*,*) ' _____.,-#%&$@%#&#~,._____'
write(*,*)
end if
call blowup(istep, ice, dynamics, tracers, partit, mesh)
if (mype==0) write(*,*) ' --> finished writing blow up file'
call par_ex(partit%MPI_COMM_FESOM, partit%mype)
call write_step_info(istep, 1, ice, dynamics, tracers, partit, mesh)
if (mype==0) then
call sleep(1)
write(*,*)
write(*,*) ' ,-* ,-* '
write(*,*) ' (_) MODEL BLOW UP (_) '
write(*,*) ' ____ '
write(*,*) ' __,-~~/~ `---. '
write(*,*) ' _/_,---( , ) '
write(*,*) ' __ / < / ) \___ '
write(*,*) ' - -- ----===;;;`====------------------===;;;===---- -- - '
write(*,*) ' \/ ~"~"~"~"~"~\~"~)~"/ '
write(*,*) ' (_ ( \ ( > \) '
write(*,*) ' \_( _ < >_>` '
write(*,*) ' ~ `-i` ::>|--" '
write(*,*) ' I;|.|.| '
write(*,*) ' <|i::|i|` '
write(*,*) ' (` ^`"`- ") '
write(*,*) ' _______________________.,-#%&$@%#&#~,.__________________ '
write(*,*) ' '
write(*,*) ' (`- ́) _ (`- ́).-> <-. (`- ́) '
write(*,*) ' <-. ( OO).-/ ( OO)_ .-> \(OO )_ '
write(*,*) '(`- ́)-----.(,------.(_)--\_)(`- ́)----. ,--./ ,-.) .----. '
write(*,*) '(OO|(_\--- ́ | .--- ́/ _ /( OO).-. `| `. ́ |\_,-. |'
write(*,*) ' / | `--. (| `--. \_..`--.( _) | | || |`. ́| | . ́ . ́'
write(*,*) ' \_) .-- ́ | .-- ́ .-._) \\| |)| || | | | . ́ /_ '
write(*,*) ' `| |_) | `---.\ / ` `- ́ ́| | | || |'
write(*,*) ' `-- ́ `------ ́ `----- ́ `----- ́ `-- ́ `-- ́`------ ́'
write(*,*)
end if
call blowup(istep, ice, dynamics, tracers, partit, mesh)
if (mype==0) write(*,*) ' --> finished writing blow up file'
call par_ex(partit%MPI_COMM_FESOM, partit%mype)
endif
end subroutine
!===============================================================================
Expand Down

3 comments on commit 646e0f8

@trackow
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Is this really better :D

@patrickscholz
Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Was a bit bored, had to wait for some pending jops, thought the blowup mushroom cloud got a bit out of shape and the name of the ascii font is "lil devils", i thought fits pretty well for a blow up :-D

@patrickscholz
Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

@trackow im still tempted to make it colorful!!! ;-D

Please sign in to comment.