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