94 |
|
|
95 |
INTEGER itau, itaufinp1 |
INTEGER itau, itaufinp1 |
96 |
INTEGER iday ! jour julien |
INTEGER iday ! jour julien |
97 |
REAL time ! Heure de la journee en fraction d'1 jour |
REAL time ! time of day, as a fraction of day length |
98 |
|
|
99 |
REAL SSUM |
REAL SSUM |
100 |
real finvmaold(ip1jmp1, llm) |
real finvmaold(ip1jmp1, llm) |
335 |
dt = 2. * dtvr |
dt = 2. * dtvr |
336 |
END IF |
END IF |
337 |
ELSE |
ELSE |
338 |
! ...... pas leapfrog ..... |
! pas leapfrog |
339 |
leapf = .TRUE. |
leapf = .TRUE. |
340 |
dt = 2. * dtvr |
dt = 2. * dtvr |
341 |
END IF |
END IF |