mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 08:38:23 +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