source: trunk/LMDZ.GENERIC/libf/phystd/dimphys.h @ 1243

Last change on this file since 1243 was 1216, checked in by emillour, 11 years ago

Generic model:
Major cleanup, in order to ease the use of LMDZ.GENERIC with (parallel) dynamics
in LMDZ.COMMON: (NB: this will break LMDZ.UNIVERSAL, which should be thrashed
in the near future)

  • Updated makegcm_* scripts (and makdim) and added the "-full" (to enforce full recomputation of the model) option
  • In dyn3d: converted control.h to module control_mod.F90 and converted iniadvtrac.F to module infotrac.F90
  • Added module mod_const_mpi.F90 in dyn3d (not used in serial mode)
  • Rearanged input/outputs routines everywhere to handle serial/MPI cases. physdem.F => phyredem.F90 , phyetat0.F => phyetat0.F90 ; all read/write routines for startfi files are gathered in module iostart.F90
  • added parallelism related routines init_phys_lmdz.F90, comgeomphy.F90, dimphy.F90, iniphysiq.F90, mod_grid_phy_lmdz.F90, mod_phys_lmdz_mpi_data.F90, mod_phys_lmdz_mpi_transfert.F90, mod_phys_lmdz_omp_data.F90, mod_phys_lmdz_omp_transfert.F90, mod_phys_lmdz_para.F90, mod_phys_lmdz_transfert_para.F90 in phymars and mod_const_mpi.F90 in dyn3d (for compliance with parallelism)
  • added created generic routines 'planetwide_maxval' and 'planetwide_minval', in module "planetwide_mod", that enable obtaining the max and min of a field over the whole planet. This should be further imroved with computation of means (possibly area weighed), etc.

EM

File size: 996 bytes
RevLine 
[135]1!-----------------------------------------------------------------------
2!   INCLUDE 'dimphys.h'
3
4! ngridmx : number of horizontal grid points
5! note: the -1/jjm term will be 0; unless jj=1
6      integer, parameter :: ngridmx = (2+(jjm-1)*iim - 1/jjm)   
7! nlayermx : number of atmospheric layers
8      integer, parameter :: nlayermx = llm
[1216]9! nsoilmx : number of subterranean layers ! nsoilmx is now in comsoil_h
[253]10      !integer, parameter :: nsoilmx = 4 ! for a test
[1216]11      !integer, parameter :: nsoilmx = 18 ! for z1=0.0002 m, depth = 18 m => mars case 
[863]12      !integer, parameter :: nsoilmx = 13 ! for z1=0.03 m, depth = 104.8 m => earth case
[135]13!-----------------------------------------------------------------------
[787]14
15      common/dimphys/cursor
16      integer cursor  !! this is the position of point 1 on the globe
17                      !! it is 1 obviously for sequential runs
18                      !! but might differ for paraller runs
19                      !! it is used in phyetat0 mostly
20
Note: See TracBrowser for help on using the repository browser.