Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
Xuesong (Steve)
2018-08-28 00:35:59 -04:00
committed by GitHub
parent 60626eb659
commit d7c2334c5f
37 changed files with 85874 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
code/lidort/RTS_mie_modules.f90 Normal file
View File

@ -0,0 +1,46 @@
!$Id: RTS_mie_modules.f90,v 1.1 2010/07/30 23:47:04 daven Exp $
! Contains the following modules
! MODULE Mie_precision
! MODULE Mie_constants
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MODULE Mie_precision
IMPLICIT NONE
! Define KIND variables for single and double precision
INTEGER, PARAMETER :: sprec = KIND( 1.0 )
INTEGER, PARAMETER :: dp = KIND( 1.0D0 )
END MODULE Mie_precision
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
MODULE Mie_constants
use Mie_precision, ONLY: dp
IMPLICIT NONE
! Numbers such as 1, 2, pie, etc.......
REAL (KIND=dp), PARAMETER :: d_zero = 0.0_dp
REAL (KIND=dp), PARAMETER :: d_one = 1.0_dp
REAL (KIND=dp), PARAMETER :: d_two = 2.0_dp
REAL (KIND=dp), PARAMETER :: d_three = 3.0_dp
REAL (KIND=dp), PARAMETER :: d_four = 4.0_dp
REAL (KIND=dp), PARAMETER :: d_half = 0.5_dp
COMPLEX (KIND=dp), PARAMETER :: c_zero = ( d_zero, d_zero )
COMPLEX (KIND=dp), PARAMETER :: c_one = ( d_one, d_zero )
COMPLEX (KIND=dp), PARAMETER :: c_i = ( d_zero, d_one )
! Mie version
CHARACTER (LEN=10), PARAMETER :: Mie_f90_version = 'F90_Mie_V1'
END MODULE Mie_constants