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

Last change on this file since 227 was 227, checked in by milmd, 10 years ago

Last LMDZ version (1315) with OpenMP directives and other stuff
  • 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                                             &
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 enertest
53      logical nonideal
54      logical meanOLR
55      logical specOLR
56      logical kastprof
57      logical newtonian
58      logical check_cpp_match
59      logical force_cpp
60      logical testradtimes
61      logical rayleigh
62      logical stelbbody
63      logical ozone
64      logical nearco2cond
65      logical tracer
66      logical mass_redistrib
67      logical varactive
68      logical varfixed
69      logical radfixed
70      logical sedimentation
71      logical water,watercond,waterrain
72      logical aeroco2,aeroh2o,aeroh2so4,aeroback2lay
73      logical aerofixco2,aerofixh2o
74      logical hydrology
75      logical sourceevol
76      logical CLFvarying
77      logical nosurf
78      logical oblate
79      logical ok_slab_ocean
80      logical ok_slab_sic
81      logical ok_slab_heat_transp
82
83      integer iddist
84      integer iaervar
85      integer iradia
86      integer startype
87
88      real topdustref
89      real Nmix_co2
90      real dusttau
91      real Fat1AU
92      real stelTbb
93      real Tstrat
94      real tplanet
95      real obs_tau_col_tropo
96      real obs_tau_col_strato
97      real pres_bottom_tropo
98      real pres_top_tropo
99      real pres_bottom_strato
100      real pres_top_strato
101      real size_tropo
102      real size_strato
103      real satval
104      real CLFfixval
105      real n2mixratio
106      real co2supsat
107      real pceil
108      real albedosnow
109      real maxicethick
110      real Tsaldiff
111      real tau_relax
112      real cloudlvl
113      real icetstep
114      real intheat
115      real flatten
116      real Rmean
117      real J2
118      real MassPlanet
119     
120      logical :: iscallphys=.false.!existence of callphys.def
Note: See TracBrowser for help on using the repository browser.