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 |
Rev | Line | |
---|---|---|
[1356] | 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.