/[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 42 by guez, Tue Feb 22 15:09:57 2011 UTC revision 43 by guez, Fri Apr 8 12:43:31 2011 UTC
# Line 13  contains Line 13  contains
13      use addfi_m, only: addfi      use addfi_m, only: addfi
14      use bilan_dyn_m, only: bilan_dyn      use bilan_dyn_m, only: bilan_dyn
15      use caladvtrac_m, only: caladvtrac      use caladvtrac_m, only: caladvtrac
16        use caldyn_m, only: caldyn
17      USE calfis_m, ONLY: calfis      USE calfis_m, ONLY: calfis
18      USE com_io_dyn, ONLY: histaveid      USE com_io_dyn, ONLY: histaveid
19      USE comconst, ONLY: daysec, dtphys, dtvr      USE comconst, ONLY: daysec, dtphys, dtvr
# Line 25  contains Line 26  contains
26      use dynredem1_m, only: dynredem1      use dynredem1_m, only: dynredem1
27      USE exner_hyb_m, ONLY: exner_hyb      USE exner_hyb_m, ONLY: exner_hyb
28      use filtreg_m, only: filtreg      use filtreg_m, only: filtreg
29        use geopot_m, only: geopot
30      USE guide_m, ONLY: guide      USE guide_m, ONLY: guide
31      use inidissip_m, only: idissip      use inidissip_m, only: idissip
32      use integrd_m, only: integrd      use integrd_m, only: integrd
# Line 36  contains Line 38  contains
38      ! Variables dynamiques:      ! Variables dynamiques:
39      REAL, intent(inout):: ucov(ip1jmp1, llm) ! vent covariant      REAL, intent(inout):: ucov(ip1jmp1, llm) ! vent covariant
40      REAL, intent(inout):: vcov((iim + 1) * jjm, llm) ! vent covariant      REAL, intent(inout):: vcov((iim + 1) * jjm, llm) ! vent covariant
41      REAL, intent(inout):: teta(iim + 1, jjm + 1, llm) ! potential temperature  
42        REAL, intent(inout):: teta(:, :, :) ! (iim + 1, jjm + 1, llm)
43        ! potential temperature
44    
45      REAL, intent(inout):: ps(iim + 1, jjm + 1) ! pression au sol, en Pa      REAL, intent(inout):: ps(iim + 1, jjm + 1) ! pression au sol, en Pa
46      REAL masse(ip1jmp1, llm) ! masse d'air      REAL masse(ip1jmp1, llm) ! masse d'air
47      REAL phis(ip1jmp1) ! geopotentiel au sol      REAL phis(ip1jmp1) ! geopotentiel au sol
# Line 87  contains Line 92  contains
92    
93      ! Variables test conservation energie      ! Variables test conservation energie
94      REAL ecin(iim + 1, jjm + 1, llm), ecin0(iim + 1, jjm + 1, llm)      REAL ecin(iim + 1, jjm + 1, llm), ecin0(iim + 1, jjm + 1, llm)
95      ! Tendance de la temp. potentiel d (theta) / d t due a la  
     ! tansformation d'energie cinetique en energie thermique  
     ! cree par la dissipation  
96      REAL dtetaecdt(iim + 1, jjm + 1, llm)      REAL dtetaecdt(iim + 1, jjm + 1, llm)
97        ! tendance de la température potentielle due à la tansformation
98        ! d'énergie cinétique en énergie thermique créée par la dissipation
99    
100      REAL vcont((iim + 1) * jjm, llm), ucont(ip1jmp1, llm)      REAL vcont((iim + 1) * jjm, llm), ucont(ip1jmp1, llm)
101      logical leapf      logical leapf
102      real dt      real dt
Legend:
Removed from v.42  
changed lines
  Added in v.43
  ViewVC Help
Powered by ViewVC 1.1.21