145 |
IF (offline) CALL fluxstokenc(pbaru, pbarv, masse, teta, phi, phis, & |
IF (offline) CALL fluxstokenc(pbaru, pbarv, masse, teta, phi, phis, & |
146 |
dtvr, itau) |
dtvr, itau) |
147 |
|
|
148 |
! integrations dynamique et traceurs: |
! Integrations dynamique et traceurs: |
149 |
CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, dteta, dp, & |
CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, dteta, dp, & |
150 |
vcov, ucov, teta, q(:, :, :, :2), ps, masse, finvmaold, dt, leapf) |
vcov, ucov, teta, q(:, :, :, :2), ps, masse, finvmaold, dt, leapf) |
151 |
|
|