source: trunk/LMDZ.GENERIC/libf/phystd/callkeys.h @ 1217

Last change on this file since 1217 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: 4.3 KB
RevLine 
[135]1!
2! For Fortran 77/Fortran 90 compliance always use line continuation
3! symbols '&' in columns 73 and 6
4!
[1216]5! Group commons according to their type for minimal performance impact
6
7      COMMON/callkeys_l/callrad,corrk,calldifv,UseTurbDiff,calladj      &
[253]8     &   , co2cond,callsoil                                             &
[1216]9     &   , season,diurnal,tlocked,rings_shadow,lwrite                   &
10     &   , callstats,calleofdump                                        &
[253]11     &   , enertest                                                     &
[873]12     &   , callgasvis,continuum,H2Ocont_simple,graybody                 &
[1216]13     &   , radfixed                                                     &
[728]14     &   , meanOLR, specOLR                                             &
[1216]15     &   , kastprof                                                     &
16     &   , nosurf, oblate                                               &     
17     &   , newtonian, testradtimes                                      &
[728]18     &   , check_cpp_match, force_cpp                                   &
[135]19     &   , rayleigh                                                     &
[1216]20     &   , stelbbody                                                    &
[135]21     &   , nearco2cond                                                  &
[1216]22     &   , tracer, mass_redistrib, varactive, varfixed                  &
[135]23     &   , sedimentation,water,watercond,waterrain                      &
[1175]24     &   , aeroco2,aeroh2o,aeroh2so4,aeroback2lay                       &
[726]25     &   , aerofixco2,aerofixh2o                                        &
[1216]26     &   , hydrology, sourceevol                                        &
27     &   , CLFvarying                                                   &
[1161]28     &   , strictboundcorrk                                                                                     
[135]29
[1216]30      COMMON/callkeys_i/iaervar,iddist,iradia,startype
31     
32      COMMON/callkeys_r/topdustref,Nmix_co2,dusttau,Fat1AU,stelTbb,     &
33     &                  Tstrat,tplanet,obs_tau_col_tropo,               &
34     &                  obs_tau_col_strato,pres_bottom_tropo,           &
35     &                  pres_top_tropo,pres_bottom_strato,              &
36     &                  pres_top_strato,size_tropo,size_strato,satval,  &
37     &                  CLFfixval,n2mixratio,co2supsat,pceil,albedosnow,&
38     &                  maxicethick,Tsaldiff,tau_relax,cloudlvl,        &
39     &                  icetstep,intheat,flatten,Rmean,J2,MassPlanet
40     
[596]41      logical callrad,corrk,calldifv,UseTurbDiff                        &
42     &   , calladj,co2cond,callsoil                                     &
[1174]43     &   , season,diurnal,tlocked,rings_shadow,lwrite                   &
[253]44     &   , callstats,calleofdump                                        &
[1133]45     &   , callgasvis,continuum,H2Ocont_simple,graybody                 &
[1161]46     &   , strictboundcorrk                                             
[135]47
48      logical enertest
49      logical nonideal
50      logical meanOLR
51      logical specOLR
[253]52      logical kastprof
53      logical newtonian
[538]54      logical check_cpp_match
[589]55      logical force_cpp
[253]56      logical testradtimes
[135]57      logical rayleigh
[253]58      logical stelbbody
[135]59      logical ozone
60      logical nearco2cond
61      logical tracer
[728]62      logical mass_redistrib
[135]63      logical varactive
64      logical varfixed
[728]65      logical radfixed
[135]66      logical sedimentation
67      logical water,watercond,waterrain
[1026]68      logical aeroco2,aeroh2o,aeroh2so4,aeroback2lay
[1175]69      logical aerofixco2,aerofixh2o
[253]70      logical hydrology
71      logical sourceevol
72      logical CLFvarying
[952]73      logical nosurf
[1194]74      logical oblate
[135]75
76      integer iddist
77      integer iaervar
78      integer iradia
79      integer startype
80
81      real topdustref
82      real Nmix_co2
[253]83      real dusttau
[135]84      real Fat1AU
[253]85      real stelTbb
86      real Tstrat
[135]87      real tplanet
[1151]88      real obs_tau_col_tropo
89      real obs_tau_col_strato
90      real pres_bottom_tropo
91      real pres_top_tropo
92      real pres_bottom_strato
93      real pres_top_strato
94      real size_tropo
95      real size_strato
[135]96      real satval
[253]97      real CLFfixval
98      real n2mixratio
99      real co2supsat
100      real pceil
101      real albedosnow
102      real maxicethick
103      real Tsaldiff
104      real tau_relax
[305]105      real cloudlvl
[486]106      real icetstep
[952]107      real intheat
[1174]108      real flatten
[1194]109      real Rmean
110      real J2
111      real MassPlanet
Note: See TracBrowser for help on using the repository browser.