Parent Directory | Revision Log | Patch
revision 137 by guez, Wed May 6 15:51:03 2015 UTC | revision 138 by guez, Fri May 22 23:13:19 2015 UTC | |
---|---|---|
# | Line 216 contains | Line 216 contains |
216 | ||
217 | IF (MOD(itau + 1, iecri * day_step) == 0) THEN | IF (MOD(itau + 1, iecri * day_step) == 0) THEN |
218 | CALL geopot(teta, pk, pks, phis, phi) | CALL geopot(teta, pk, pks, phis, phi) |
219 | CALL writehist(itau, vcov, ucov, teta, phi, q, masse, ps) | CALL writehist(itau, vcov, ucov, teta, phi, masse, ps) |
220 | END IF | END IF |
221 | end do time_integration | end do time_integration |
222 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |