92 |
|
|
93 |
REAL tppn(iim), tpps(iim), tpn, tps |
REAL tppn(iim), tpps(iim), tpn, tps |
94 |
|
|
95 |
INTEGER itau, itaufinp1 |
INTEGER itau ! index of the time step of the dynamics, starts at 0 |
96 |
|
integer itaufinp1 |
97 |
INTEGER iday ! jour julien |
INTEGER iday ! jour julien |
98 |
REAL time ! Heure de la journee en fraction d'1 jour |
REAL time ! time of day, as a fraction of day length |
99 |
|
|
100 |
REAL SSUM |
REAL SSUM |
101 |
real finvmaold(ip1jmp1, llm) |
real finvmaold(ip1jmp1, llm) |
336 |
dt = 2. * dtvr |
dt = 2. * dtvr |
337 |
END IF |
END IF |
338 |
ELSE |
ELSE |
339 |
! ...... pas leapfrog ..... |
! pas leapfrog |
340 |
leapf = .TRUE. |
leapf = .TRUE. |
341 |
dt = 2. * dtvr |
dt = 2. * dtvr |
342 |
END IF |
END IF |