/[lmdze]/trunk/Sources/dyn3d/leapfrog.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/leapfrog.f

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

revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 46  contains Line 46  contains
46      use pression_m, only: pression      use pression_m, only: pression
47      use pressure_var, only: p3d      use pressure_var, only: p3d
48    
49      integer nq      integer, intent(in):: nq
50    
51      ! Variables dynamiques:      ! Variables dynamiques:
52      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants
# Line 94  contains Line 94  contains
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)
# Line 335  contains Line 335  contains
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
Legend:
Removed from v.13  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21