source: LMDZ6/trunk/libf/phylmd/ecrad/yoesrtwn.F90 @ 4115

Last change on this file since 4115 was 3908, checked in by idelkadi, 4 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: 2.2 KB
Line 
1MODULE YOESRTWN
2
3USE PARKIND1  ,ONLY : JPIM     ,JPRB
4
5IMPLICIT NONE
6
7PUBLIC
8
9SAVE
10
11!    -------------------------------------------------------------------
12
13INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NG
14INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NSPA
15INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NSPB
16INTEGER(KIND=JPIM) , DIMENSION(14)    :: NMPSRTM
17
18REAL(KIND=JPRB), DIMENSION(59) :: PREF
19REAL(KIND=JPRB), DIMENSION(59) :: PREFLOG
20REAL(KIND=JPRB), DIMENSION(59) :: TREF
21
22INTEGER(KIND=JPIM), DIMENSION(224) :: NGM
23INTEGER(KIND=JPIM), DIMENSION(14)  :: NGC, NGS
24
25REAL(KIND=JPRB), DIMENSION(16)  :: WT, WTSM
26REAL(KIND=JPRB), DIMENSION(224) :: RWGT
27
28
29! Use for 56 g-points
30!INTEGER(KIND=JPIM), DIMENSION(56) :: NGBSW, NGN
31! Use for 112 g-points
32!INTEGER(KIND=JPIM), DIMENSION(112) :: NGBSW, NGN
33! Use for 224 g-points
34!INTEGER(KIND=JPIM), DIMENSION(224) :: NGBSW, NGN
35
36!     -----------------------------------------------------------------
37!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
38
39!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07
40!     M. J. IACONO          AER             12/09/03
41
42!  NAME     TYPE     PURPOSE
43!  ----   : ----    : -------
44!  NG     : INTEGER : Number of k-coefficients in spectral intervals
45!  NSPA   : INTEGER :
46!  NSPB   : INTEGER :
47! NMPSRTM : INTEGER : MAPPING INDICES FOR 6-SPECTRAL INT. SURFACE ALBEDO
48! WAVENUM1: REAL    : Lower wavenumber spectral limit
49! WAVENUM2: REAL    : Higher wavenumber spectral limit
50! DELWAVE : REAL    : Spectral interval width
51! PREF    : REAL    : Reference pressure
52! PREFLOG : REAL    : Log reference pressure
53! TREF    : REAL    : Reference temperature
54!  NGC    : INTEGER : The number of new g-points in each band
55!  NGS    : INTEGER : The cumulative sum of new g-points for each band
56!  NGM    : INTEGER : The index of each new g-point relative to the
57!                     original 16 g-points for each band.
58!
59!  WT     : REAL    : RRTM weights for 16 g-points.
60!  WTSUM  : REAL    : Sum of the weights
61!  RWGT   : REAL    :
62!
63!  NGN    : INTEGER : The number of original g-points that are combined
64!                     to make each new g-point in each band.
65!  NGBSW  : INTEGER : The band index for each new g-point.
66!     -----------------------------------------------------------------
67END MODULE YOESRTWN
68
Note: See TracBrowser for help on using the repository browser.