36 |
use integrd_m, only: integrd |
use integrd_m, only: integrd |
37 |
use nr_util, only: assert |
use nr_util, only: assert |
38 |
USE temps, ONLY: itau_dyn |
USE temps, ONLY: itau_dyn |
|
use writedynav_m, only: writedynav |
|
39 |
use writehist_m, only: writehist |
use writehist_m, only: writehist |
40 |
|
|
41 |
! Variables dynamiques: |
! Variables dynamiques: |
202 |
END IF |
END IF |
203 |
|
|
204 |
IF (MOD(itau + 1, iperiod) == 0) THEN |
IF (MOD(itau + 1, iperiod) == 0) THEN |
|
! \'Ecriture du fichier histoire moyenne: |
|
|
CALL writedynav(vcov, ucov, teta, pk, phi, q, masse, ps, & |
|
|
time = itau + 1) |
|
205 |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
call bilan_dyn(ps, masse, pk, pbaru, pbarv, teta, phi, ucov, vcov, & |
206 |
q(:, :, :, 1)) |
q(:, :, :, 1)) |
207 |
ENDIF |
ENDIF |