source: LMDZ5/branches/LF-private/libf/dyn3dmem/comconst.h @ 3080

Last change on this file since 3080 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

File size: 1.8 KB
Line 
1!
2! $Id: comconst.h 1671 2012-10-24 07:10:10Z emillour $
3!
4!-----------------------------------------------------------------------
5! INCLUDE comconst.h
6
7      COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
8     &                 iflag_top_bound,mode_top_bound
9      COMMON/comconstr/dtvr,daysec,                                     &
10     & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg              &
11     &                   ,dissip_factz,dissip_deltaz,dissip_zref        &
12     &                   ,tau_top_bound,                                &
13     & daylen,year_day,molmass, ihf
14
15
16      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
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
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)
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
31      REAL dissip_factz,dissip_deltaz,dissip_zref
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)
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
39
40      REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
41
42!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.