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

Last change on this file since 935 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
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                                                     &
[873]10     &   , callgasvis,continuum,H2Ocont_simple,graybody                 &
[728]11     &   , Nmix_co2, radfixed, dusttau                                  &
12     &   , meanOLR, specOLR                                             &
13     &   , kastprof, noradsurf, Tstrat                                  &
14     &   , newtonian, tau_relax, testradtimes                           &
15     &   , check_cpp_match, force_cpp                                   &
[135]16     &   , rayleigh                                                     &
[728]17     &   , stelbbody, stelTbb                                           &
[135]18     &   , tplanet                                                      &
[728]19     &   , startype, Fat1AU                                             &
[135]20     &   , nearco2cond                                                  &
[728]21     &   , tracer, mass_redistrib, varactive, varfixed, satval          &
[135]22     &   , sedimentation,water,watercond,waterrain                      &
[726]23     &   , aeroco2,aeroh2o,aeroh2so4                                    &
24     &   , aerofixco2,aerofixh2o                                        &
[728]25     &   , hydrology, sourceevol, icetstep, albedosnow                  &
26     &   , maxicethick, Tsaldiff                                        &
27     &   , CLFfixval, CLFvarying                                        &
[253]28     &   , n2mixratio                                                   &
29     &   , co2supsat                                                    &
[305]30     &   , cloudlvl                                                     &
[253]31     &   , pceil                                                   
[135]32
[596]33      logical callrad,corrk,calldifv,UseTurbDiff                        &
34     &   , calladj,co2cond,callsoil                                     &
[253]35     &   , season,diurnal,tlocked,lwrite                                &
36     &   , callstats,calleofdump                                        &
[873]37     &   , callgasvis,continuum,H2Ocont_simple,graybody
[135]38
39      logical enertest
40      logical nonideal
41      logical meanOLR
42      logical specOLR
[253]43      logical kastprof
44      logical newtonian
[538]45      logical check_cpp_match
[589]46      logical force_cpp
[253]47      logical testradtimes
[135]48      logical rayleigh
[253]49      logical stelbbody
[135]50      logical ozone
51      logical nearco2cond
52      logical tracer
[728]53      logical mass_redistrib
[135]54      logical varactive
55      logical varfixed
[728]56      logical radfixed
[135]57      logical sedimentation
58      logical water,watercond,waterrain
[726]59      logical aeroco2,aeroh2o,aeroh2so4
60      logical aerofixco2,aerofixh2o
[253]61      logical hydrology
62      logical sourceevol
63      logical CLFvarying
64      logical noradsurf
[135]65
66      integer iddist
67      integer iaervar
68      integer iradia
69      integer startype
70
71      real topdustref
72      real Nmix_co2
[253]73      real dusttau
[135]74      real Fat1AU
[253]75      real stelTbb
76      real Tstrat
[135]77      real tplanet
78      real satval
[253]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
[305]87      real cloudlvl
[486]88      real icetstep
89
Note: See TracBrowser for help on using the repository browser.