Add files via upload

code/adjoint/gckpp_adj_Initialize.f90

@@ -0,0 +1,99 @@
+! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+!
+! 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
+