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

Last change on this file since 1217 was 1216, checked in by emillour, 12 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
Line 
1!
2! For Fortran 77/Fortran 90 compliance always use line continuation
3! symbols '&' in columns 73 and 6
4!
5! Group commons according to their type for minimal performance impact
6
7      COMMON/callkeys_l/callrad,corrk,calldifv,UseTurbDiff,calladj      &
8     &   , co2cond,callsoil                                             &
9     &   , season,diurnal,tlocked,rings_shadow,lwrite                   &
10     &   , callstats,calleofdump                                        &
11     &   , enertest                                                     &
12     &   , callgasvis,continuum,H2Ocont_simple,graybody                 &
13     &   , radfixed                                                     &
14     &   , meanOLR, specOLR                                             &
15     &   , kastprof                                                     &
16     &   , nosurf, oblate                                               &     
17     &   , newtonian, testradtimes                                      &
18     &   , check_cpp_match, force_cpp                                   &
19     &   , rayleigh                                                     &
20     &   , stelbbody                                                    &
21     &   , nearco2cond                                                  &
22     &   , tracer, mass_redistrib, varactive, varfixed                  &
23     &   , sedimentation,water,watercond,waterrain                      &
24     &   , aeroco2,aeroh2o,aeroh2so4,aeroback2lay                       &
25     &   , aerofixco2,aerofixh2o                                        &
26     &   , hydrology, sourceevol                                        &
27     &   , CLFvarying                                                   &
28     &   , strictboundcorrk                                                                                     
29
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     
41      logical callrad,corrk,calldifv,UseTurbDiff                        &
42     &   , calladj,co2cond,callsoil                                     &
43     &   , season,diurnal,tlocked,rings_shadow,lwrite                   &
44     &   , callstats,calleofdump                                        &
45     &   , callgasvis,continuum,H2Ocont_simple,graybody                 &
46     &   , strictboundcorrk                                             
47
48      logical enertest
49      logical nonideal
50      logical meanOLR
51      logical specOLR
52      logical kastprof
53      logical newtonian
54      logical check_cpp_match
55      logical force_cpp
56      logical testradtimes
57      logical rayleigh
58      logical stelbbody
59      logical ozone
60      logical nearco2cond
61      logical tracer
62      logical mass_redistrib
63      logical varactive
64      logical varfixed
65      logical radfixed
66      logical sedimentation
67      logical water,watercond,waterrain
68      logical aeroco2,aeroh2o,aeroh2so4,aeroback2lay
69      logical aerofixco2,aerofixh2o
70      logical hydrology
71      logical sourceevol
72      logical CLFvarying
73      logical nosurf
74      logical oblate
75
76      integer iddist
77      integer iaervar
78      integer iradia
79      integer startype
80
81      real topdustref
82      real Nmix_co2
83      real dusttau
84      real Fat1AU
85      real stelTbb
86      real Tstrat
87      real tplanet
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
96      real satval
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
105      real cloudlvl
106      real icetstep
107      real intheat
108      real flatten
109      real Rmean
110      real J2
111      real MassPlanet
Note: See TracBrowser for help on using the repository browser.