/[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 25 by guez, Fri Mar 5 16:43:45 2010 UTC revision 26 by guez, Tue Mar 9 15:27:15 2010 UTC
# Line 7  contains Line 7  contains
7    SUBROUTINE leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0)    SUBROUTINE leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0)
8    
9      ! From dyn3d/leapfrog.F, version 1.6 2005/04/13 08:58:34      ! From dyn3d/leapfrog.F, version 1.6 2005/04/13 08:58:34
10      ! Auteurs : P. Le Van, L. Fairhead, F. Hourdin      ! Auteurs: P. Le Van, L. Fairhead, F. Hourdin
11    
12      USE dimens_m, ONLY : iim, llm, nqmx      USE calfis_m, ONLY: calfis
13      USE paramet_m, ONLY : iip1, ip1jm, ip1jmp1, jjp1      USE com_io_dyn, ONLY: histaveid
14      USE comconst, ONLY : daysec, dtphys, dtvr      USE comconst, ONLY: daysec, dtphys, dtvr
15      USE comvert, ONLY : ap, bp      USE comgeom, ONLY: aire, apoln, apols
16      USE conf_gcm_m, ONLY : day_step, iconser, idissip, iperiod, iphysiq, &      USE comvert, ONLY: ap, bp
17        USE conf_gcm_m, ONLY: day_step, iconser, iperiod, iphysiq, &
18           nday, offline, periodav           nday, offline, periodav
19      USE logic, ONLY : iflag_phys, ok_guide      USE dimens_m, ONLY: iim, llm, nqmx
20      USE comgeom, ONLY : aire, apoln, apols      USE dynetat0_m, ONLY: day_ini
21      USE temps, ONLY : dt, itaufin      USE exner_hyb_m, ONLY: exner_hyb
22      USE dynetat0_m, ONLY : day_ini      USE guide_m, ONLY: guide
23      USE iniprint, ONLY : prt_level      use inidissip_m, only: idissip
24      USE com_io_dyn, ONLY : histaveid      USE logic, ONLY: iflag_phys, ok_guide
25      USE calfis_m, ONLY : calfis      USE paramet_m, ONLY: iip1, ip1jm, ip1jmp1, jjp1
26      USE exner_hyb_m, ONLY : exner_hyb      USE pression_m, ONLY: pression
27      USE guide_m, ONLY : guide      USE pressure_var, ONLY: p3d
28      USE pression_m, ONLY : pression      USE temps, ONLY: dt, itaufin
     USE pressure_var, ONLY : p3d  
29    
30      ! Variables dynamiques:      ! Variables dynamiques:
31      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants
# Line 75  contains Line 75  contains
75      INTEGER iday ! jour julien      INTEGER iday ! jour julien
76      REAL time ! time of day, as a fraction of day length      REAL time ! time of day, as a fraction of day length
77      real finvmaold(ip1jmp1, llm)      real finvmaold(ip1jmp1, llm)
78      LOGICAL :: lafin=.false.      LOGICAL:: lafin=.false.
79      INTEGER ij, l      INTEGER ij, l
80    
81      REAL rdayvrai, rdaym_ini      REAL rdayvrai, rdaym_ini
Legend:
Removed from v.25  
changed lines
  Added in v.26
  ViewVC Help
Powered by ViewVC 1.1.21