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