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, phis, & |
|
|
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 |
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(itau, vcov, ucov, teta, phi, masse, ps) |
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 |
|
|