source:
LMDZ5/trunk/tools/Max_diff_nc_with_lib/NR_util/nrerror.f90
@
1874
Last change on this file since 1874 was 1765, checked in by , 11 years ago | |
---|---|
File size: 256 bytes |
Rev | Line | |
---|---|---|
[1765] | 1 | module nrerror_m |
2 | ||
3 | implicit none | |
4 | ||
5 | contains | |
6 | ||
7 | SUBROUTINE nrerror(string) | |
8 | ||
9 | CHARACTER(LEN=*), INTENT(IN) :: string | |
10 | ||
11 | print *, 'nrerror: ', string | |
12 | print *, 'program terminated by nrerror' | |
13 | stop 1 | |
14 | ||
15 | END SUBROUTINE nrerror | |
16 | ||
17 | end module nrerror_m |
Note: See TracBrowser
for help on using the repository browser.