source: trunk/LMDZ.COMMON/libf/dyn3d/comconst.h @ 1004

Last change on this file since 1004 was 979, checked in by emillour, 12 years ago

Common dynamics:
Updates in the dynamics (seq and ) to keep up with updates
in LMDZ5 (up to LMDZ5 trunk, rev 1760):

  • General stuff (essentially to keep up with Earth model):
  • Updated makelmdz_fcm and makelmdz (more control on dimension.h, added option -mem, although it is not usefull for now)
  • Updated build_gcm with more control over fcm
  • Updated create_make_gcm (enable looking for code in subdirectories)
  • bibio:
  • updates (just renaming the files actually...) new_unit.F90 => new_unit_m.F90, pchsp_95.F90 => pchsp_95_m.F90 and pchfe_95.F90 => pchfe_95_m.F90
  • filtrez:
  • mod_fft.F90: use more baseline CPP directives for preprocessor compatibility
  • mod_filtre_fft_loc.F90: added this new file
  • filtreg_mod.f90: added calls to init_..._loc
  • filtreg.F: fixed calls to DGEMM into SGEMM (preprocessing does the switch)
  • dyn3d:
  • removed obsolete files: etat0_netcdf.F90 limit_netcdf.F90

pres2lev.F90

  • added new file : pres2lev_mod.F90 (module containing "old" pres2lev)
  • gcm.F: changed args to call to inidissip (added arg "vert_prof_dissip")
  • inidissip.F90: added arg "vert_prof_dissip" and the "earth model" discterizations (flagged with "planet_type=="earth")
  • comdissnew.h: added 'vert_prof_dissip' to the common block
  • guide_mod.F90: added the "use pres2lev_mod"
  • conf_gcm.F: cosmetics, and evaluation of vert_prof_dissip, (and also of dissip_* factors, for Earth model)
  • comconst.h : added dissip_factz,dissip_zref variables (for Earth mode dissip)
  • dyn3dpar:
  • removed obsolete files: etat0_netcdf.F90 limit_netcdf.F90

pres2lev.F90 mod_const_para.F90

  • added new files: pres2lev_mod.F90 (module containing "old" pres2lev)

mod_const_mpi

  • abort_gcm : better control of abort in parallel mode
  • gcm.F: changed args to call to inidissip (added arg "vert_prof_dissip")
  • inidissip.F90: added arg "vert_prof_dissip" and the "earth model" discterizations (flagged with "planet_type=="earth")
  • comdissnew.h: added 'vert_prof_dissip' to the common block
  • filtreg_p.F : bug correction (array bounds)
  • guide_p_mod.F90 : added the "use pres2lev_mod"
  • conf_gcm.F : cosmetics (and evaluation of vert_prof_dissip , and

also of dissip_* factors, for Earth model)
plus check if "adjust" is indeed not used in OpenMP

  • comconst.h : add dissip_factz,dissip_zref variables (for Earth mode dissip)

EM
File size: 1.9 KB
Line 
1!
2! $Id: comconst.h 1437 2010-09-30 08:29: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,kappa,cotot,unsim,g,omeg                  &
11     & ,dissip_fac_mid,dissip_fac_up,dissip_deltaz,dissip_hdelta        &
12     & ,dissip_pupstart  ,tau_top_bound,                                &
13     & daylen,year_day,molmass, ihf
14      COMMON/cpdetvenus/cpp,nu_venus,t0_venus
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   ! Cp
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! Dissipation factors, for Earth model:
32      REAL dissip_factz,dissip_zref !dissip_deltaz
33! Dissipation factors, for other planets:
34      REAL dissip_fac_mid,dissip_fac_up,dissip_deltaz,dissip_hdelta
35      REAL dissip_pupstart
36      INTEGER iflag_top_bound,mode_top_bound
37      REAL tau_top_bound
38      REAL daylen ! length of solar day, in 'standard' day length
39      REAL year_day ! Number of standard days in a year
40      REAL molmass ! (g/mol) molar mass of the atmosphere
41
42      REAL nu_venus,t0_venus ! coeffs needed for Cp(T), Venus atmosphere
43      REAL ihf  ! (W/m2) intrinsic heat flux for giant planets
44
45
46!-----------------------------------------------------------------------
Note: See TracBrowser for help on using the repository browser.