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

Diff of /trunk/dyn3d/leapfrog.f90

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

revision 313 by guez, Mon Dec 10 15:54:30 2018 UTC revision 325 by guez, Wed Mar 13 15:53:40 2019 UTC
# Line 36  contains Line 36  contains
36      use nr_util, only: assert      use nr_util, only: assert
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 52  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.313  
changed lines
  Added in v.325
  ViewVC Help
Powered by ViewVC 1.1.21