Parent Directory | Revision Log | Patch
revision 9 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC | |
---|---|---|
# | Line 29 contains | Line 29 contains |
29 | call histclo | call histclo |
30 | write(lunout,*) 'Stopping in ', modname | write(lunout,*) 'Stopping in ', modname |
31 | write(lunout,*) 'Reason = ', trim(message) | write(lunout,*) 'Reason = ', trim(message) |
32 | if (ierr == 0) then | write(lunout,*) 'Houston, we have a problem ', ierr |
33 | write(lunout,*) 'Everything is cool' | STOP 1 |
STOP | ||
else | ||
write(lunout,*) 'Houston, we have a problem ', ierr | ||
STOP 1 | ||
endif | ||
34 | ||
35 | END SUBROUTINE abort_gcm | END SUBROUTINE abort_gcm |
36 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |