167 |
time = REAL(mod(itau, day_step)) / day_step + time_0 |
time = REAL(mod(itau, day_step)) / day_step + time_0 |
168 |
IF (time > 1.) time = time - 1. |
IF (time > 1.) time = time - 1. |
169 |
|
|
170 |
CALL calfis(nqmx, itau + 1 == itaufin, rdayvrai, time, ucov, vcov, & |
CALL calfis(itau + 1 == itaufin, rdayvrai, time, ucov, vcov, & |
171 |
teta, q, masse, ps, pk, phis, phi, du, dv, dteta, dq, w, dufi, & |
teta, q, masse, ps, pk, phis, phi, du, dv, dteta, dq, w, dufi, & |
172 |
dvfi, dtetafi, dqfi, dpfi) |
dvfi, dtetafi, dqfi, dpfi) |
173 |
|
|