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

Diff of /trunk/dyn3d/leapfrog.f

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

revision 11 by guez, Fri Apr 18 14:45:53 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 34  contains Line 34  contains
34      use comvert, only: ap, bp      use comvert, only: ap, bp
35      use conf_gcm_m, only: day_step, iconser, idissip, iphysiq, iperiod, nday, &      use conf_gcm_m, only: day_step, iconser, idissip, iphysiq, iperiod, nday, &
36           offline, periodav           offline, periodav
37      use logic, only: ok_guide, apdiss, apphys, conser, forward, iflag_phys, &      use logic, only: ok_guide, iflag_phys
          leapf, statcl  
38      use comgeom      use comgeom
39      use serre      use serre
40      use temps, only: itaufin, day_ini, dt      use temps, only: itaufin, day_ini, dt
# Line 49  contains Line 48  contains
48      use pressure_var, only: p3d      use pressure_var, only: p3d
49    
50      integer nq      integer nq
51      REAL clesphy0(:)      REAL, intent(in):: clesphy0(:)
52    
53      ! Variables dynamiques:      ! Variables dynamiques:
54      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants      REAL vcov(ip1jm, llm), ucov(ip1jmp1, llm) ! vents covariants
# Line 120  contains Line 119  contains
119    
120      logical:: dissip_conservative = .true.      logical:: dissip_conservative = .true.
121      LOGICAL:: prem = .true.      LOGICAL:: prem = .true.
122        logical forward, leapf, apphys, conser, apdiss
123    
124      !---------------------------------------------------      !---------------------------------------------------
125    
# Line 167  contains Line 167  contains
167            ! gestion des appels de la physique et des dissipations:            ! gestion des appels de la physique et des dissipations:
168    
169            apphys = .FALSE.            apphys = .FALSE.
           statcl = .FALSE.  
170            conser = .FALSE.            conser = .FALSE.
171            apdiss = .FALSE.            apdiss = .FALSE.
172    
# Line 196  contains Line 195  contains
195    
196            ! integrations dynamique et traceurs:            ! integrations dynamique et traceurs:
197            CALL integrd(2, vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, &            CALL integrd(2, vcovm1, ucovm1, tetam1, psm1, massem1, dv, du, &
198                 dteta, dq, dp, vcov, ucov, teta, q, ps, masse, phis, finvmaold)                 dteta, dq, dp, vcov, ucov, teta, q, ps, masse, phis, &
199                   finvmaold, leapf)
200    
201            ! calcul des tendances physiques:            ! calcul des tendances physiques:
202    
Legend:
Removed from v.11  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21