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

Diff of /trunk/dyn3d/leapfrog.f90

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

trunk/dyn3d/leapfrog.f revision 266 by guez, Thu Apr 19 17:54:55 2018 UTC trunk/dyn3d/leapfrog.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 24  contains Line 24  contains
24      USE conf_guide_m, ONLY: ok_guide      USE conf_guide_m, ONLY: ok_guide
25      USE dimensions, ONLY: iim, jjm, llm, nqmx      USE dimensions, ONLY: iim, jjm, llm, nqmx
26      use dissip_m, only: dissip      use dissip_m, only: dissip
27      USE dynetat0_m, ONLY: day_ini      USE dynetat0_m, ONLY: day_ini, itau_dyn
28      use dynredem1_m, only: dynredem1      use dynredem1_m, only: dynredem1
29      use enercin_m, only: enercin      use enercin_m, only: enercin
30      USE exner_hyb_m, ONLY: exner_hyb      USE exner_hyb_m, ONLY: exner_hyb
# Line 34  contains Line 34  contains
34      use inidissip_m, only: idissip      use inidissip_m, only: idissip
35      use integrd_m, only: integrd      use integrd_m, only: integrd
36      use nr_util, only: assert      use nr_util, only: assert
     USE temps, ONLY: itau_dyn  
37      use writehist_m, only: writehist      use writehist_m, only: writehist
38    
     ! Variables dynamiques:  
39      REAL, intent(inout):: ucov(:, :, :) ! (iim + 1, jjm + 1, llm) vent covariant      REAL, intent(inout):: ucov(:, :, :) ! (iim + 1, jjm + 1, 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    
# Line 53  contains Line 51  contains
51    
52      ! Local:      ! Local:
53    
     ! Variables dynamiques:  
   
54      REAL pks(iim + 1, jjm + 1) ! exner au sol      REAL pks(iim + 1, jjm + 1) ! exner au sol
55      REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches      REAL pk(iim + 1, jjm + 1, llm) ! exner au milieu des couches
56      REAL pkf(iim + 1, jjm + 1, llm) ! exner filtr\'e au milieu des couches      REAL pkf(iim + 1, jjm + 1, llm) ! exner filtr\'e au milieu des couches
Legend:
Removed from v.266  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21