Parent Directory | Revision Log | Patch
revision 8 by guez, Mon Mar 31 12:51:21 2008 UTC | revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC | |
---|---|---|
# | Line 45 contains | Line 45 contains |
45 | ||
46 | !------------------------------------------------------------ | !------------------------------------------------------------ |
47 | ||
48 | print *, "Call sequence information: regr_pr_o3" | |
49 | call assert(shape(o3_mob_regr) == (/iim + 1, jjm + 1, llm/), "regr_pr_o3") | call assert(shape(o3_mob_regr) == (/iim + 1, jjm + 1, llm/), "regr_pr_o3") |
50 | ||
51 | call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid) | call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |