Changeset 1707 for LMDZ5/branches/testing/libf/dyn3dmem/comconst.h
- Timestamp:
- Jan 11, 2013, 10:19:19 AM (12 years ago)
- Location:
- LMDZ5/branches/testing
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/branches/testing
- Property svn:mergeinfo changed
/LMDZ5/trunk merged: 1670-1692,1694-1703,1705-1706
- Property svn:mergeinfo changed
-
LMDZ5/branches/testing/libf/dyn3dmem/comconst.h
r1669 r1707 1 1 ! 2 ! $Id : comconst.h 1279 2009-12-10 09:02:56Z fairhead$2 ! $Id$ 3 3 ! 4 4 !----------------------------------------------------------------------- 5 5 ! INCLUDE comconst.h 6 6 7 COMMON/comconst/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl, & 8 & dtvr,daysec, & 7 COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl, & 8 & iflag_top_bound 9 COMMON/comconstr/dtvr,daysec, & 9 10 & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg & 10 11 & ,dissip_factz,dissip_deltaz,dissip_zref & 11 & ,iflag_top_bound,tau_top_bound 12 & ,tau_top_bound, & 13 & daylen,year_day,molmass, ihf 12 14 13 15 14 16 INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl 15 REAL dtvr,daysec 16 REAL pi,dtphys,dtdiss,rad,r,cpp,kappa 17 REAL cotot,unsim,g,omeg 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 18 31 REAL dissip_factz,dissip_deltaz,dissip_zref 19 32 INTEGER iflag_top_bound 20 33 REAL tau_top_bound 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 21 37 38 REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets) 22 39 23 40 !-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.