Skip to content

Commit

Permalink
updated viscosity computation module with latest parameters
Browse files Browse the repository at this point in the history
the viscosity module now also covers carbonate, bicarbonate and IO3- species
  • Loading branch information
andizuend authored Feb 11, 2022
1 parent 90e1d13 commit 92e13cb
Show file tree
Hide file tree
Showing 4 changed files with 595 additions and 85 deletions.
8 changes: 4 additions & 4 deletions FortranCode/Main_IO_driver.f90
Original file line number Diff line number Diff line change
Expand Up @@ -20,15 +20,15 @@
!* including I-, IO3-, CO3--, HCO3- and CO2(aq), are included based on Yin et al. *
!* (2021, Atmos. Chem. Phys.). *
!* Viscosity predictions via AIOMFAC-VISC are included based on the articles by *
!* Gervasi et al. (2020) and Lilek and Zuend (2021). *
!* Gervasi et al. (2020) and Lilek and Zuend (2022, Atmos. Chem. Phys.). *
!* *
!* :: Author & Copyright :: *
!* Andi Zuend, ([email protected]) *
!* Div. Chemistry and Chemical Engineering, Caltech, Pasadena, CA, USA (2009 - 2012) *
!* Dept. Atmospheric and Oceanic Sciences, McGill University (2013 - present) *
!* *
!* -> created: 2011 (this file) *
!* -> latest changes: 2022-01-17 *
!* -> latest changes: 2022-02-11 *
!* *
!* :: License :: *
!* This program is free software: you can redistribute it and/or modify it under the *
Expand Down Expand Up @@ -99,7 +99,7 @@ END SUBROUTINE ReadInputFile
!
!==== INITIALIZATION section =======================================================
!
VersionNo = "3.02" !AIOMFAC-web version number (change here if minor or major changes require a version number change)
VersionNo = "3.03" !AIOMFAC-web version number (change here if minor or major changes require a version number change)
verbose = .true. !if true, some debugging information will be printed to the unit "unito" (errorlog file)
nspecmax = 0
errorind = 0 !0 means no error found
Expand All @@ -110,7 +110,7 @@ END SUBROUTINE ReadInputFile
!read command line for text-file name (which contains the input parameters to run the AIOMFAC progam):
CALL GET_COMMAND_ARGUMENT(1, txtfilein)
IF (LEN_TRIM(txtfilein) < 4) THEN !no command line argument; use specific input file for tests;
txtfilein = './Inputfiles/input_0002.txt' !just use this for debugging with a specific input file, otherwise comment out;
txtfilein = './Inputfiles/input_0007.txt' !just use this for debugging with a specific input file, otherwise comment out;
ENDIF
filepath = ADJUSTL(TRIM(txtfilein))
WRITE(*,*) ""
Expand Down
Loading

0 comments on commit 92e13cb

Please sign in to comment.