source: LMDZ6/trunk/libf/phylmd/ecrad/yoeaeratm.F90 @ 4062

Last change on this file since 4062 was 3908, checked in by idelkadi, 3 years ago

Online implementation of the radiative transfer code ECRAD in the LMDZ model.

  • Inclusion of the ecrad directory containing the sources of the ECRAD code
    • interface routine : radiation_scheme.F90
  • Adaptation of compilation scripts :
    • compilation under CPP key CPP_ECRAD
    • compilation with option "-rad ecard" or "-ecard true"
    • The "-rad old/rtm/ecran" build option will need to replace the "-rrtm true" and "-ecrad true" options in the future.
  • Runing LMDZ simulations with ecrad, you need :
    • logical key iflag_rrtm = 2 in physiq.def
    • namelist_ecrad (DefLists?)
    • the directory "data" containing the configuration files is temporarily placed in ../libfphylmd/ecrad/
  • Compilation and execution are tested in the 1D case. The repository under svn would allow to continue the implementation work: tests, verification of the results, ...
File size: 4.6 KB
Line 
1MODULE YOEAERATM
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7SAVE
8
9!     ------------------------------------------------------------------
10!*    ** *YOEAERATM* - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE
11!     ------------------------------------------------------------------
12
13INTEGER(KIND=JPIM) :: NAERCONF
14INTEGER(KIND=JPIM) :: NINIDAY   
15INTEGER(KIND=JPIM) :: NXT3DAER
16INTEGER(KIND=JPIM) :: NDD1, NSS1
17INTEGER(KIND=JPIM) :: NBCOPTP, NDDOPTP, NOMOPTP, NSSOPTP, NSUOPTP
18INTEGER(KIND=JPIM) :: NVISWL
19INTEGER(KIND=JPIM) :: NDRYDEP
20INTEGER(KIND=JPIM) :: NWHTDDEP, NTDDEP, NINDDDEP(15)
21INTEGER(KIND=JPIM) :: NWHTSCAV, NTSCAV, NINDSCAV(15)
22INTEGER(KIND=JPIM) :: NWHTSEDM, NTSEDM, NINDSEDM(15)
23INTEGER(KIND=JPIM) :: NWHTWDEP, NTWDEP, NINDWDEP(15)
24
25REAL(KIND=JPRB) :: RGRATE
26REAL(KIND=JPRB) :: RMASSE(15)
27
28REAL(KIND=JPRB) :: REPSCAER
29
30LOGICAL :: LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERHYGRO, LAERLISI
31LOGICAL :: LAERNGAT , LAERSCAV , LAERSEDIM, LAERSURF , LAERELVS , LAER6SDIA
32LOGICAL :: LAERGTOP , LAERRAD  , LAERCCN  , LAEROPT(8),LAERINIT , LAERVOL
33LOGICAL :: LAERCSTR , LAERDIAG1, LAERDIAG2, LAERRRTM , LAERUVP  , LUVINDX   
34LOGICAL :: LAEREXTR , LAERGBUD , LAERPRNT , LAERCALIP
35
36!     ------------------------------------------------------------------
37! NDD1       : location of first bin for desert dust
38! NSS1       : location of first bin for sea-salt
39! NBCOPTP    : index for choosing the black carbon LW and SW optic.prop. (1: Boucher, 2: Bond, Bergstrom, 3: Stier et al.)
40! NDDOPTP    : index for choosing the dust LW and SW optic.prop. (1: Boucher, 2: Highwood, 3: Woodward)
41! NOMOPTP    : index for choosing the organic carbon optic.prop.
42! NSSOPTP    : index for choosing the sea salt optic.prop.
43! NSUOPTP    : index for choosing the sulphate optic.prop.
44! NVISWL     : index of wavelength for visibility computations
45! RMFMIN     : minimum mass flux for convective aerosol transport
46! RGRATE     : transformation rate from hygrophopic to hygrophilic for BC and OM aerosols
47! RMASSE     : Molar mass: N.B.: either g/mol or Avogadro number
48
49! REPSCAER   : security on aerosol concentration: always >= 1.E-15
50
51! LAERCLIMG  : .T. to start prognostic aerosols with geographical monthly
52!                  mean climatology
53! LAERCLIMZ  : .T. to start prognostic aerosols with zonal annual mean
54!                  climatology
55! LAERCLIST  : .T. to start prognostic aerosols with geographical monthly
56!                  mean climatology for background stratospheric only
57! LAERDRYDP  : .T. dry deposition is active
58! LAERHYDRO  : .T. hygroscopic effects on BC and OM aerosols
59! LAERNGAT   : .T. prevents negative aerosol concentrations
60! LAERSCAV   : .T. in-cloud and below cloud scavenging is active
61! LAERSEDIM  : .T. sedimentation is active
62! LAERSURF   : .T. if surface emissions
63! LAERELVS   : .T. if "elevated" source
64! LAER6SDIA  : .T. if radiance diagnostics with 6S
65! LAERGTOP   : .T. if gas-to-particle conversion for SO2/SO4
66! LAERRAD    : .T. if there is any prognostic aerosols used for RT
67! LAEROPT(.) : .T. if a given aerosol type is radiatively interactive
68! LAERCCN    : .T. if prognostic aerosols are used to define the Re of liq.wat.clds
69! LAERUVP    : .T. if prognostic aerosols are used in UV-processor
70! LAERCSTR   : .T. if climatological stratospheric aerosols are used in radiation
71!                  schemes with the prognostic tropospheric aerosols.
72! LAERRRTM   : .T. if RRTM schemes get the information from the prognostic aerosols
73! LAERINIT   : .T. if analysed prognostic aerosols are ONLY used as "climatological" aerosols
74! LAERVOL    : .T. if volcanic aerosol is considered
75! NDRYDEP    : dry deposition 1: a la GEMS; 2: "exp" (a la D_GRG_4.6)
76! NWHTDDEP   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
77! NTDDEP     : total number of aerosol species to be in- and below-cloud scavenged
78! NINDDDEP   : actual set of aerosol indices to be dry deposited
79! NWHTSEDM   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
80! NTSEDM     : total number of aerosol species to be in- and below-cloud scavenged
81! NINDSEDM   : actual set of aerosol indices to be sedimented
82! NWHTWDEP   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
83! NTWDEP     : total number of aerosol species to be in- and below-cloud scavenged
84! NINDWDEP   : actual set of aerosol indices to be scavenged
85! NWHTSCAV   : =0 only SS+DU;  =1 SS+DU+VOL;  =2 SS+DU+OM+BC+SU+VOL
86! NTSCAV     : total number of aerosol species to be in- and below-cloud scavenged
87! NINDSCAV   : actual set of aerosol indices to be scavenged
88! LAERCALIP  : .T. works with LAERLISI=t, store only the CALIOP-type profile at 532 nm
89!     ------------------------------------------------------------------
90END MODULE YOEAERATM
91
Note: See TracBrowser for help on using the repository browser.