[3880] | 1 | MODULE YOEAERATM |
---|
| 2 | |
---|
| 3 | USE PARKIND1 ,ONLY : JPIM ,JPRB |
---|
| 4 | |
---|
| 5 | IMPLICIT NONE |
---|
| 6 | |
---|
| 7 | SAVE |
---|
| 8 | |
---|
| 9 | ! ------------------------------------------------------------------ |
---|
| 10 | !* ** *YOEAERATM* - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE |
---|
| 11 | ! ------------------------------------------------------------------ |
---|
| 12 | |
---|
| 13 | INTEGER(KIND=JPIM) :: NAERCONF |
---|
| 14 | INTEGER(KIND=JPIM) :: NINIDAY |
---|
| 15 | INTEGER(KIND=JPIM) :: NXT3DAER |
---|
| 16 | INTEGER(KIND=JPIM) :: NDD1, NSS1 |
---|
| 17 | INTEGER(KIND=JPIM) :: NBCOPTP, NDDOPTP, NOMOPTP, NSSOPTP, NSUOPTP |
---|
| 18 | INTEGER(KIND=JPIM) :: NVISWL |
---|
| 19 | INTEGER(KIND=JPIM) :: NDRYDEP |
---|
| 20 | INTEGER(KIND=JPIM) :: NWHTDDEP, NTDDEP, NINDDDEP(15) |
---|
| 21 | INTEGER(KIND=JPIM) :: NWHTSCAV, NTSCAV, NINDSCAV(15) |
---|
| 22 | INTEGER(KIND=JPIM) :: NWHTSEDM, NTSEDM, NINDSEDM(15) |
---|
| 23 | INTEGER(KIND=JPIM) :: NWHTWDEP, NTWDEP, NINDWDEP(15) |
---|
| 24 | |
---|
| 25 | REAL(KIND=JPRB) :: RGRATE |
---|
| 26 | REAL(KIND=JPRB) :: RMASSE(15) |
---|
| 27 | |
---|
| 28 | REAL(KIND=JPRB) :: REPSCAER |
---|
| 29 | |
---|
| 30 | LOGICAL :: LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERHYGRO, LAERLISI |
---|
| 31 | LOGICAL :: LAERNGAT , LAERSCAV , LAERSEDIM, LAERSURF , LAERELVS , LAER6SDIA |
---|
| 32 | LOGICAL :: LAERGTOP , LAERRAD , LAERCCN , LAEROPT(8),LAERINIT , LAERVOL |
---|
| 33 | LOGICAL :: LAERCSTR , LAERDIAG1, LAERDIAG2, LAERRRTM , LAERUVP , LUVINDX |
---|
| 34 | LOGICAL :: 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 | ! ------------------------------------------------------------------ |
---|
| 90 | END MODULE YOEAERATM |
---|
| 91 | |
---|