224 |
|
|
225 |
IF (MOD(itau + 1, iperiod) == 0) THEN |
IF (MOD(itau + 1, iperiod) == 0) THEN |
226 |
! Écriture du fichier histoire moyenne: |
! Écriture du fichier histoire moyenne: |
227 |
CALL writedynav(nqmx, itau + 1, vcov, ucov, teta, pk, phi, q, & |
CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, phis, & |
228 |
masse, ps, phis) |
time = itau + 1) |
229 |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
230 |
q(:, :, :, 1)) |
q(:, :, :, 1)) |
231 |
ENDIF |
ENDIF |