100 lines
2.3 KiB
Fortran
100 lines
2.3 KiB
Fortran
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
!
|
|
! Initialization File
|
|
!
|
|
! Generated by KPP-2.2 symbolic chemistry Kinetics PreProcessor
|
|
! (http://www.cs.vt.edu/~asandu/Software/KPP)
|
|
! KPP is distributed under GPL, the general public licence
|
|
! (http://www.gnu.org/copyleft/gpl.html)
|
|
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
|
|
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
|
|
! With important contributions from:
|
|
! M. Damian, Villanova University, USA
|
|
! R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
|
|
!
|
|
! File : gckpp_adj_Initialize.f90
|
|
! Time : Tue May 14 19:43:54 2013
|
|
! Working directory : /home/daven/kpp-2.2.1/GC_KPP
|
|
! Equation file : gckpp_adj.kpp
|
|
! Output root filename : gckpp_adj
|
|
!
|
|
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
|
|
|
|
MODULE gckpp_adj_Initialize
|
|
|
|
USE gckpp_adj_Parameters, ONLY: dp, NVAR, NFIX
|
|
IMPLICIT NONE
|
|
|
|
CONTAINS
|
|
|
|
|
|
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
!
|
|
! Initialize - function to initialize concentrations
|
|
! Arguments :
|
|
!
|
|
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
SUBROUTINE Initialize ( )
|
|
|
|
|
|
USE gckpp_adj_Global
|
|
USE gckpp_adj_Util, ONLY : Shuffle_user2kpp
|
|
USE gckpp_adj_Monitor
|
|
|
|
INTEGER :: i
|
|
|
|
! INLINED initializations
|
|
|
|
CALL Shuffle_user2kpp(V_CSPEC,VAR)
|
|
|
|
DO i = 1, NFIX
|
|
FIX(i) = 1.d0
|
|
END DO
|
|
|
|
! End INLINED initializations
|
|
|
|
! need to add this to the INLINED for OpenMP (dkh, 07/31/09)
|
|
DO I = 1, NVAR
|
|
C(I) = VAR(I)
|
|
ENDDO
|
|
DO I = 1, NFIX
|
|
C(NVAR+I) = FIX(I)
|
|
ENDDO
|
|
|
|
END SUBROUTINE Initialize
|
|
|
|
! End of Initialize function
|
|
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
! Initialize_adj - function to initialize concentrations
|
|
! Arguments :
|
|
!
|
|
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
SUBROUTINE Initialize_adj ( )
|
|
|
|
|
|
USE gckpp_adj_Global
|
|
USE gckpp_adj_Util, ONLY : Shuffle_user2kpp
|
|
USE gckpp_adj_Monitor
|
|
|
|
INTEGER :: i
|
|
|
|
! INLINED initializations
|
|
|
|
CALL Shuffle_user2kpp(V_CSPEC_ADJ,VAR_ADJ)
|
|
|
|
! End INLINED initializations
|
|
|
|
|
|
END SUBROUTINE Initialize_adj
|
|
|
|
! End of Initialize function
|
|
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|
|
|
|
|
|
END MODULE gckpp_adj_Initialize
|
|
|