1
2! KGEN-generated Fortran source file
3!
4! Filename    : parrrsw.f90
5! Generated at: 2015-07-27 00:31:37
6! KGEN version: 0.4.13
7
8
9
10    MODULE parrrsw
11        USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check
12        !      use parkind ,only : jpim, jprb
13        IMPLICIT NONE
14        !------------------------------------------------------------------
15        ! rrtmg_sw main parameters
16        !
17        ! Initial version:  JJMorcrette, ECMWF, jul1998
18        ! Revised: MJIacono, AER, jun2006
19        !------------------------------------------------------------------
20        !  name     type     purpose
21        ! -----  :  ----   : ----------------------------------------------
22        ! mxlay  :  integer: maximum number of layers
23        ! mg     :  integer: number of original g-intervals per spectral band
24        ! nbndsw :  integer: number of spectral bands
25        ! naerec :  integer: number of aerosols (iaer=6, ecmwf aerosol option)
26        ! ngptsw :  integer: total number of reduced g-intervals for rrtmg_lw
27        ! ngNN   :  integer: number of reduced g-intervals per spectral band
28        ! ngsNN  :  integer: cumulative number of g-intervals per band
29        !------------------------------------------------------------------
30        ! Settings for single column mode.
31        ! For GCM use, set nlon to number of longitudes, and
32        ! mxlay to number of model layers
33        !jplay, klev
34        !jpg
35        INTEGER, parameter :: nbndsw = 14 !jpsw, ksw
36        !jpaer
37        INTEGER, parameter :: mxmol  = 38
38        INTEGER, parameter :: nmol   = 7
39        ! Use for 112 g-point model
40        INTEGER, parameter :: ngptsw = 112 !jpgpt
41        ! Use for 224 g-point model
42        !      integer, parameter :: ngptsw = 224   !jpgpt
43        ! may need to rename these - from v2.6
44        INTEGER, parameter :: jpband   = 29
45        INTEGER, parameter :: jpb1     = 16 !istart
46        INTEGER, parameter :: jpb2     = 29 !iend
47        ! ^
48        ! Use for 112 g-point model
49        ! Use for 224 g-point model
50        !      integer, parameter :: ng16 = 16
51        !      integer, parameter :: ng17 = 16
52        !      integer, parameter :: ng18 = 16
53        !      integer, parameter :: ng19 = 16
54        !      integer, parameter :: ng20 = 16
55        !      integer, parameter :: ng21 = 16
56        !      integer, parameter :: ng22 = 16
57        !      integer, parameter :: ng23 = 16
58        !      integer, parameter :: ng24 = 16
59        !      integer, parameter :: ng25 = 16
60        !      integer, parameter :: ng26 = 16
61        !      integer, parameter :: ng27 = 16
62        !      integer, parameter :: ng28 = 16
63        !      integer, parameter :: ng29 = 16
64        !      integer, parameter :: ngs16 = 16
65        !      integer, parameter :: ngs17 = 32
66        !      integer, parameter :: ngs18 = 48
67        !      integer, parameter :: ngs19 = 64
68        !      integer, parameter :: ngs20 = 80
69        !      integer, parameter :: ngs21 = 96
70        !      integer, parameter :: ngs22 = 112
71        !      integer, parameter :: ngs23 = 128
72        !      integer, parameter :: ngs24 = 144
73        !      integer, parameter :: ngs25 = 160
74        !      integer, parameter :: ngs26 = 176
75        !      integer, parameter :: ngs27 = 192
76        !      integer, parameter :: ngs28 = 208
77        !      integer, parameter :: ngs29 = 224
78        ! Source function solar constant
79        ! W/m2
80
81    ! write subroutines
82    ! No subroutines
83    ! No module extern variables
84    END MODULE parrrsw
85