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

Last change on this file since 726 was 726, checked in by jleconte, 12 years ago

17/07/2012 == JL for LK

  • Generalization of aerosol scheme:
    • any number of aerosols can be used and id numbers are determined consistently by the code. Aerosol order not important anymore.
    • addition of a module with the id numbers for aerosols (aerosol_mod.F90).
    • initialization of aerosols id numbers in iniaerosol.F90
    • compile with -s x where x *must* be equal to the number of aerosols turned on in callphys.def (either by a flag or by dusttau>0 for dust). => may have to erase object files when compiling with s option for the first time.
  • For no aerosols, run with aeroco2=.true. and aerofixco2=.true (the default distribution for fixed co2

aerosols is 1.e-9; can be changed in aeropacity).

  • If starting from an old start file, recreate start file with the q=0 option in newstart.e.
  • update callphys.def with aeroXXX and aerofixXXX options (only XXX=co2,h2o supported for

now). Dust is activated by setting dusttau>0. See the early mars case in deftank.

  • To add other aerosols, see Laura Kerber.
File size: 4.8 KB
Line 
1!
2! For Fortran 77/Fortran 90 compliance always use line continuation
3! symbols '&' in columns 73 and 6
4!
5      COMMON/callkeys/callrad,corrk,calldifv,UseTurbDiff,calladj        &
6     &   , co2cond,callsoil                                             &
7     &   , season,diurnal,tlocked,iradia,lwrite                         &
8     &   , iaervar,iddist,topdustref,callstats,calleofdump              &
9     &   , enertest                                                     &
10     &   , callgasvis,Continuum,H2Ocont_simple,graybody                 &
11     &   , Nmix_co2, Nmix_h2o                                           &
12     &   , dusttau                                                      &
13     &   , meanOLR                                                      &
14     &   , specOLR                                                      &
15     &   , kastprof                                                     &
16     &   , noradsurf                                                    &
17     &   , Tstrat                                                       &
18     &   , newtonian                                                    &
19     &   , check_cpp_match                                              &
20     &   , force_cpp                                                    &
21     &   , tau_relax                                                    &
22     &   , testradtimes                                                 &
23     &   , rayleigh                                                     &
24     &   , stelbbody                                                    &
25     &   , stelTbb                                                      &
26     &   , tplanet                                                      &
27     &   , startype                                                     &
28     &   , Fat1AU                                                       &
29     &   , nearco2cond                                                  &
30     &   , tracer                                                       &
31     &   , varactive                                                    &
32     &   , varfixed                                                     &
33     &   , satval                                                       &
34     &   , sedimentation,water,watercond,waterrain                      &
35     &   , rainthreshold                                                &
36     &   , aeroco2,aeroh2o,aeroh2so4                                    &
37     &   , aerofixco2,aerofixh2o                                        &
38     &   , hydrology                                                    &
39     &   , sourceevol                                                   &
40     &   , icetstep                                                     &
41     &   , albedosnow                                                   &
42     &   , maxicethick                                                  &
43     &   , Tsaldiff                                                     &
44     &   , CLFfixval                                                    &
45     &   , CLFvarying                                                   &
46     &   , n2mixratio                                                   &
47     &   , co2supsat                                                    &
48     &   , cloudlvl                                                     &
49     &   , pceil                                                   
50
51      logical callrad,corrk,calldifv,UseTurbDiff                        &
52     &   , calladj,co2cond,callsoil                                     &
53     &   , season,diurnal,tlocked,lwrite                                &
54     &   , callstats,calleofdump                                        &
55     &   , callgasvis,Continuum,H2Ocont_simple,graybody
56
57      logical enertest
58      logical nonideal
59      logical meanOLR
60      logical specOLR
61      logical kastprof
62      logical newtonian
63      logical check_cpp_match
64      logical force_cpp
65      logical testradtimes
66      logical rayleigh
67      logical stelbbody
68      logical ozone
69      logical nearco2cond
70      logical tracer
71      logical varactive
72      logical varfixed
73      logical sedimentation
74      logical water,watercond,waterrain
75      logical aeroco2,aeroh2o,aeroh2so4
76      logical aerofixco2,aerofixh2o
77      logical hydrology
78      logical sourceevol
79      logical CLFvarying
80      logical noradsurf
81
82      integer iddist
83      integer iaervar
84      integer iradia
85      integer startype
86
87      real topdustref
88      real Nmix_co2
89      real Nmix_h2o
90      real dusttau
91      real Fat1AU
92      real stelTbb
93      real Tstrat
94      real tplanet
95      real satval
96      real rainthreshold
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
Note: See TracBrowser for help on using the repository browser.