136 |
CALL geopot(teta, pk, pks, phis, phi) |
CALL geopot(teta, pk, pks, phis, phi) |
137 |
CALL caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, & |
CALL caldyn(itau, ucov, vcov, teta, ps, masse, pk, pkf, phis, phi, & |
138 |
dudyn, dv, dteta, dp, w, pbaru, pbarv, time_0, & |
dudyn, dv, dteta, dp, w, pbaru, pbarv, time_0, & |
139 |
conser=MOD(itau, iconser)==0) |
conser = MOD(itau, iconser) == 0) |
140 |
|
|
141 |
CALL caladvtrac(q, pbaru, pbarv, p3d, masse, teta, pk) |
CALL caladvtrac(q, pbaru, pbarv, p3d, masse, teta, pk) |
142 |
|
|
158 |
CALL geopot(teta, pk, pks, phis, phi) |
CALL geopot(teta, pk, pks, phis, phi) |
159 |
CALL caldyn(itau + 1, ucov, vcov, teta, ps, masse, pk, pkf, phis, & |
CALL caldyn(itau + 1, ucov, vcov, teta, ps, masse, pk, pkf, phis, & |
160 |
phi, dudyn, dv, dteta, dp, w, pbaru, pbarv, time_0, & |
phi, dudyn, dv, dteta, dp, w, pbaru, pbarv, time_0, & |
161 |
conser=.false.) |
conser = .false.) |
162 |
|
|
163 |
! integrations dynamique et traceurs: |
! integrations dynamique et traceurs: |
164 |
CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, dudyn, & |
CALL integrd(vcovm1, ucovm1, tetam1, psm1, massem1, dv, dudyn, & |