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

Last change on this file since 937 was 873, checked in by aslmd, 12 years ago

LMDZ.GENERIC (and LMDZ.UNIVERSAL)

  • Optimized calculations for continuum (done for H2 and He, to be done for others)
    • new common bilinear interpolation routine (bilinearbig)
    • optimization: only one calculation is actually needed

to find indexes of wavelength for bilinear interpolation
... because this will not change with level and integration step!

  • optimization: use while loop in bilinearbig
  • completely similar results obtained (test case for a gas giant, many simulated days)

NB: those changes really improve gcm speed (factor 2.2 for whole model!)

continuum was very expensive, now very cheap
--> e.g. 1 day, 25 dyn ts, 5 phys ts
--> before: 243 seconds (including 120 seconds for continuum bilinear interpolation)
--> after: 108 seconds

  • Corrected a bug: Continuum in inifis instead of continuum

... until now, most users (unbeknownst to them) were running with the continuum by default!

  • Cosmetic changes in optcv (mostly spaces and line breaks)

... so that comparisons with optci are easy e.g. through vimdiff
File size: 3.5 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, radfixed, dusttau                                  &
12     &   , meanOLR, specOLR                                             &
13     &   , kastprof, noradsurf, Tstrat                                  &
14     &   , newtonian, tau_relax, testradtimes                           &
15     &   , check_cpp_match, force_cpp                                   &
16     &   , rayleigh                                                     &
17     &   , stelbbody, stelTbb                                           &
18     &   , tplanet                                                      &
19     &   , startype, Fat1AU                                             &
20     &   , nearco2cond                                                  &
21     &   , tracer, mass_redistrib, varactive, varfixed, satval          &
22     &   , sedimentation,water,watercond,waterrain                      &
23     &   , aeroco2,aeroh2o,aeroh2so4                                    &
24     &   , aerofixco2,aerofixh2o                                        &
25     &   , hydrology, sourceevol, icetstep, albedosnow                  &
26     &   , maxicethick, Tsaldiff                                        &
27     &   , CLFfixval, CLFvarying                                        &
28     &   , n2mixratio                                                   &
29     &   , co2supsat                                                    &
30     &   , cloudlvl                                                     &
31     &   , pceil                                                   
32
33      logical callrad,corrk,calldifv,UseTurbDiff                        &
34     &   , calladj,co2cond,callsoil                                     &
35     &   , season,diurnal,tlocked,lwrite                                &
36     &   , callstats,calleofdump                                        &
37     &   , callgasvis,continuum,H2Ocont_simple,graybody
38
39      logical enertest
40      logical nonideal
41      logical meanOLR
42      logical specOLR
43      logical kastprof
44      logical newtonian
45      logical check_cpp_match
46      logical force_cpp
47      logical testradtimes
48      logical rayleigh
49      logical stelbbody
50      logical ozone
51      logical nearco2cond
52      logical tracer
53      logical mass_redistrib
54      logical varactive
55      logical varfixed
56      logical radfixed
57      logical sedimentation
58      logical water,watercond,waterrain
59      logical aeroco2,aeroh2o,aeroh2so4
60      logical aerofixco2,aerofixh2o
61      logical hydrology
62      logical sourceevol
63      logical CLFvarying
64      logical noradsurf
65
66      integer iddist
67      integer iaervar
68      integer iradia
69      integer startype
70
71      real topdustref
72      real Nmix_co2
73      real dusttau
74      real Fat1AU
75      real stelTbb
76      real Tstrat
77      real tplanet
78      real satval
79      real CLFfixval
80      real n2mixratio
81      real co2supsat
82      real pceil
83      real albedosnow
84      real maxicethick
85      real Tsaldiff
86      real tau_relax
87      real cloudlvl
88      real icetstep
89
Note: See TracBrowser for help on using the repository browser.