source: LMDZ6/branches/contrails/libf/phylmd/yoerad_strataer_rrtm.f90 @ 5440

! Sourced from rrtm/yoerad.F90 to allow compilation of StratAer blocks

MODULE yoerad

  IMPLICIT NONE

  SAVE

  !     ------------------------------------------------------------------
  !*    ** *YOERAD* - CONTROL OPTIONS FOR RADIATION CONFIGURATION
  !     ------------------------------------------------------------------

  INTEGER :: NAER
  INTEGER :: NMODE
  INTEGER :: NOZOCL
  INTEGER :: NRADFR
  INTEGER :: NRADPFR
  INTEGER :: NRADPLA
  INTEGER :: NRINT
  INTEGER :: NRADINT
  INTEGER :: NRADRES
  INTEGER :: NRADNFR
  INTEGER :: NRADSFR
  INTEGER :: NOVLP
  INTEGER :: NRPROMA
  INTEGER :: NLW
  !INTEGER :: NSW  mis dans .def MPL 20140211
  INTEGER :: NSWNL
  INTEGER :: NSWTL
  INTEGER :: NTSW
  INTEGER :: NUV
  INTEGER :: NCSRADF
  INTEGER :: NICEOPT
  INTEGER :: NLIQOPT
  INTEGER :: NRADIP
  INTEGER :: NRADLP
  INTEGER :: NINHOM
  INTEGER :: NLAYINH
  INTEGER :: NLNGR1H
  INTEGER :: NPERTAER
  INTEGER :: NPERTOZ
  INTEGER :: NSCEN
  INTEGER :: NHINCSOL
  INTEGER :: NMCICA

  LOGICAL :: LERAD1H
  LOGICAL :: LERADHS
  LOGICAL :: LEPO3RA
  LOGICAL :: LRADLB
  LOGICAL :: LONEWSW
  LOGICAL :: LECSRAD
  LOGICAL :: LRRTM
  LOGICAL :: LSRTM
  LOGICAL :: LDIFFC
  LOGICAL :: LHVOLCA
  LOGICAL :: LNEWAER
  LOGICAL :: LNOTROAER
  LOGICAL :: LRAYL
  LOGICAL :: LOPTRPROMA
  LOGICAL :: LECO2VAR
  LOGICAL :: LHGHG

  CHARACTER (LEN = 256) :: CRTABLEDIR
  CHARACTER (LEN = 32) :: CRTABLEFIL
  LOGICAL :: LCCNL
  LOGICAL :: LCCNO

  REAL :: RAOVLP, RBOVLP
  REAL :: RCCNLND, RCCNSEA
  LOGICAL :: LEDBUG
  REAL :: RPERTOZ, RRe2De
  REAL :: RLWINHF, RSWINHF

  !        * E.C.M.W.F. PHYSICS PACKAGE *

  !     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14

  !  NAME     TYPE     PURPOSE
  !  ----  :  ----   : ---------------------------------------------------
  ! LERAD1H: LOGICAL : .T. TO ALLOW MORE FREQUENT RADIATION CALCULATIONS
  !                  : DURING FIRST N HOURS OF FORECAST
  ! NLNGR1H: INTEGER : NUMBER FORECAST HOURS DURING WHICH MORE FREQUENT
  !                    RADIATION CALCULATIONS ARE REQUIRED
  ! LERADHS: LOGICAL : .T. IF RAD.COMPUTED ON A COARSER SAMPLED GRID
  ! LEPO3RA: LOGICAL : .T. IF PROGNOSTIC OZONE (EC) IS PASSED TO RADIATION
  ! NAER   : INTEGER : CONFIGURATION INDEX FOR AEROSOLS
  ! NMODE  : INTEGER : CONFIGURATION FOR RADIATION CODE: FLUX VS. RADIANCE
  ! NOZOCL : INTEGER : CHOICE OF OZONE CLIMATOLOGY (0 old, 1 new)
  ! NRADFR : INTEGER : FREQUENCY OF FULL RADIATION COMPUTATIONS
  !                    IF(NRADFR.GT.0): RAD EVERY 'NRADFR' TIME-STEPS
  !                    IF(NRADFR.LT.0): RAD EVERY '-NRADFR' HOURS
  ! NRADPFR: INTEGER : PRINT FREQUENCY FOR RAD.STATISTICS (in RAD.T.STEPS)
  ! NRADPLA: INTEGER : PRINT RAD.STATISTICS EVERY 'NRADPLA' ROWS
  ! NRINT  : INTEGER : INTERPOLATION DISTANCE (in points)
  ! NRADINT: INTEGER : RADIATION INTERPOLATION METHOD
  !                  : 0 = CURRENT RADIATION INTERPOLATION (CONTROLLED BY NRINT)
  !                  : 1 = SPECTRAL TRANSFORM INTERPOLATION
  !                  : 2 =  4 POINT HORIZONTAL INTERPOLATION
  !                  : 3 = 12 POINT HORIZONTAL INTERPOLATION
  ! NRADRES: INTEGER : RADIATION GRID SPECTRAL RESOLUTION
  ! NRADNFR: INTEGER : NORMAL   FREQUENCY OF RADIATION STEPS
  ! NRADSFR: INTEGER : START-UP FREQUENCY OF RADIATION STEPS
  ! NOVLP  : INTEGER : CLOUD OVERLAP CONFIGURATION
  ! NRPROMA: INTEGER : VECTOR LENGTH FOR RADIATION CALCULATIONS
  ! NLW    : INTEGER : NUMBER OF LONGWAVE SPECTRAL INTERVALS
  ! NSW    : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS
  ! NSWNL  : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS IN NL MODEL
  ! NSWTL  : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS IN TL MODEL
  ! NTSW   : INTEGER : MAXIMUM POSSIBLE NUMBER OF SW SPECTRAL INTERVALS
  ! NUV    : INTEGER : NUMBER OF UV SPECTRAL INTERVALS FOR THE UV PROCESSOR
  ! LRADLB : LOGICAL : .T. IF RADIATION COURSER GRID IS TO BE LOAD BALANCED
  !                  : OVER PROCESSORS (I.E. WHEN NRINT>1)
  ! LOPTRPROMA:LOGICAL: .T. NRPROMA will be optimised
  !                   : .F. NRPROMA will not be optimised (forced
  !                   :         by negative NRPROMA in namelist)

  ! NRADIP : INTEGER : INDEX FOR DIAGNOSIS OF ICE CLOUD EFFECTIVE RADIUS
  !          0=EbCu/SmSh  1=EbCu/EbCu  2=FuLi/FuLi  3=Fu/Fu&al
  ! NRADLP : INTEGER : INDEX FOR DIAGNOSIS OF LIQ. CLOUD EFFECTIVE RADIUS
  !          0=YF/SmSh    1=ASl/HSa    2=ASl/LiLi
  ! NICEOPT: INTEGER : INDEX FOR ICE CLOUD OPTICAL PROPERTIES
  !          0=40u        1=40-130     2=30-60      3=Sun'01
  ! NLIQOPT: INTEGER : INDEX FOR LIQUID WATER CLOUD OPTICAL PROPERTIES
  !          0=f(P)       1=10/13      2=Martin_et_al

  ! LONEWSW: LOGICAL : .T. IF NEW SW CODE IS ACTIVE
  ! LECSRAD: LOGICAL : .T. IF CLEAR-SKY RADIATION IS ARCHIVED AS PEXTR2
  ! NCSRADF: INTEGER : 1 IF ACCUMULATED, 2 IF INSTANTANEOUS
  ! LRRTM  : LOGICAL : .T. IF RRTM140MR IS USED FOR LW RADIATION TRANSFER

  ! LHVOLCA: LOGICAL : .T. IF GISS HISTORY OF VOLCANIC AEROSOLS IS ON
  ! LNEWAER: LOGICAL : .T. IF AEROSOL MONTHLY DISTRIBUTIONS ARE USED
  ! LNOTROAER:LOGICAL: .T. IF NO TROPOSPHERIC AEROSOLS
  ! CRTABLEDIR: CHAR : IF NRADINT > 0 SPECIFIES DIRECTORY PATH FOR RADIATION
  !                  : GRID RTABLE NAMELIST
  ! CRTABLEFIL: CHAR : IF NRADINT > 0 SPECIFIES FILE NAME OF RADIATION
  !                  : GRID RTABLE NAMELIST
  ! LRAYL  : LOGICAL : .T. NEW RAYLEIGH FOR SW-6 VERSION

  ! RAOVLP : REAL    : COEFFICIENTS FOR ALPHA1 FACTOR IN HOGAN &
  ! RBOVLP : REAL    : ILLINGWORTH's PARAMETRIZATION

  ! LCCNL  : LOGICAL : .T. IF CCN CONCENTRATION OVER LAND IS DIAGNOSED
  ! LCCNO  : LOGICAL : .T. IF CCN CONCENTRATION OVER OCEAN IS DIAGNOSED
  ! RCCNLND: REAL    : NUMBER CONCENTRATION (CM-3) OF CCNs OVER LAND
  ! RCCNSEA: REAL    : NUMBER CONCENTRATION (CM-3) OF CCNs OVER SEA

  ! LDIFFC : LOGICAL : .T. IF SAVIJARVI'S DIFFUSIVITY CORRECTION IS ON

  ! NINHOM : INTEGER : 0 IF NO INHOMOGENEITY SCALING EFFECT
  !                    1 IF SIMPLE 0.7 SCALING
  !                    2 IF BARKER, 3 IF CAIRNS ET AL.
  ! RLWINHF: REAL    : INHOMOG. SCALING FACTOR FOR CLOUD LW OPTICAL THICKNESS
  ! RSWINHF: REAL    : INHOMOG. SCALING FACTOR FOR CLOUD SW OPTICAL THICKNESS

  ! NPERTAER : INTERGER : PERCENTAGE OF PERTURBATION FOR AEROSOL
  ! NPERTOZONE : INTEGER : PERCENTAGE OF PERTURBATION FOR OZONE
  ! NHINCSOL:INTEGER :
  !        = 0 NO VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR
  !        = 1 IF YEAR-TO-YEAR VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR
  !        = 2 IF MONTH-TO-MONTH VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR
  ! LECO2VAR: LOGICAL: .T. IF ERA-40/AMIP2 VARIABILITY OF GHG IS ON
  ! LHGHG  : LOGICAL : .T. IF VARIABILITY OF GREENHOUSE GASES (INCLUDING CO2) IS ON
  ! N.B.: LHGHG supercedes LECO2VAR and allows using better specification of trace gases
  ! NSCEN  : INTEGER : 21st CENTURY SCENARIO FOR GHG (1=A1B, 2=A2, 3=B1)
  ! RRe2De : REAL    : CONVERSION FACTOR BETWWEN EFFECTIVE RADIUS AND PARTICLE SIZE
  !                    FOR ICE
  ! NMCICA : INTEGER :  0: NO McICA
  !                     1: McICA w maximum-random in cloud generator
  !                     2: McICA w generalized overlap in cloud generator
  !     ------------------------------------------------------------------

  !$OMP THREADPRIVATE(crtabledir,crtablefil,lccnl,lccno,ldiffc,leco2var,lecsrad)
  !$OMP THREADPRIVATE(ledbug,lepo3ra,lerad1h,leradhs,lhghg,lhvolca,lnewaer,lnotroaer)
  !$OMP THREADPRIVATE(lonewsw,loptrproma,lradlb,lrayl,lrrtm,lsrtm,naer,ncsradf,nhincsol)
  !$OMP THREADPRIVATE(niceopt,ninhom,nlayinh,nliqopt,nlngr1h,nlw,nmcica,nmode,novlp,nozocl)
  !$OMP THREADPRIVATE(npertaer,npertoz,nradfr,nradint,nradip,nradlp,nradnfr,nradpfr,nradpla)
  !$OMP THREADPRIVATE(nradres,nradsfr,nrint,nrproma,nscen,nswnl,nswtl,ntsw,nuv,raovlp)
  !$OMP THREADPRIVATE(rbovlp,rccnlnd,rccnsea,rlwinhf,rpertoz,rre2de,rswinhf)

END MODULE yoerad