mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 16:44:49 +01:00
rearranged directory structure
git-svn-id: svn://136.177.114.72/svn_GW/phreeqc/trunk@5241 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton
commit
8660560727
53
advect_f/advect.f90
Normal file
53
advect_f/advect.f90
Normal file
@ -0,0 +1,53 @@
|
|||||||
|
module Subs
|
||||||
|
integer (kind=4), dimension(7) :: vt
|
||||||
|
real (kind=8), dimension(7) :: dv
|
||||||
|
character (len=100), dimension(7) :: sv
|
||||||
|
integer :: Id
|
||||||
|
contains
|
||||||
|
|
||||||
|
subroutine ExtractWrite(cell)
|
||||||
|
include "IPhreeqc.f90.inc"
|
||||||
|
integer (kind=4), intent(in) :: cell
|
||||||
|
do j = 1, 7
|
||||||
|
! Headings are on row 0
|
||||||
|
Ierr = GetSelectedOutputValue(Id,1,j,vt(j),dv(j),sv(j))
|
||||||
|
if(Ierr .ne. IPQ_OK) call EHandler()
|
||||||
|
enddo
|
||||||
|
write(*,"(a,i2/2(5x,a,f7.2))") "Cell",cell,"pH:",dv(6),"SR(calcite):",dv(7)
|
||||||
|
end subroutine ExtractWrite
|
||||||
|
|
||||||
|
subroutine EHandler()
|
||||||
|
include "IPhreeqc.f90.inc"
|
||||||
|
call OutputErrorString(Id)
|
||||||
|
stop
|
||||||
|
end subroutine EHandler
|
||||||
|
end module Subs
|
||||||
|
program Advect
|
||||||
|
use Subs
|
||||||
|
include "IPhreeqc.f90.inc"
|
||||||
|
character(len=1024) Istring
|
||||||
|
|
||||||
|
!Create module, load database, define initial conditions and selected output
|
||||||
|
Id = CreateIPhreeqc()
|
||||||
|
if (LoadDatabase(Id, "phreeqc.dat") .ne. 0) call EHandler()
|
||||||
|
If (RunFile(Id, "ic") .ne. 0) call EHandler()
|
||||||
|
|
||||||
|
!Run cell 1, extract/write result
|
||||||
|
if (RunString(Id, "RUN_CELLS; -cells; 1; END") .ne. 0) call EHandler()
|
||||||
|
call ExtractWrite(1)
|
||||||
|
|
||||||
|
!Advect cell 1 solution to cell 2, run cell 2, extract/write results
|
||||||
|
Ierr = AccumulateLine(Id, "SOLUTION_MODIFY 2")
|
||||||
|
Ierr = AccumulateLine(Id, " -cb " // sv(1))
|
||||||
|
Ierr = AccumulateLine(Id, " -total_h " // sv(2))
|
||||||
|
Ierr = AccumulateLine(Id, " -total_o " // sv(3))
|
||||||
|
Ierr = AccumulateLine(Id, " -totals ")
|
||||||
|
Ierr = AccumulateLine(Id, " C " // sv(4))
|
||||||
|
Ierr = AccumulateLine(Id, " Ca " // sv(5))
|
||||||
|
Ierr = AccumulateLine(Id, "RUN_CELLS; -cells; 2; END")
|
||||||
|
if (RunAccumulated(Id) .ne. 0) call EHandler()
|
||||||
|
call ExtractWrite(2)
|
||||||
|
|
||||||
|
!Destroy module
|
||||||
|
if (DestroyIPhreeqc(Id) .ne. 0) call EHandler()
|
||||||
|
end program Advect
|
||||||
26
advect_f/advect.sln
Normal file
26
advect_f/advect.sln
Normal file
@ -0,0 +1,26 @@
|
|||||||
|
|
||||||
|
Microsoft Visual Studio Solution File, Format Version 9.00
|
||||||
|
# Visual Studio 2005
|
||||||
|
Project("{6989167D-11E4-40FE-8C1A-2192A86A7E90}") = "advect", "advect.vfproj", "{28459FF2-3C6C-469E-B0C3-2E4D483E7025}"
|
||||||
|
EndProject
|
||||||
|
Global
|
||||||
|
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||||
|
Debug|Win32 = Debug|Win32
|
||||||
|
DebugDll|Win32 = DebugDll|Win32
|
||||||
|
Release|Win32 = Release|Win32
|
||||||
|
ReleaseDll|Win32 = ReleaseDll|Win32
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.Debug|Win32.ActiveCfg = Debug|Win32
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.Debug|Win32.Build.0 = Debug|Win32
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.DebugDll|Win32.ActiveCfg = DebugDll|Win32
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.DebugDll|Win32.Build.0 = DebugDll|Win32
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.Release|Win32.ActiveCfg = Release|Win32
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.Release|Win32.Build.0 = Release|Win32
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.ReleaseDll|Win32.ActiveCfg = ReleaseDll|Win32
|
||||||
|
{28459FF2-3C6C-469E-B0C3-2E4D483E7025}.ReleaseDll|Win32.Build.0 = ReleaseDll|Win32
|
||||||
|
EndGlobalSection
|
||||||
|
GlobalSection(SolutionProperties) = preSolution
|
||||||
|
HideSolutionNode = FALSE
|
||||||
|
EndGlobalSection
|
||||||
|
EndGlobal
|
||||||
53
advect_f/advect.vfproj
Normal file
53
advect_f/advect.vfproj
Normal file
@ -0,0 +1,53 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8"?>
|
||||||
|
<VisualStudioProject ProjectCreator="Intel Fortran" Keyword="Console Application" Version="11.0" ProjectIdGuid="{28459FF2-3C6C-469E-B0C3-2E4D483E7025}">
|
||||||
|
<Platforms>
|
||||||
|
<Platform Name="Win32"/></Platforms>
|
||||||
|
<Configurations>
|
||||||
|
<Configuration Name="Debug|Win32">
|
||||||
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="$(DEV_IPHREEQC)\include" Interfaces="true" FixedFormLineLength="fixedLength132" WarnInterfaces="true" StringLengthArgPassing="strLenArgsMixed" Traceback="true" BoundsCheck="true" RuntimeLibrary="rtMultiThreadedDebug"/>
|
||||||
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" AdditionalLibraryDirectories="$(DEV_IPHREEQC)/lib" GenerateDebugInformation="true" SubSystem="subSystemConsole" AdditionalDependencies="IPhreeqcd.lib"/>
|
||||||
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
||||||
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
|
||||||
|
<Configuration Name="Release|Win32">
|
||||||
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="$(DEV_IPHREEQC)\include" StringLengthArgPassing="strLenArgsMixed"/>
|
||||||
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" AdditionalLibraryDirectories="$(DEV_IPHREEQC)\lib" SubSystem="subSystemConsole" AdditionalDependencies="IPhreeqc.lib"/>
|
||||||
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
||||||
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
|
||||||
|
<Configuration Name="DebugDll|Win32">
|
||||||
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="$(DEV_IPHREEQC)\include" Interfaces="true" FixedFormLineLength="fixedLength132" WarnInterfaces="true" StringLengthArgPassing="strLenArgsMixed" Traceback="true" BoundsCheck="true" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
|
||||||
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" AdditionalLibraryDirectories="$(DEV_IPHREEQC)\dll" GenerateDebugInformation="true" SubSystem="subSystemConsole" AdditionalDependencies="IPhreeqcd.lib"/>
|
||||||
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
||||||
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
|
||||||
|
<Configuration Name="ReleaseDll|Win32">
|
||||||
|
<Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="$(DEV_IPHREEQC)\include" StringLengthArgPassing="strLenArgsMixed" RuntimeLibrary="rtMultiThreadedDLL"/>
|
||||||
|
<Tool Name="VFLinkerTool" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" AdditionalLibraryDirectories="$(DEV_IPHREEQC)\dll" SubSystem="subSystemConsole" AdditionalDependencies="IPhreeqc.lib"/>
|
||||||
|
<Tool Name="VFResourceCompilerTool"/>
|
||||||
|
<Tool Name="VFMidlTool" SuppressStartupBanner="true"/>
|
||||||
|
<Tool Name="VFCustomBuildTool"/>
|
||||||
|
<Tool Name="VFPreLinkEventTool"/>
|
||||||
|
<Tool Name="VFPreBuildEventTool"/>
|
||||||
|
<Tool Name="VFPostBuildEventTool"/>
|
||||||
|
<Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration></Configurations>
|
||||||
|
<Files>
|
||||||
|
<Filter Name="Header Files" Filter="fi;fd">
|
||||||
|
<File RelativePath=".\IPhreeqc.f90.inc"/></Filter>
|
||||||
|
<Filter Name="Resource Files" Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"/>
|
||||||
|
<Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl">
|
||||||
|
<File RelativePath=".\advect.f90"/></Filter>
|
||||||
|
<File RelativePath=".\ReadMe.txt"/></Files>
|
||||||
|
<Globals/></VisualStudioProject>
|
||||||
16
advect_f/ic
Normal file
16
advect_f/ic
Normal file
@ -0,0 +1,16 @@
|
|||||||
|
# File ic
|
||||||
|
SOLUTION 1-2
|
||||||
|
END
|
||||||
|
EQUILIBRIUM_PHASES 1
|
||||||
|
CO2(g) -1.5 10
|
||||||
|
|
||||||
|
EQUILIBRIUM_PHASES 2
|
||||||
|
Calcite 0 10
|
||||||
|
SELECTED_OUTPUT
|
||||||
|
-reset false
|
||||||
|
USER_PUNCH
|
||||||
|
-Heading charge H O C Ca pH SR(calcite)
|
||||||
|
10 PUNCH charge_balance
|
||||||
|
20 PUNCH TOTMOLE("H"), TOTMOLE("O"), TOTMOLE("C"), TOTMOLE("Ca")
|
||||||
|
30 PUNCH -LA("H+"), SR("calcite")
|
||||||
|
END
|
||||||
1579
advect_f/phreeqc.dat
Normal file
1579
advect_f/phreeqc.dat
Normal file
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user