source: LMDZ5/trunk/libf/dyn3d/comconst.h @ 1839

Last change on this file since 1839 was 1793, checked in by Ehouarn Millour, 11 years ago

Improved sponge layer:

  • Sponge tendencies are now computed analytically, instead than using a Forward Euler approximation.
  • Sponge tendencies are added within top_bound, and the sponge is applied after physics tendencies have been taken into account.

These changes imply that GCM results (when using sponge layer) will be differentwrt bench test cases using previous revisions.
EM

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
RevLine 
[524]1!
[1279]2! $Id: comconst.h 1793 2013-07-18 07:13:18Z fairhead $
[524]3!
[1107]4!-----------------------------------------------------------------------
5! INCLUDE comconst.h
[524]6
[1454]7      COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
[1793]8     &                 iflag_top_bound,mode_top_bound
[1454]9      COMMON/comconstr/dtvr,daysec,                                     &
[1279]10     & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg              &
11     &                   ,dissip_factz,dissip_deltaz,dissip_zref        &
[1454]12     &                   ,tau_top_bound,                                &
[1505]13     & daylen,year_day,molmass, ihf
[524]14
[1279]15
[524]16      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
[1454]17      REAL dtvr ! dynamical time step (in s)
18      REAL daysec !length (in s) of a standard day
19      REAL pi    ! something like 3.14159....
20      REAL dtphys ! (s) time step for the physics
21      REAL dtdiss ! (s) time step for the dissipation
22      REAL rad ! (m) radius of the planet
[1671]23      REAL r ! Reduced Gas constant r=R/mu
24             ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol)
25      REAL cpp   ! Specific heat Cp (J.kg-1.K-1)
[1454]26      REAL kappa ! kappa=R/Cp
27      REAL cotot
28      REAL unsim ! = 1./iim
29      REAL g ! (m/s2) gravity
30      REAL omeg ! (rad/s) rotation rate of the planet
[1279]31      REAL dissip_factz,dissip_deltaz,dissip_zref
[1793]32! top_bound sponge:
33      INTEGER iflag_top_bound ! sponge type
34      INTEGER mode_top_bound  ! sponge mode
35      REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)
[1454]36      REAL daylen ! length of solar day, in 'standard' day length
37      REAL year_day ! Number of standard days in a year
38      REAL molmass ! (g/mol) molar mass of the atmosphere
[524]39
[1505]40      REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
[1279]41
[1107]42!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.