120 |
else |
else |
121 |
! Matsuno |
! Matsuno |
122 |
dt = dtvr |
dt = dtvr |
123 |
if (ok_guide .and. itaufin - itau - 1 > day_step / 4) & |
if (ok_guide) call guide(itau, ucov, vcov, teta, q(:, :, :, 1), ps) |
|
call guide(itau, ucov, vcov, teta, q, ps) |
|
124 |
vcovm1 = vcov |
vcovm1 = vcov |
125 |
ucovm1 = ucov |
ucovm1 = ucov |
126 |
tetam1 = teta |
tetam1 = teta |
127 |
massem1 = masse |
massem1 = masse |
128 |
psm1 = ps |
psm1 = ps |
129 |
finvmaold = masse |
finvmaold = masse |
130 |
CALL filtreg(finvmaold, jjm + 1, llm, - 2, 2, .TRUE.) |
CALL filtreg(finvmaold, direct = .false., intensive = .false.) |
131 |
end if |
end if |
132 |
|
|
133 |
! Calcul des tendances dynamiques: |
! Calcul des tendances dynamiques: |