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

Last change on this file since 548 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
RevLine 
[38]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    &
[358]14     &   ,microphys,caps,photochem,calltherm,outptherm,callrichsl       &
[485]15     &   ,callslope,tituscap
[38]16     
17      COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
[414]18     &   ,dustbin,nqchem_min,nltemodel,nircorr
[38]19     
[544]20      COMMON/callkeys_r/topdustref,solarcondate,semi,alphan,            &
21     &   tke_heat_flux
[38]22     
23      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
24     &   season,diurnal,lwrite,calllott                                 &
25     &   ,callstats,calleofdump                                         &
26     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
[161]27     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
[485]28     &   ,calltherm,outptherm,callrichsl,callslope,tituscap
[38]29
30
31      logical callemis
32      logical callg2d
33      logical linear
34
35      real topdustref
36      real semi
37      real alphan
38      real solarcondate
[544]39      real tke_heat_flux
[38]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
[358]53      logical sedimentation,activice,water,microphys,caps
[38]54      logical photochem
55      integer nqchem_min
[414]56      integer nltemodel
57      integer nircorr
[38]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.