-
Notifications
You must be signed in to change notification settings - Fork 0
/
rrsw_con.f90
58 lines (50 loc) · 2 KB
/
rrsw_con.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
! KGEN-generated Fortran source file
!
! Filename : rrsw_con.f90
! Generated at: 2015-09-28 23:28:18
! KGEN version: 0.5.1
MODULE rrsw_con
USE kgen_utils_mod, ONLY : kgen_dp, check_t, kgen_init_check, kgen_print_check
USE shr_kind_mod, ONLY: r8 => shr_kind_r8
! use parkind, only : jpim, jprb
IMPLICIT NONE
!------------------------------------------------------------------
! rrtmg_sw constants
! Initial version: MJIacono, AER, jun2006
!------------------------------------------------------------------
! name type purpose
! ----- : ---- : ----------------------------------------------
! fluxfac: real : radiance to flux conversion factor
! heatfac: real : flux to heating rate conversion factor
!oneminus: real : 1.-1.e-6
! pi : real : pi
! grav : real : acceleration of gravity (m/s2)
! planck : real : planck constant
! boltz : real : boltzman constant
! clight : real : speed of light
! avogad : real : avogadro's constant
! alosmt : real :
! gascon : real : gas constant
! radcn1 : real :
! radcn2 : real :
!------------------------------------------------------------------
!dir$ attributes offload:mic :: heatfac, oneminus, pi, grav, avogad
REAL(KIND=r8) :: heatfac
REAL(KIND=r8) :: oneminus
REAL(KIND=r8) :: pi
REAL(KIND=r8) :: grav
REAL(KIND=r8) :: avogad
PUBLIC kgen_read_externs_rrsw_con
CONTAINS
! write subroutines
! No subroutines
! module extern variables
SUBROUTINE kgen_read_externs_rrsw_con(kgen_unit)
INTEGER, INTENT(IN) :: kgen_unit
READ(UNIT=kgen_unit) oneminus
READ(UNIT=kgen_unit) pi
READ(UNIT=kgen_unit) avogad
READ(UNIT=kgen_unit) grav
READ(UNIT=kgen_unit) heatfac
END SUBROUTINE kgen_read_externs_rrsw_con
END MODULE rrsw_con