204 |
|
|
205 |
IF (MOD(itau + 1, iperiod) == 0) THEN |
IF (MOD(itau + 1, iperiod) == 0) THEN |
206 |
! \'Ecriture du fichier histoire moyenne: |
! \'Ecriture du fichier histoire moyenne: |
207 |
CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, phis, & |
CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, & |
208 |
time = itau + 1) |
time = itau + 1) |
209 |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
210 |
q(:, :, :, 1)) |
q(:, :, :, 1)) |
212 |
|
|
213 |
IF (MOD(itau + 1, iecri * day_step) == 0) THEN |
IF (MOD(itau + 1, iecri * day_step) == 0) THEN |
214 |
CALL geopot(teta, pk, pks, phis, phi) |
CALL geopot(teta, pk, pks, phis, phi) |
215 |
CALL writehist(itau, vcov, ucov, teta, phi, masse, ps) |
CALL writehist(vcov, ucov, teta, pk, phi, q, masse, ps, itau) |
216 |
END IF |
END IF |
217 |
end do time_integration |
end do time_integration |
218 |
|
|