Parent Directory | Revision Log | Patch
revision 4 by guez, Wed Feb 27 13:16:39 2008 UTC | revision 5 by guez, Mon Mar 3 16:32:04 2008 UTC | |
---|---|---|
# | Line 332 contains | Line 332 contains |
332 | ENDIF | ENDIF |
333 | ||
334 | IF (itau == itaufin) THEN | IF (itau == itaufin) THEN |
335 | CALL dynredem1("restart.nc", 0.0, & | CALL dynredem1("restart.nc", 0., vcov, ucov, teta, q, masse, ps) |
vcov, ucov, teta, q, nqmx, masse, ps) | ||
336 | CLOSE(99) | CLOSE(99) |
337 | ENDIF | ENDIF |
338 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |