-
Notifications
You must be signed in to change notification settings - Fork 7
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
updated viscosity computation module with latest parameters
the viscosity module now also covers carbonate, bicarbonate and IO3- species
- Loading branch information
Showing
4 changed files
with
595 additions
and
85 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
|
@@ -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 * | ||
|
@@ -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 | ||
|
@@ -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(*,*) "" | ||
|
Oops, something went wrong.