--- trunk/libf/dyn3d/leapfrog.f90 2008/08/07 15:46:20 19 +++ trunk/libf/dyn3d/leapfrog.f90 2008/10/15 16:19:57 20 @@ -94,7 +94,7 @@ INTEGER itau, itaufinp1 INTEGER iday ! jour julien - REAL time ! Heure de la journee en fraction d'1 jour + REAL time ! time of day, as a fraction of day length REAL SSUM real finvmaold(ip1jmp1, llm) @@ -335,7 +335,7 @@ dt = 2. * dtvr END IF ELSE - ! ...... pas leapfrog ..... + ! pas leapfrog leapf = .TRUE. dt = 2. * dtvr END IF