source: trunk/LMDZ.MARS/libf/phymars/callkeys.h @ 544

Last change on this file since 544 was 544, checked in by acolaitis, 13 years ago

27/02/12 == AC

Continuation of thermals setting, comparisons with mesoscale results on Case C
Added possibility to call gcm (or 1d) with constant prescribed sensible heat flux, in the spirit of direct comparisons with LES

... This is directly comparable to the variable tke_heat_flux in namelist.input
... Requires the use of yamada4.F from terrestrial GCM (mixes more, seem more numerically stable)
... Usually requires high timesteps (>1000) to avoids crashes. Best approach is to compare
height of first model level z1 and teta_1 between LES and 1D, and increase the timesteps until results
between the two models are comparable (might require a slitghly different tke_heat_flux between the two models
due to difference in vertical diffusion schemes and subgrid effects)
... Syntax for use is to add "tke_heat_flux = ..." in callphys.def

Corrected some stuff with tke transport in thermals (which is anyway deactivated but one day maybe...)
File size: 2.2 KB
Line 
1!
2! For Fortran 77/Fortran 90 compliance always use line continuation
3! symbols '&' in columns 73 and 6
4!
5! NB: to keep commons aligned, it is better to split them in groups
6!     of given types (logical, integer, real, ...)
7
8      COMMON/callkeys_l/callrad,calldifv,calladj,callcond,callsoil      &
9     &   ,season,diurnal,lwrite,calllott,callstats,calleofdump          &
10     &   ,callnirco2,callnlte,callthermos,callconduct,calleuv           &
11     &   ,callmolvis,callmoldiff,thermochem,thermoswater,callemis       &
12     &   ,callg2d,linear,rayleigh,tracer,active,doubleq,submicron       &
13     &   ,lifting,callddevil,scavenging,sedimentation,activice,water    &
14     &   ,microphys,caps,photochem,calltherm,outptherm,callrichsl       &
15     &   ,callslope,tituscap
16     
17      COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
18     &   ,dustbin,nqchem_min,nltemodel,nircorr
19     
20      COMMON/callkeys_r/topdustref,solarcondate,semi,alphan,            &
21     &   tke_heat_flux
22     
23      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
24     &   season,diurnal,lwrite,calllott                                 &
25     &   ,callstats,calleofdump                                         &
26     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
27     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
28     &   ,calltherm,outptherm,callrichsl,callslope,tituscap
29
30
31      logical callemis
32      logical callg2d
33      logical linear
34
35      real topdustref
36      real semi
37      real alphan
38      real solarcondate
39      real tke_heat_flux
40
41      integer iddist
42      integer iaervar
43      integer iradia
44      integer ilwd
45      integer ilwb
46      integer ilwn
47      integer ncouche
48
49      logical rayleigh
50      logical tracer
51      integer dustbin
52      logical active,doubleq,submicron,lifting,callddevil,scavenging
53      logical sedimentation,activice,water,microphys,caps
54      logical photochem
55      integer nqchem_min
56      integer nltemodel
57      integer nircorr
58
59      integer swrtype ! type of short wave (solar wavelength) radiative
60      ! transfer to use 1: Fouquart 2: Toon.
61      parameter (swrtype=2)
62!      parameter (swrtype=2)
Note: See TracBrowser for help on using the repository browser.