Parent Directory | Revision Log | Patch
revision 262 by guez, Wed Mar 7 13:46:18 2018 UTC | revision 263 by guez, Wed Mar 7 14:41:46 2018 UTC | |
---|---|---|
# | Line 206 contains | Line 206 contains |
206 | q(:, :, :, 1)) | q(:, :, :, 1)) |
207 | ENDIF | ENDIF |
208 | ||
209 | IF (MOD(itau + 1, iecri * day_step) == 0) THEN | IF (MOD(itau + 1, iecri) == 0) THEN |
210 | CALL geopot(teta, pk, pks, phis, phi) | CALL geopot(teta, pk, pks, phis, phi) |
211 | CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, itau) | CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, & |
212 | itau_w = itau_dyn + itau + 1) | |
213 | END IF | END IF |
214 | end do time_integration | end do time_integration |
215 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |