source: trunk/LMDZ.COMMON/libf/dyn3d_common/comconst_mod.F90 @ 1572

Last change on this file since 1572 was 1572, checked in by emillour, 8 years ago

All GCMs:
Further adaptations to keep up with changes in LMDZ5 concerning
physics/dynamics separation (up to rev r2500 of LMDZ5)

  • arch:
  • remove ifort debug option '-check all', replace it with '-check bounds,format,output_conversion,pointers,uninit' (i.e. get it to stop complaining about copying into temporary arrays)
  • dyn3d_common:
  • comconst_mod.F90 : add ngroup
  • dyn3d:
  • gcm.F90 : minor bug fix (arguments to a call_abort())
  • leapfrog.F90 : recompute geopotential for bilan_dyn outputs
  • conf_gcm.F90 : read "ngroup" from run.def
  • groupe.F , groupeun.F : ngroup no longer a local parameter
  • dyn3d_par:
  • conf_gcm.F90 : read "ngroup" from run.def
  • groupe_p.F , groupeun_p.F : ngroup no longer a local parameter
  • misc:
  • regr1_step_av_m.F90 : removed (not used)
  • phy_common:
  • mod_phys_lmdz_mpi_transfert.F90 , mod_phys_lmdz_mpi_data.F90 : change is_north_pole and is_south_pole to is_north_pole_dyn and is_south_pole_dyn
  • mod_phys_lmdz_omp_data.F90 : introduce is_nort_pole_phy and is_south_pole_phy
  • dynphy_lonlat:
  • mod_interface_dyn_phys.F90 : use is_north_pole_dyn and is_south_pole_dyn
  • calfis_p.F : use is_north_pole_dyn and is_south_pole_dyn
  • phyvenus:
  • physiq_mod , write_hist*.h : use is_north_pole_phy and is_south_pole_phy to correctly compute mesh area at poles to send to hist*nc files.
  • phytitan:
  • physiq_mod , write_hist*.h : use is_north_pole_phy and is_south_pole_phy to correctly compute mesh area at poles to send to hist*nc files.

EM
File size: 1.3 KB
Line 
1MODULE comconst_mod
2
3IMPLICIT NONE 
4
5      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
6      REAL dtvr ! dynamical time step (in s)
7      REAL daysec !length (in s) of a standard day
8      REAL pi    ! something like 3.14159....
9      REAL dtphys ! (s) time step for the physics
10      REAL dtdiss ! (s) time step for the dissipation
11      REAL rad ! (m) radius of the planet
12      REAL r ! Reduced Gas constant r=R/mu
13             ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol)
14      REAL cpp   ! Cp
15      REAL kappa ! kappa=R/Cp
16      REAL cotot
17      REAL unsim ! = 1./iim
18      REAL g ! (m/s2) gravity
19      REAL omeg ! (rad/s) rotation rate of the planet
20! Dissipation factors, for Earth model:
21      REAL dissip_factz,dissip_zref !dissip_deltaz
22! Dissipation factors, for other planets:
23      REAL dissip_fac_mid,dissip_fac_up,dissip_deltaz,dissip_hdelta
24      REAL dissip_pupstart
25      INTEGER iflag_top_bound,mode_top_bound
26      INTEGER ngroup ! parameter to group points (along longitude) near poles
27      REAL tau_top_bound
28      REAL daylen ! length of solar day, in 'standard' day length
29      REAL molmass ! (g/mol) molar mass of the atmosphere
30
31      REAL nu_venus,t0_venus ! coeffs needed for Cp(T), Venus atmosphere
32      REAL ihf  ! (W/m2) intrinsic heat flux for giant planets
33
34
35END MODULE comconst_mod
Note: See TracBrowser for help on using the repository browser.