source:
CONFIG/trunk/SCRIPT/REGRID_forcage/DYN2PHY/check_err.f
@
1356
| Last change on this file since 1356 was 1356, checked in by acosce, 13 years ago | |
|---|---|
| File size: 203 bytes | |
| Line | |
|---|---|
| 1 | SUBROUTINE check_err(iret) |
| 2 | INTEGER :: iret |
| 3 | INCLUDE 'netcdf.inc' |
| 4 | IF (iret /= NF_NOERR) THEN |
| 5 | PRINT *, nf_strerror(iret) |
| 6 | STOP |
| 7 | ENDIF |
| 8 | END SUBROUTINE check_err |
| 9 |
Note: See TracBrowser
for help on using the repository browser.
