source: codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/callkeys.h @ 310

Last change on this file since 310 was 310, checked in by millour, 10 years ago

Add the possibility to have a sponge acting on the temperature
in the physics, using flag "callradsponge=.true.". The sponge
vertical extention is the same as the sponge layer in the dynamics.
EM
  • Property svn:eol-style set to native
File size: 4.7 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,callradsponge                               &
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     &   , ok_slab_ocean                                                &
30     &   , ok_slab_sic                                                  &
31     &   , ok_slab_heat_transp                                         
32
33
34      COMMON/callkeys_i/iaervar,iddist,iradia,startype
35     
36      COMMON/callkeys_r/topdustref,Nmix_co2,dusttau,Fat1AU,stelTbb,     &
37     &                  Tstrat,tplanet,obs_tau_col_tropo,               &
38     &                  obs_tau_col_strato,pres_bottom_tropo,           &
39     &                  pres_top_tropo,pres_bottom_strato,              &
40     &                  pres_top_strato,size_tropo,size_strato,satval,  &
41     &                  CLFfixval,n2mixratio,co2supsat,pceil,albedosnow,&
42     &                  maxicethick,Tsaldiff,tau_relax,cloudlvl,        &
43     &                  icetstep,intheat,flatten,Rmean,J2,MassPlanet
44     
45      logical callrad,corrk,calldifv,UseTurbDiff                        &
46     &   , calladj,co2cond,callsoil                                     &
47     &   , season,diurnal,tlocked,rings_shadow,lwrite                   &
48     &   , callstats,calleofdump                                        &
49     &   , callgasvis,continuum,H2Ocont_simple,graybody                 &
50     &   , strictboundcorrk                                             
51
52      logical callradsponge
53      logical enertest
54      logical nonideal
55      logical meanOLR
56      logical specOLR
57      logical kastprof
58      logical newtonian
59      logical check_cpp_match
60      logical force_cpp
61      logical testradtimes
62      logical rayleigh
63      logical stelbbody
64      logical ozone
65      logical nearco2cond
66      logical tracer
67      logical mass_redistrib
68      logical varactive
69      logical varfixed
70      logical radfixed
71      logical sedimentation
72      logical water,watercond,waterrain
73      logical aeroco2,aeroh2o,aeroh2so4,aeroback2lay
74      logical aerofixco2,aerofixh2o
75      logical hydrology
76      logical sourceevol
77      logical CLFvarying
78      logical nosurf
79      logical oblate
80      logical ok_slab_ocean
81      logical ok_slab_sic
82      logical ok_slab_heat_transp
83
84      integer iddist
85      integer iaervar
86      integer iradia
87      integer startype
88
89      real topdustref
90      real Nmix_co2
91      real dusttau
92      real Fat1AU
93      real stelTbb
94      real Tstrat
95      real tplanet
96      real obs_tau_col_tropo
97      real obs_tau_col_strato
98      real pres_bottom_tropo
99      real pres_top_tropo
100      real pres_bottom_strato
101      real pres_top_strato
102      real size_tropo
103      real size_strato
104      real satval
105      real CLFfixval
106      real n2mixratio
107      real co2supsat
108      real pceil
109      real albedosnow
110      real maxicethick
111      real Tsaldiff
112      real tau_relax
113      real cloudlvl
114      real icetstep
115      real intheat
116      real flatten
117      real Rmean
118      real J2
119      real MassPlanet
120     
121      logical :: iscallphys=.false.!existence of callphys.def
Note: See TracBrowser for help on using the repository browser.