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:47:55 -04:00
committed by GitHub
parent fa691eb0aa
commit 6cc3fa6967
20 changed files with 26069 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
code/tcorr.f Normal file
View File

@ -0,0 +1,44 @@
! $Id: tcorr.f,v 1.1 2009/06/09 21:51:52 daven Exp $
FUNCTION TCORR( TEMP )
!
!******************************************************************************
! Function TCORR applies the temperature correction for isoprene emissions,
! according to Guenther et al.(92) (yhw, 11/15/93; bmy, 4/4/03)
!
! Arguments as Input:
! ============================================================================
! (1 ) TEMP (REAL*8) : Temperature [K]
!
! References:
! ============================================================================
! Guenther et al, 1992, ...
!
! NOTES:
! (1 ) Removed DATA statements, replaced w/ F90 syntax. Updated comments
! and made cosmetic changes (bmy, 4/4/03)
!******************************************************************************
!
IMPLICIT NONE
! Arguments
REAL*8, INTENT(IN) :: TEMP
! Local variables
REAL*8, PARAMETER :: R = 8.314
REAL*8, PARAMETER :: CT1 = 95000.
REAL*8, PARAMETER :: CT2 = 230000.
REAL*8, PARAMETER :: T1 = 303.
REAL*8, PARAMETER :: T3 = 314.
! Function value
REAL*8 :: TCORR
!=================================================================
! TCORR begins here!
!=================================================================
TCORR =
& EXP( CT1/(R*T1*TEMP) * (TEMP-T1) ) /
& ( 1 + EXP( CT2/(R*T1*TEMP) * (TEMP-T3) ) )
! Return to calling program
END FUNCTION TCORR