170 |
end if |
end if |
171 |
|
|
172 |
IF (MOD(itau + 1, iphysiq) == 0 .AND. iflag_phys /= 0) THEN |
IF (MOD(itau + 1, iphysiq) == 0 .AND. iflag_phys /= 0) THEN |
173 |
CALL calfis(itau / day_step + day_ini, & |
CALL calfis(ucov, vcov, teta, q, pk, phis, phi, w, dufi, dvfi, & |
174 |
REAL(mod(itau, day_step)) / day_step, ucov, vcov, teta, q, pk, & |
dtetafi, dqfi, dayvrai = itau / day_step + day_ini, & |
175 |
phis, phi, w, dufi, dvfi, dtetafi, dqfi, & |
time = REAL(mod(itau, day_step)) / day_step, & |
176 |
lafin = itau + 1 == itaufin) |
lafin = itau + 1 == itaufin) |
177 |
|
|
178 |
CALL addfi(ucov, vcov, teta, q, dufi, dvfi, dtetafi, dqfi) |
CALL addfi(ucov, vcov, teta, q, dufi, dvfi, dtetafi, dqfi) |