source: trunk/WRF.COMMON/WRFV2/meso_callkeys_newphys.h @ 3547

Last change on this file since 3547 was 30, checked in by aslmd, 14 years ago

LMD_MM_MARS: plateforme commune ancienne/nouvelle physique avant test

File size: 2.6 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,calldifv,calladj,callcond,callsoil,       &
6     &   season,diurnal,iradia,lwrite,calllott                          &
7     &   ,iaervar,iddist,topdustref,callstats,calleofdump               &
8     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
9     &        calleuv,callmolvis,callmoldiff,thermochem                 &
10     &   , solarcondate, thermoswater                                   &
11     &   , semi                                                         &
12     &   , callemis                                                     &
13     &   , callg2d                                                      &
14     &   , linear                                                       &
15     &   , ilwd                                                         &
16     &   , ilwb                                                         &
17     &   , ilwn                                                         &
18     &   , ncouche                                                      &
19     &   , alphan                                                       &
20     &   , rayleigh                                                     &
21     &   , tracer                                                       &
22     &   , dustbin,active,doubleq,lifting,callddevil,scavenging         &
23     &   , sedimentation,activice,water,caps                            &
24     &   , photochem,nqchem_min                                         
25
26      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
27     &   season,diurnal,lwrite,calllott                                 &
28     &   ,callstats,calleofdump                                         &
29     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
30     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater
31
32
33      logical callemis
34      logical callg2d
35      logical linear
36
37      real topdustref
38      real semi
39      real alphan
40      real solarcondate
41
42      integer ecri_phys
43      integer iddist
44      integer iaervar
45      integer iradia
46      integer ilwd
47      integer ilwb
48      integer ilwn
49      integer ncouche
50
51      logical rayleigh
52      logical tracer
53      integer dustbin
54      logical active,doubleq,lifting,callddevil,scavenging
55      logical sedimentation,activice,water,caps
56      !!! plus besoin de iceparty ??
57      logical photochem
58      integer nqchem_min
59
60      integer swrtype ! type of short wave (solar wavelength) radiative
61      ! transfer to use 1: Fouquart 2: Toon.
62      parameter (swrtype=2)
63!      parameter (swrtype=2)
Note: See TracBrowser for help on using the repository browser.