Parent Directory | Revision Log | Patch
revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC | revision 85 by guez, Thu Mar 6 17:35:22 2014 UTC | |
---|---|---|
# | Line 146 contains | Line 146 contains |
146 | ||
147 | call NF95_INQ_VARID (ncid, "ps", varid) | call NF95_INQ_VARID (ncid, "ps", varid) |
148 | call NF95_GET_VAR(ncid, varid, ps) | call NF95_GET_VAR(ncid, varid, ps) |
149 | ! Check that there is a single value at each pole: | |
150 | call assert(ps(1, 1) == ps(2:, 1), "dynetat0 ps north pole") | |
151 | call assert(ps(1, jjm + 1) == ps(2:, jjm + 1), "dynetat0 ps south pole") | |
152 | ||
153 | call NF95_CLOSE(ncid) | call NF95_CLOSE(ncid) |
154 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |