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

Last change on this file since 1740 was 1671, checked in by Ehouarn Millour, 12 years ago
  • fixed "aquaplanet case" so that initializations (creation of files startphy.nc and limit.nc) now also works in parallel (mpi,omp,mixed).
  • call to "iniaqua" is now done from within "iniphysiq" ; also added some tests to check consistency between essential variables shared by dynamics and physics (planetary radius, gravity, Cp, ...)
  • simillarily adapted "phydev" routines, and added necessary routines to also be able to generate startphy.nc/restartphy.nc files there. Also removed common file "comcstphy.h" and replaced it with a module "comcstphy.F90"

EM
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.6 KB
RevLine 
[524]1!
[1279]2! $Id: comconst.h 1671 2012-10-24 07:10:10Z lguez $
[524]3!
[1107]4!-----------------------------------------------------------------------
5! INCLUDE comconst.h
[524]6
[1454]7      COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
8     &                 iflag_top_bound
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
32      INTEGER iflag_top_bound
33      REAL tau_top_bound
[1454]34      REAL daylen ! length of solar day, in 'standard' day length
35      REAL year_day ! Number of standard days in a year
36      REAL molmass ! (g/mol) molar mass of the atmosphere
[524]37
[1505]38      REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
[1279]39
[1107]40!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.