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