source: LMDZ6/branches/DYNAMICO-conv/libf/phymar/MAR________BUG.f90 @ 3024

Last change on this file since 3024 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR


Integration of MAR physics

File size: 1.5 KB
Line 
1      subroutine MAR________BUG
2
3!-----------------------------------------------------------------------------+
4!     subroutine MAR________BUG FORCES a PREMATURE END of YOUR JOB            |
5!-----------------------------------------------------------------------------+
6
7      write(6,*) '                        .                           '
8      write(6,*) '                       /|\                          '
9      write(6,*) '                      // \\                         '
10      write(6,*) '                     // _ \\                        '
11      write(6,*) '                    // | | \\                       '
12      write(6,*) '                   //  | |  \\                      '
13      write(6,*) '                  //   | |   \\                     '
14      write(6,*) '                 //    |_|    \\                    '
15      write(6,*) '                //      0      \\                   '
16      write(6,*) '               /=================\                  '
17      write(6,*) '                                                    '
18      write(6,*) ' #~@è€~#^@}æ@#â€êþÿûîœôäßë‘’ðüïŀö»©@@@ ↓¬¿×÷¡  !!???'
19      write(6,*) '                                                    '
20      write(6,*) '                                                    '
21      write(6,*) '                                le capitaine HADDOCK'
22      write(6,*) '                                                    '
23
24!     print *, char(7)
25
26      STOP
27      END subroutine MAR________BUG
Note: See TracBrowser for help on using the repository browser.