/[lmdze]/trunk/libf/dyn3d/leapfrog.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/leapfrog.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC revision 22 by guez, Fri Jul 31 15:18:47 2009 UTC
# Line 92  contains Line 92  contains
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)
# Line 335  contains Line 336  contains
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
Legend:
Removed from v.18  
changed lines
  Added in v.22
  ViewVC Help
Powered by ViewVC 1.1.21