├── docs ├── readme └── fvs_variants.md ├── python ├── docs │ ├── _static │ │ └── readme │ ├── _templates │ │ └── readme │ ├── index.rst │ └── modules.rst ├── pyfvs │ ├── docs │ │ └── readme.rst │ ├── test │ │ ├── __init__.py │ │ ├── pytest.ini │ │ └── rmrs │ │ │ ├── refresh_rmrs.bat │ │ │ ├── run_check.bat │ │ │ ├── ec_bareground.key │ │ │ ├── ca_bareground.key │ │ │ ├── op_bareground.key │ │ │ ├── oc_bareground.key │ │ │ ├── so_bareground.key │ │ │ ├── wc_bareground.key │ │ │ └── pn_bareground.key │ ├── keywords │ │ └── __init__.py │ ├── _version.py │ └── examples │ │ └── demo.key ├── pyfvs_runner.py ├── setup.cfg ├── setup.cfg.mingw ├── environment.yml └── .bumpversion.cfg ├── tests ├── FVSbcc │ ├── ClimBC.tre.save │ ├── FFE-BC.rsp │ ├── ClimBC.mdb │ ├── ClimBC.rsp │ ├── WSBW-A.rsp │ ├── Mgmt BC In.mdb │ ├── Mgmt BC Out.mdb │ ├── Mgmt BC.rsp │ ├── ClimBC.readme.txt │ ├── Mgmt BC Regen.kcp │ └── Mgmt BC.readme.txt ├── FVSon │ ├── JPtest.rsp │ ├── JPtest.mdb │ ├── JPtest.readme.txt │ └── makefile ├── VolTest │ ├── AK.RSP │ ├── BM.RSP │ ├── CA.RSP │ ├── CI.RSP │ ├── CR.RSP │ ├── EC.RSP │ ├── EM.RSP │ ├── IE.RSP │ ├── KT.RSP │ ├── NC.RSP │ ├── PN.RSP │ ├── SO.RSP │ ├── TT.RSP │ ├── UT.RSP │ ├── WC.RSP │ ├── WS.RSP │ └── output │ │ ├── checkVolEqNos.exe │ │ ├── KT.txt │ │ └── parseAllOUT.bat ├── vba │ ├── fvspnc.xlsm │ └── pnt01.key ├── FVSiec │ ├── iet01.rsp │ ├── FVSOutBlank.mdb │ ├── FSVegClearwater.db │ ├── econ │ │ ├── Example4DBS.mdb.save │ │ ├── Example4DBS.xls.save │ │ └── TestDataBase.accdb.save │ └── ffe_svs_index.svs.save ├── FVSne │ ├── net01.rsp │ └── makefile ├── FVSsn │ ├── snt01.rsp │ └── makefile ├── ODBC │ ├── access │ │ ├── FVS_Data.mdb │ │ └── ExpectedValues │ │ │ └── FVS_Cases.csv │ ├── sqlite │ │ ├── FVS_Data.db │ │ ├── sqliteTestFVSieOut.sql │ │ └── fireTest.db_dump.txt.save │ └── conn_strings │ │ ├── fvstest.mdf │ │ ├── fvstest_log.ldf │ │ ├── fvstest.dsn │ │ ├── purge_test.sql │ │ └── select_test.sql ├── testSetFromFMSC │ ├── AKTEST.RSP │ ├── CRTEST.RSP │ ├── KTTEST.RSP │ ├── NCTEST.RSP │ ├── UTTEST.RSP │ ├── CRCTEST.RSP │ ├── KTCTEST.RSP │ ├── NCCTEST.RSP │ ├── UTCTEST.RSP │ ├── BMTEST.RSP │ ├── CATEST.RSP │ ├── ECTEST.RSP │ ├── LSTEST.RSP │ ├── NETEST.RSP │ ├── NITEST.RSP │ ├── PNTEST.RSP │ ├── SOTEST.RSP │ ├── WCTEST.RSP │ ├── ietest.rsp │ ├── sntest.rsp │ ├── BMCTEST.RSP │ ├── CACTEST.RSP │ ├── CITEST.RSP │ ├── CSTEST.RSP │ ├── ECCTEST.RSP │ ├── EMTEST.RSP │ ├── IECTEST.RSP │ ├── NICTEST.RSP │ ├── PNCTEST.RSP │ ├── SOCTEST.RSP │ ├── TTTEST.RSP │ ├── WCCTEST.RSP │ ├── WSTEST.RSP │ ├── CICTEST.RSP │ ├── EMCTEST.RSP │ ├── SERBMTEST.RSP │ ├── SERCITEST.RSP │ ├── SERCRTEST.RSP │ ├── SERECTEST.RSP │ ├── SERKTTEST.RSP │ ├── SERLSTEST.RSP │ ├── SERNITEST.RSP │ ├── SERPNTEST.RSP │ ├── SERSOTEST.RSP │ ├── SERUTTEST.RSP │ ├── SERWCTEST.RSP │ ├── TTCTEST.RSP │ ├── WSCTEST.RSP │ ├── sernctest.rsp │ ├── PPBMTEST.RSP │ ├── PPCITEST.RSP │ ├── PPCRTEST.RSP │ ├── PPECTEST.RSP │ ├── PPKTTEST.RSP │ ├── PPLSTEST.RSP │ ├── PPNITEST.RSP │ ├── PPPNTEST.RSP │ ├── PPSOTEST.RSP │ ├── PPUTTEST.RSP │ ├── PPWCTEST.RSP │ ├── PPWSTEST.RSP │ └── ppnctest.rsp ├── APIviaR │ ├── makefile │ └── base.key ├── makefile ├── pyfvs │ └── fvspnc │ │ └── makefile ├── FVScic │ └── makefile ├── FVSbmc │ └── makefile ├── FVScac │ └── makefile ├── FVScrc │ └── makefile ├── FVSwcc │ └── makefile ├── FVSktc │ └── makefile ├── FVSttc │ └── makefile ├── FVSutc │ └── makefile ├── FVSwsc │ └── makefile ├── FVScs │ └── makefile ├── FVSoc │ └── makefile ├── FVSemc │ └── makefile ├── FVSak │ └── makefile ├── FVSls │ └── makefile ├── FVSecc │ └── makefile ├── FVSncc │ └── makefile └── FVSpnc │ └── makefile ├── common ├── INCLUDESVN.F77 ├── TWIGCOM.F77 ├── CALDEN.F77 ├── ESWSBW.F77 ├── SVRCOM.F77 ├── KOTCOM.F77 ├── DBSTK.F77 ├── PPCISN.F77 ├── EMCOM.F77 ├── SUMTAB.F77 ├── PPSPRD.F77 ├── ESHAP2.F77 ├── PPDNCM.F77 ├── CICOM.F77 ├── PPSPLA.F77 ├── PPLLCM.F77 └── ESCOM2.F77 ├── ls └── src │ ├── spctrn.f │ ├── ptbal.f │ ├── maical.f │ ├── bratio.f │ └── exppnb.f ├── ni └── src │ ├── spctrn.f │ ├── maical.f │ ├── dunn.f │ ├── bratio.f │ ├── dgbnd.f │ └── exppnb.f ├── oc └── src │ └── grohed.f ├── op └── src │ └── grohed.f ├── resources ├── fvs.ico ├── pyfvs.res └── pyfvs.rc ├── .coveralls.yml ├── volume └── src │ ├── voleqdef.f │ ├── volinput_mod.f │ ├── charmod.f │ ├── clkcoef_mod.f │ └── fvsoldsec.f ├── bin ├── build_pyfvs_docs.bat ├── popsh.bat ├── gen_pyf.py.in ├── BuildAll_MinGW.bat └── BuildAll_VS10.bat ├── fire ├── fofem │ └── src │ │ ├── fof_lem.h │ │ ├── fof_cm.h │ │ ├── fof_co2.h │ │ ├── fof_disp.h │ │ ├── fof_ansi.h │ │ └── fof_hsf.h ├── fireDocument │ └── ProgrammersGuide_Fire_2004.doc ├── cfim │ ├── rkdumb.h │ ├── stdafx.cpp │ ├── rebin.cpp │ └── stdafx.h └── base │ ├── common │ └── FMSNGL.F77 │ └── src │ ├── excfim.f │ └── fmchkfwt.f ├── changeNotes ├── 2006.05.04_srebain.txt ├── 2006.06.16_srebain.txt ├── 2007.01.12_srebain.txt ├── 2007.05.08_ckeyser.txt ├── 2008.01.22_rhavis.txt ├── 2012.09.07_rhavis.txt ├── 2009.06.18_fmartin_rhavis.txt ├── 2006.09.27_drobinson_srebain.txt ├── template.txt ├── 2015.10.22_rhavis.txt ├── 2016.07.05_rhavis.txt ├── 2016.01.04_eesmith.txt ├── 2015.10.16_eesmith.txt ├── 2016.02.01_ckeyser.txt ├── 2014.03.19_eesmith.txt ├── 2015.02.02_esmithmateja.txt ├── 2016.01.14_rhavis.txt ├── 2006.04.07_rhavis.txt ├── 2010.08.12_esmithmateja.txt ├── 2016.03.15_rhavis.txt ├── 2013.10.31_rhavis.txt ├── 2003.12.02_dgammel.txt ├── 2009.06.05_rhavis.txt ├── 2014.12.04_rhavis_ldavid.txt ├── 2004.02.10_ncrookston.txt ├── 2014.06.27_rhavis.txt ├── 2015.06.17_eesmith.txt ├── 2014.03.25_srebain.txt ├── 2015.03.26_srebain.txt ├── 2016.07.18_mshettles.txt ├── 2016.07.15_rhavis.txt ├── 2007.12.10_rhavis_drobinson.txt ├── 2006.05.09_rhavis_drobinson.txt ├── 2014.07.07_rhavis.txt ├── 2012.11.20_srebain.txt ├── 2010.05.05_rhavis.txt ├── 2010.2.22_srebain.txt ├── 2011.10.19_rhavis.txt ├── 2016.7.14_rhavis.txt ├── 2012.08.07_rhavis.txt ├── 2008.08.11_rhavis.txt ├── 2007.09.24_rhavis.txt ├── 2014.12.02_rhavis.txt ├── 2013.01.10_esmithmateja.txt ├── 2014.03.13_rhavis.txt ├── 2003.11.25_dgammel ├── 2008.07.11a_rhavis.txt ├── 2015.10.19_rhavis.txt ├── 2016.05.03_rhavis.txt ├── 2007.10.26_rhavis.txt ├── 2015.08.13_eesmith.txt ├── 2008.02.27_rhavis.txt ├── 2006.09.29_rhavis_drobinson.txt ├── 2012.12.10_esmithmateja.txt ├── 2016.06.27_rhavis.txt ├── 2006.04.25_havis_keyser.txt ├── 2012.10.16_rhavis.txt ├── 2015.01.20_esmithmateja.txt ├── 2006.05.04_ckeyser_rhavis.txt ├── 2011.08.22_rhavis.txt ├── 2012.03.16_gdixon.txt ├── 2014.09.09b_srebain .txt ├── 2015.09.23_rhavis.txt ├── 2006.09.25_rhavis_kcormier.txt ├── 2016.04.25_rhavis.txt ├── 2014.08.28_srebain.txt ├── 2006.03.22_rhavis.txt ├── 2011.01.20_rhavis.txt ├── 2012.04.10_rhavis.txt ├── 2012.12.11_srebain.txt ├── 2004.03.12_rhavis.txt ├── 2005.03.09_srebain_and_gdixon.txt ├── 2006.08.11_rhavis_kcormier.txt ├── 2012.10.15_srebain.txt ├── 2006.06.14_srebain.txt ├── 2016.05.06_ckeyser.txt ├── 2010.08.24_srebain.txt ├── 2012.04.25_ckeyser.txt ├── 2014.04.09_rhavis.txt ├── 2014.04.03_rhavis.txt ├── 2006.09.28_rhavis.txt ├── 2010.12.13_srebain.txt ├── 2014.06.18_rhavis.txt ├── 2011.06.16_gdixon.txt ├── 2015.08.13_gdixon.txt ├── 2015.09.18_rhavis.txt └── 2016.06.29_mshettles.txt ├── .gitattributes ├── api ├── keywds_mod.f90 ├── api_options_mod.f90 ├── econ_mod.f90 ├── screen_mod.f90 ├── rancom_mod.f90 ├── initialize_api.f90 ├── strp │ ├── esrncm_mod.f90 │ └── esblkd_mod.f90 ├── estcor_mod.f90 ├── multcm_mod.f90 ├── estree_mod.f90 ├── downwood_data.f90 ├── fvsstdcm_mod.f90 └── pden_mod.f90 ├── dftm └── src │ ├── GPASS.F77 │ ├── UPPER.F77 │ ├── DFOL.F77 │ ├── LIMITS.F77 │ ├── BIOMAS.F77 │ ├── LOWER.F77 │ ├── TMEGGS.F77 │ ├── ICOND.F77 │ ├── y0comp.f │ ├── tmdam.f │ └── y1comp.f ├── get_numpy.bat ├── lpmpb └── src │ ├── MPBETA.F77 │ ├── ptsrg.f │ ├── percnt.f │ ├── PT.F77 │ ├── surflp.f │ ├── COLCOM.F77 │ ├── mpbcup.f │ └── coldrv.f ├── .hgignore ├── wwpb └── src │ ├── BMRCOM.F77 │ ├── bmtrip.f │ └── bmdbhc.f ├── hooks ├── pre-commit ├── readme.txt └── clean_version.py ├── bc ├── forkod.f ├── natcrz.f └── revise.f ├── rd └── src │ ├── RDCRY.F77 │ └── rdppatv.f ├── config_build.sh ├── on └── src │ ├── rgnthw.f │ ├── dgbnd.f │ ├── revise.f │ ├── dunn.f │ └── balmod.f ├── base └── src │ ├── ch2num.f │ ├── dbinit.f │ ├── svblkd.f │ ├── trnslo.f │ ├── upcase.f │ ├── lnkint.f │ ├── upkey.f │ ├── rcdset.f │ ├── extwigvol.f │ ├── svhabt.f │ ├── dball.f │ ├── trnasp.f │ ├── exfert.f │ ├── keydmp.f │ ├── evmkv.f │ ├── exorganon.f │ ├── istfnb.f │ ├── formcl.f │ ├── svcrol.f │ ├── svntr.f │ ├── tresor.f │ ├── getsed.f │ ├── lnkchn.f │ ├── cmrang.f │ └── damcds.f ├── environment.yml ├── sn └── src │ └── formcl.f ├── cmd_mingw-w32.bat ├── dbs └── src │ ├── dbsblkd.f │ └── dbsfmlink.f ├── organon └── src │ └── orgtrip.f ├── merge_trunk.WinMerge ├── wsbwe └── src │ ├── bweuky.f │ ├── bweuca.f │ ├── bweppatv.f │ ├── fxnote.f │ └── bwekdp.f ├── acd └── src │ └── bratio.f ├── em └── src │ └── logs.f ├── ak └── src │ ├── estock.f │ ├── prof2.f │ ├── esprep.f │ ├── prof1.f │ ├── oldsec.f │ └── habtyp.f ├── strp └── src │ ├── esmsgs.f │ └── esprep.f ├── wc └── src │ └── morts.f90 ├── mistoe └── src │ └── misact.f ├── .travis-ci └── setup_conda.sh ├── ws └── src │ └── exppnb.f ├── mirror.md ├── .appveyor └── setup_conda.bat └── estb └── src └── estpp.f /docs/readme: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /python/docs/_static/readme: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /python/pyfvs/docs/readme.rst: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /tests/FVSbcc/ClimBC.tre.save: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /python/docs/_templates/readme: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /python/pyfvs/test/__init__.py: -------------------------------------------------------------------------------- 1 | -------------------------------------------------------------------------------- /common/INCLUDESVN.F77: -------------------------------------------------------------------------------- 1 | DATA SVN/"1943"/ -------------------------------------------------------------------------------- /python/pyfvs/keywords/__init__.py: -------------------------------------------------------------------------------- 1 | from .keywords import * -------------------------------------------------------------------------------- /tests/FVSon/JPtest.rsp: -------------------------------------------------------------------------------- 1 | don2.key 2 | nul 3 | m 4 | t 5 | s 6 | nul 7 | -------------------------------------------------------------------------------- /ls/src/spctrn.f: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/ls/src/spctrn.f -------------------------------------------------------------------------------- /ni/src/spctrn.f: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/ni/src/spctrn.f -------------------------------------------------------------------------------- /oc/src/grohed.f: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/oc/src/grohed.f -------------------------------------------------------------------------------- /op/src/grohed.f: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/op/src/grohed.f -------------------------------------------------------------------------------- /resources/fvs.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/resources/fvs.ico -------------------------------------------------------------------------------- /tests/VolTest/AK.RSP: -------------------------------------------------------------------------------- 1 | AK.key 2 | test.tre 3 | AK.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/BM.RSP: -------------------------------------------------------------------------------- 1 | BM.key 2 | test.tre 3 | BM.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/CA.RSP: -------------------------------------------------------------------------------- 1 | CA.key 2 | test.tre 3 | CA.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/CI.RSP: -------------------------------------------------------------------------------- 1 | CI.key 2 | test.tre 3 | CI.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/CR.RSP: -------------------------------------------------------------------------------- 1 | CR.key 2 | test.tre 3 | CR.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/EC.RSP: -------------------------------------------------------------------------------- 1 | EC.key 2 | test.tre 3 | EC.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/EM.RSP: -------------------------------------------------------------------------------- 1 | EM.key 2 | test.tre 3 | EM.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/IE.RSP: -------------------------------------------------------------------------------- 1 | IE.key 2 | test.tre 3 | IE.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/KT.RSP: -------------------------------------------------------------------------------- 1 | KT.key 2 | test.tre 3 | KT.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/NC.RSP: -------------------------------------------------------------------------------- 1 | NC.key 2 | test.tre 3 | NC.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/PN.RSP: -------------------------------------------------------------------------------- 1 | PN.key 2 | test.tre 3 | PN.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/SO.RSP: -------------------------------------------------------------------------------- 1 | SO.key 2 | test.tre 3 | SO.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/TT.RSP: -------------------------------------------------------------------------------- 1 | TT.key 2 | test.tre 3 | TT.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/UT.RSP: -------------------------------------------------------------------------------- 1 | UT.key 2 | test.tre 3 | UT.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/WC.RSP: -------------------------------------------------------------------------------- 1 | WC.key 2 | test.tre 3 | WC.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/VolTest/WS.RSP: -------------------------------------------------------------------------------- 1 | WS.key 2 | test.tre 3 | WS.out 4 | NUL 5 | NUL 6 | NUL 7 | -------------------------------------------------------------------------------- /resources/pyfvs.res: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/resources/pyfvs.res -------------------------------------------------------------------------------- /.coveralls.yml: -------------------------------------------------------------------------------- 1 | service_name: travis-pro 2 | repo_token: wZpTQkBKseY5PT25bxDwLqdTRA4ne93Y0 3 | -------------------------------------------------------------------------------- /python/pyfvs/test/pytest.ini: -------------------------------------------------------------------------------- 1 | [pytest] 2 | addopts=--verbose 3 | python_files=test/*.py 4 | -------------------------------------------------------------------------------- /tests/FVSbcc/FFE-BC.rsp: -------------------------------------------------------------------------------- 1 | FFE-BC.key 2 | NUL 3 | FFE-BC.out 4 | NUL 5 | FFE-BC.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/FVSon/JPtest.mdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSon/JPtest.mdb -------------------------------------------------------------------------------- /tests/vba/fvspnc.xlsm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/vba/fvspnc.xlsm -------------------------------------------------------------------------------- /volume/src/voleqdef.f: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/volume/src/voleqdef.f -------------------------------------------------------------------------------- /python/pyfvs_runner.py: -------------------------------------------------------------------------------- 1 | import runpy 2 | runpy.run_module('pyfvs', run_name='__main__') 3 | -------------------------------------------------------------------------------- /tests/FVSbcc/ClimBC.mdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSbcc/ClimBC.mdb -------------------------------------------------------------------------------- /tests/FVSbcc/ClimBC.rsp: -------------------------------------------------------------------------------- 1 | ClimBC.key 2 | NUL 3 | ClimBC.out 4 | ClimBC.tre 5 | ClimBC.sum 6 | NUL -------------------------------------------------------------------------------- /tests/FVSbcc/WSBW-A.rsp: -------------------------------------------------------------------------------- 1 | WSBW-A.key 2 | NUL 3 | WSBW-A.out 4 | WSBW-A.trl 5 | WSBW-A.sum 6 | NUL -------------------------------------------------------------------------------- /bin/build_pyfvs_docs.bat: -------------------------------------------------------------------------------- 1 | c:\Python27\python.exe C:\Python27\Lib\pydoc.py pyfvspnc > pyfvspnc_doc.txt -------------------------------------------------------------------------------- /tests/FVSbcc/Mgmt BC In.mdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSbcc/Mgmt BC In.mdb -------------------------------------------------------------------------------- /tests/FVSiec/iet01.rsp: -------------------------------------------------------------------------------- 1 | iet01.key 2 | iet01.tre 3 | iet01.out 4 | iet01.tls 5 | iet01.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/FVSne/net01.rsp: -------------------------------------------------------------------------------- 1 | net01.key 2 | net01.tre 3 | net01.out 4 | net01.tls 5 | net01.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/FVSsn/snt01.rsp: -------------------------------------------------------------------------------- 1 | snt01.key 2 | snt01.tre 3 | snt01.out 4 | snt01.tls 5 | snt01.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /fire/fofem/src/fof_lem.h: -------------------------------------------------------------------------------- 1 | // 2 | // $Id$ 3 | // 4 | 5 | void LEM_Put (char cr_Title[], char cr_Mes[]); 6 | -------------------------------------------------------------------------------- /tests/FVSbcc/Mgmt BC Out.mdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSbcc/Mgmt BC Out.mdb -------------------------------------------------------------------------------- /tests/FVSbcc/Mgmt BC.rsp: -------------------------------------------------------------------------------- 1 | Mgmt BC.key 2 | NUL 3 | Mgmt BC.out 4 | Mgmt BC.tre 5 | Mgmt BC.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/FVSiec/FVSOutBlank.mdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSiec/FVSOutBlank.mdb -------------------------------------------------------------------------------- /tests/ODBC/access/FVS_Data.mdb: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/ODBC/access/FVS_Data.mdb -------------------------------------------------------------------------------- /tests/ODBC/sqlite/FVS_Data.db: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/ODBC/sqlite/FVS_Data.db -------------------------------------------------------------------------------- /tests/testSetFromFMSC/AKTEST.RSP: -------------------------------------------------------------------------------- 1 | aktest.key 2 | aktest.tre 3 | aktest.out 4 | NUL 5 | aktest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/CRTEST.RSP: -------------------------------------------------------------------------------- 1 | crtest.key 2 | crtest.tre 3 | crtest.out 4 | NUL 5 | crtest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/KTTEST.RSP: -------------------------------------------------------------------------------- 1 | kttest.key 2 | kttest.tre 3 | kttest.out 4 | NUL 5 | kttest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/NCTEST.RSP: -------------------------------------------------------------------------------- 1 | nctest.key 2 | nctest.tre 3 | nctest.out 4 | NUL 5 | nctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/UTTEST.RSP: -------------------------------------------------------------------------------- 1 | UTTEST.KEY 2 | UTTEST.TRE 3 | UTTEST.OUT 4 | nul 5 | UTTEST.SUM 6 | nul 7 | -------------------------------------------------------------------------------- /tests/FVSiec/FSVegClearwater.db: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSiec/FSVegClearwater.db -------------------------------------------------------------------------------- /tests/testSetFromFMSC/CRCTEST.RSP: -------------------------------------------------------------------------------- 1 | crtest.key 2 | crtest.tre 3 | crctest.out 4 | NUL 5 | crctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/KTCTEST.RSP: -------------------------------------------------------------------------------- 1 | kttest.key 2 | kttest.tre 3 | ktctest.out 4 | NUL 5 | ktctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/NCCTEST.RSP: -------------------------------------------------------------------------------- 1 | nctest.key 2 | nctest.tre 3 | ncctest.out 4 | NUL 5 | ncctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/UTCTEST.RSP: -------------------------------------------------------------------------------- 1 | UTTEST.KEY 2 | UTTEST.TRE 3 | UTCTEST.OUT 4 | nul 5 | UTCTEST.SUM 6 | nul 7 | -------------------------------------------------------------------------------- /changeNotes/2006.05.04_srebain.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2006.05.04_srebain.txt -------------------------------------------------------------------------------- /changeNotes/2006.06.16_srebain.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2006.06.16_srebain.txt -------------------------------------------------------------------------------- /changeNotes/2007.01.12_srebain.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2007.01.12_srebain.txt -------------------------------------------------------------------------------- /changeNotes/2007.05.08_ckeyser.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2007.05.08_ckeyser.txt -------------------------------------------------------------------------------- /changeNotes/2008.01.22_rhavis.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2008.01.22_rhavis.txt -------------------------------------------------------------------------------- /changeNotes/2012.09.07_rhavis.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2012.09.07_rhavis.txt -------------------------------------------------------------------------------- /tests/ODBC/conn_strings/fvstest.mdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/ODBC/conn_strings/fvstest.mdf -------------------------------------------------------------------------------- /tests/testSetFromFMSC/BMTEST.RSP: -------------------------------------------------------------------------------- 1 | bmtest.key 2 | bmtest.tre 3 | bmtest.out 4 | BMTEST.TLS 5 | bmtest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/CATEST.RSP: -------------------------------------------------------------------------------- 1 | catest.key 2 | catest.tre 3 | catest.out 4 | catest.tls 5 | catest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/ECTEST.RSP: -------------------------------------------------------------------------------- 1 | ectest.key 2 | ectest.tre 3 | ectest.out 4 | ECTEST.TLS 5 | ectest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/LSTEST.RSP: -------------------------------------------------------------------------------- 1 | lstest.key 2 | lstest.tre 3 | lstest.out 4 | lstest.tls 5 | lstest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/NETEST.RSP: -------------------------------------------------------------------------------- 1 | netest.key 2 | netest.tre 3 | netest.out 4 | netest.tls 5 | netest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/NITEST.RSP: -------------------------------------------------------------------------------- 1 | nitest.key 2 | nitest.tre 3 | nitest.out 4 | nitest.tls 5 | nitest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PNTEST.RSP: -------------------------------------------------------------------------------- 1 | PNtest.key 2 | PNtest.tre 3 | PNtest.out 4 | PNtest.tls 5 | PNtest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SOTEST.RSP: -------------------------------------------------------------------------------- 1 | sotest.key 2 | sotest.tre 3 | sotest.out 4 | sotest.tls 5 | sotest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/WCTEST.RSP: -------------------------------------------------------------------------------- 1 | wctest.key 2 | wctest.tre 3 | wctest.out 4 | NUL 5 | wctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/ietest.rsp: -------------------------------------------------------------------------------- 1 | ietest.key 2 | ietest.tre 3 | ietest.out 4 | ietest.tls 5 | ietest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/sntest.rsp: -------------------------------------------------------------------------------- 1 | sntest.key 2 | sntest.tre 3 | sntest.out 4 | sntest.tls 5 | sntest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /fire/fofem/src/fof_cm.h: -------------------------------------------------------------------------------- 1 | // 2 | // $Id$ 3 | // 4 | 5 | int WINAPI CM_Mngr (d_CI *a_CI, d_CO *a_CO, char cr_ErrMes[]); 6 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/BMCTEST.RSP: -------------------------------------------------------------------------------- 1 | bmtest.key 2 | bmtest.tre 3 | bmctest.out 4 | BMCTEST.TLS 5 | bmctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/CACTEST.RSP: -------------------------------------------------------------------------------- 1 | catest.key 2 | catest.tre 3 | cactest.out 4 | cactest.tls 5 | cactest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/CITEST.RSP: -------------------------------------------------------------------------------- 1 | citest.key 2 | citest.tre 3 | citest.out 4 | NUL 5 | citest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/CSTEST.RSP: -------------------------------------------------------------------------------- 1 | cstest.key 2 | cstest.tre 3 | cstest.out 4 | cstest.tls 5 | cstest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/ECCTEST.RSP: -------------------------------------------------------------------------------- 1 | ectest.key 2 | ectest.tre 3 | ecctest.out 4 | ECCTEST.TLS 5 | ecctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/EMTEST.RSP: -------------------------------------------------------------------------------- 1 | emtest.key 2 | emtest.tre 3 | emtest.out 4 | NUL 5 | emtest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/IECTEST.RSP: -------------------------------------------------------------------------------- 1 | ietest.key 2 | ietest.tre 3 | iectest.out 4 | iectest.tls 5 | iectest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/NICTEST.RSP: -------------------------------------------------------------------------------- 1 | nitest.key 2 | nitest.tre 3 | nictest.out 4 | nictest.tls 5 | nictest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PNCTEST.RSP: -------------------------------------------------------------------------------- 1 | PNtest.key 2 | PNtest.tre 3 | PNCtest.out 4 | PNCtest.tls 5 | PNCtest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SOCTEST.RSP: -------------------------------------------------------------------------------- 1 | sotest.key 2 | sotest.tre 3 | soctest.out 4 | soctest.tls 5 | soctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/TTTEST.RSP: -------------------------------------------------------------------------------- 1 | tttest.key 2 | tttest.tre 3 | tttest.out 4 | NUL 5 | tttest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/WCCTEST.RSP: -------------------------------------------------------------------------------- 1 | wctest.key 2 | wctest.tre 3 | wcctest.out 4 | NUL 5 | wcctest.sum 6 | NUL 7 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/WSTEST.RSP: -------------------------------------------------------------------------------- 1 | wstest.key 2 | wstest.tre 3 | wstest.out 4 | NUL 5 | wstest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/FVSiec/econ/Example4DBS.mdb.save: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSiec/econ/Example4DBS.mdb.save -------------------------------------------------------------------------------- /tests/FVSiec/econ/Example4DBS.xls.save: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSiec/econ/Example4DBS.xls.save -------------------------------------------------------------------------------- /tests/ODBC/conn_strings/fvstest_log.ldf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/ODBC/conn_strings/fvstest_log.ldf -------------------------------------------------------------------------------- /tests/VolTest/output/checkVolEqNos.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/VolTest/output/checkVolEqNos.exe -------------------------------------------------------------------------------- /tests/testSetFromFMSC/CICTEST.RSP: -------------------------------------------------------------------------------- 1 | citest.key 2 | citest.tre 3 | cictest.out 4 | NUL 5 | cictest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/EMCTEST.RSP: -------------------------------------------------------------------------------- 1 | emtest.key 2 | emtest.tre 3 | emctest.out 4 | NUL 5 | emctest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERBMTEST.RSP: -------------------------------------------------------------------------------- 1 | bmserial.key 2 | bmserial.tre 3 | bmserial.out 4 | bmserial.tls 5 | bmserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERCITEST.RSP: -------------------------------------------------------------------------------- 1 | ciserial.key 2 | ciserial.tre 3 | ciserial.out 4 | ciserial.tls 5 | ciserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERCRTEST.RSP: -------------------------------------------------------------------------------- 1 | crserial.key 2 | crserial.tre 3 | crserial.out 4 | crserial.tls 5 | crserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERECTEST.RSP: -------------------------------------------------------------------------------- 1 | ecserial.key 2 | ecserial.tre 3 | ecserial.out 4 | ecserial.tls 5 | ecserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERKTTEST.RSP: -------------------------------------------------------------------------------- 1 | ktserial.key 2 | ktserial.tre 3 | ktserial.out 4 | ktserial.tls 5 | ktserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERLSTEST.RSP: -------------------------------------------------------------------------------- 1 | lsserial.key 2 | lsserial.tre 3 | lsserial.out 4 | lsserial.tls 5 | lsserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERNITEST.RSP: -------------------------------------------------------------------------------- 1 | niserial.key 2 | niserial.tre 3 | niserial.out 4 | niserial.tls 5 | niserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERPNTEST.RSP: -------------------------------------------------------------------------------- 1 | pnserial.key 2 | pnserial.tre 3 | pnserial.out 4 | pnserial.tpn 5 | pnserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERSOTEST.RSP: -------------------------------------------------------------------------------- 1 | soserial.key 2 | soserial.tre 3 | soserial.out 4 | soserial.tls 5 | soserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERUTTEST.RSP: -------------------------------------------------------------------------------- 1 | utserial.key 2 | utserial.tre 3 | utserial.out 4 | utserial.tls 5 | utserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/SERWCTEST.RSP: -------------------------------------------------------------------------------- 1 | wcserial.key 2 | wcserial.tre 3 | wcserial.out 4 | wcserial.twc 5 | wcserial.sum 6 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/TTCTEST.RSP: -------------------------------------------------------------------------------- 1 | tttest.key 2 | tttest.tre 3 | ttctest.out 4 | NUL 5 | ttctest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/WSCTEST.RSP: -------------------------------------------------------------------------------- 1 | wstest.key 2 | wstest.tre 3 | wsctest.out 4 | NUL 5 | wsctest.sum 6 | NUL 7 |  8 | -------------------------------------------------------------------------------- /tests/testSetFromFMSC/sernctest.rsp: -------------------------------------------------------------------------------- 1 | niserial.key 2 | niserial.tre 3 | ncserial.out 4 | ncserial.tls 5 | ncserial.sum 6 | NULL -------------------------------------------------------------------------------- /changeNotes/2009.06.18_fmartin_rhavis.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2009.06.18_fmartin_rhavis.txt -------------------------------------------------------------------------------- /tests/FVSiec/econ/TestDataBase.accdb.save: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/tests/FVSiec/econ/TestDataBase.accdb.save -------------------------------------------------------------------------------- /tests/ODBC/conn_strings/fvstest.dsn: -------------------------------------------------------------------------------- 1 | [ODBC] 2 | DRIVER=SQL Server Native Client 10.0 3 | DATABASE=fvstest 4 | SERVER=.\sqlexpress 5 | -------------------------------------------------------------------------------- /changeNotes/2006.09.27_drobinson_srebain.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/changeNotes/2006.09.27_drobinson_srebain.txt -------------------------------------------------------------------------------- /fire/fireDocument/ProgrammersGuide_Fire_2004.doc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/tharen/PyFVS/HEAD/fire/fireDocument/ProgrammersGuide_Fire_2004.doc -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPBMTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | bmpp.key 5 | bmpp.tre 6 | bmpp.out 7 | bmpp.tls 8 | bmpp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPCITEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | cipp.key 5 | cipp.tre 6 | cipp.out 7 | cipp.tls 8 | cipp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPCRTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | crpp.key 5 | crpp.tre 6 | crpp.out 7 | crpp.tls 8 | crpp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPECTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | ecpp.key 5 | ecpp.tre 6 | ecpp.out 7 | ecpp.tls 8 | ecpp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPKTTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | ktpp.key 5 | ktpp.tre 6 | ktpp.out 7 | ktpp.tls 8 | ktpp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPLSTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | lspp.key 5 | lspp.tre 6 | lspp.out 7 | lspp.tls 8 | lspp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPNITEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | nipp.key 5 | nipp.tre 6 | nipp.out 7 | nipp.tls 8 | nipp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPPNTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | pnpp.key 5 | pnpp.tre 6 | pnpp.out 7 | pnpp.tpn 8 | pnpp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPSOTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | sopp.key 5 | sopp.tre 6 | sopp.out 7 | sopp.tso 8 | sopp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPUTTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | utpp.key 5 | utpp.tre 6 | utpp.out 7 | utpp.tls 8 | utpp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPWCTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | wcpp.key 5 | wcpp.tre 6 | wcpp.out 7 | wcpp.twc 8 | wcpp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/PPWSTEST.RSP: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | wspp.key 5 | wspp.tre 6 | wspp.out 7 | wspp.twc 8 | wspp.sum 9 | NULL -------------------------------------------------------------------------------- /tests/testSetFromFMSC/ppnctest.rsp: -------------------------------------------------------------------------------- 1 | file95.dat 2 | file94.dat 3 | file14.dat 4 | nipp.key 5 | nipp.tre 6 | ncpp.out 7 | ncpp.tls 8 | ncpp.sum 9 | NULL -------------------------------------------------------------------------------- /changeNotes/template.txt: -------------------------------------------------------------------------------- 1 | Subject: 2 | Name: 3 | Date: 4 | Variants affected: 5 | 6 | Description: 7 | 8 | Impact on users: 9 | 10 | Files: 11 | -------------------------------------------------------------------------------- /.gitattributes: -------------------------------------------------------------------------------- 1 | # Set the default behavior, in case people don't have core.autocrlf set. 2 | * text=auto 3 | *.bat eol=crlf 4 | 5 | *.mdb binary 6 | *.db binary 7 | *.sqlite binary 8 | -------------------------------------------------------------------------------- /api/keywds_mod.f90: -------------------------------------------------------------------------------- 1 | module keywds_mod 2 | contains 3 | subroutine keywds() 4 | use keycom_mod 5 | implicit none 6 | end subroutine keywds 7 | end module keywds_mod 8 | -------------------------------------------------------------------------------- /common/TWIGCOM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT TWIGCOM 2 | C---------- 3 | C **TWIGCOM DATE OF LAST REVISION: 06/15/00 4 | C---------- 5 | REAL BAU(50) 6 | COMMON /TWIGCOM/ BAU 7 | C-----END SEGMENT 8 | -------------------------------------------------------------------------------- /dftm/src/GPASS.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C GPASS COMMON BLOCK -- DATE OF LAST REVISION: 06/30/10 3 | C------------------------- 4 | REAL G2(100), G3(100) 5 | COMMON /GPASS/ G2, G3 6 | -------------------------------------------------------------------------------- /get_numpy.bat: -------------------------------------------------------------------------------- 1 | ::Fetch Numpy 2 | 3 | start /wait c:\progs\git\usr\bin\curl.exe -fsS -o numpy.whl https://free5.s3-us-west-2.amazonaws.com/appveyor-builds/numpy/numpy-1.10.4%%2Bvanilla-cp27-none-win_amd64.whl -------------------------------------------------------------------------------- /api/api_options_mod.f90: -------------------------------------------------------------------------------- 1 | ! Variables to control API options 2 | module api_options_mod 3 | implicit none 4 | 5 | logical use_fvs_morts 6 | 7 | contains 8 | 9 | end module api_options_mod 10 | -------------------------------------------------------------------------------- /tests/ODBC/conn_strings/purge_test.sql: -------------------------------------------------------------------------------- 1 | delete from fvs_summary where standid in ('test_driver','test_filedsn','test_sysdsn') 2 | delete from fvs_cases where standid in ('test_driver','test_filedsn','test_sysdsn') 3 | -------------------------------------------------------------------------------- /common/CALDEN.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT CALDEN 2 | C---------- 3 | C **CALDEN DATE OF LAST REVISION: 06/14/00 4 | C---------- 5 | REAL BAAINV(MAXPLT),TPACRE 6 | COMMON /CALDEN/ BAAINV,TPACRE 7 | C-----END SEGMENT 8 | -------------------------------------------------------------------------------- /dftm/src/UPPER.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C UPPER COMMON BLOCK -- DATE OF LAST REVISION: 06/30/10 3 | C------------------------- 4 | REAL X0(4), B0(66), R0(18) 5 | COMMON /UPPER/ X0, B0, R0 6 | -------------------------------------------------------------------------------- /lpmpb/src/MPBETA.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT MPBETA 2 | C---------- 3 | C **MPBETA DATE OF LAST REVISION: 07/02/10 4 | C---------- 5 | DOUBLE PRECISION EPS,BMIN 6 | COMMON/MPBETA/ EPS,BMIN 7 | C 8 | C-----END SEGMENT 9 | -------------------------------------------------------------------------------- /dftm/src/DFOL.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C DFOL COMMON BLOCK -- DATE OF LAST REVISION: 00:00:00 04/01/13 3 | C------------------------- 4 | REAL DPCENT(100,2),G19OUT(100,2) 5 | COMMON /DFOL/ DPCENT, G19OUT 6 | -------------------------------------------------------------------------------- /dftm/src/LIMITS.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C LIMITS COMMON BLOCK -- DATE OF LAST REVISION: 06/30/10 3 | C------------------------- 4 | INTEGER IC(3), ICOUNT, K(3), KP 5 | COMMON /LIMITS/ K, KP, IC, ICOUNT 6 | -------------------------------------------------------------------------------- /.hgignore: -------------------------------------------------------------------------------- 1 | syntax: glob 2 | 3 | .gitignore 4 | .git/* 5 | 6 | *.pyc 7 | *.o 8 | *.obj 9 | *.*~ 10 | *.bak 11 | *.orig 12 | *.tmp 13 | 14 | *.out 15 | *.chp 16 | *.trl 17 | *.sum 18 | *.sng 19 | 20 | *.h5 21 | *.mdb 22 | 23 | bin\* 24 | -------------------------------------------------------------------------------- /common/ESWSBW.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT ESWSBW 2 | C---------- 3 | C **ESWSBW DATE OF LAST REVISION: 06/14/00 4 | C---------- 5 | C 6 | INTEGER IBWHST(2,20),NBWHST 7 | COMMON /ESWSBW/ IBWHST,NBWHST 8 | C 9 | C-----END SEGMENT 10 | -------------------------------------------------------------------------------- /dftm/src/BIOMAS.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C BIOMAS COMMON BLOCK -- DATE OF LAST REVISION: 00:00:00 04/01/13 3 | C------------------------- 4 | REAL FBIOMS(MAXTRE), PCNEWF(MAXTRE) 5 | COMMON /BIOMAS/ FBIOMS, PCNEWF 6 | -------------------------------------------------------------------------------- /python/pyfvs/_version.py: -------------------------------------------------------------------------------- 1 | # This file is automatically updated during packaging. 2 | # The version is extracted from the current Git tag using setup.py version. 3 | 4 | __version__ = '0.0.13' 5 | __git_describe__ = '' 6 | __git_commit__ = '' 7 | -------------------------------------------------------------------------------- /common/SVRCOM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT SVRCOM 2 | C---------- 3 | C **SVRCOM DATE OF LAST REVISION: 06/15/00 4 | C---------- 5 | DOUBLE PRECISION SVS0,SVS1 6 | REAL SVSS 7 | COMMON /SVRCOM/ SVS0,SVS1,SVSS 8 | C-----END SEGMENT 9 | -------------------------------------------------------------------------------- /common/KOTCOM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT KOTCOM 2 | C---------- 3 | C **KOTCOM DATE OF LAST REVISION: 06/14/00 4 | C---------- 5 | INTEGER KOTHAB(175),KKTYPE,KOTFOR,KOTNUM 6 | COMMON /KOTCOM/ KOTHAB,KKTYPE,KOTFOR,KOTNUM 7 | C-----END SEGMENT 8 | -------------------------------------------------------------------------------- /tests/APIviaR/makefile: -------------------------------------------------------------------------------- 1 | 2 | # $Id$ 3 | 4 | all : Rapi 5 | 6 | Rapi : 7 | @echo Test Rapi: test api functions using R 8 | R --vanilla --quiet < Rapi.R > Rapi.out 9 | diff -w Rapi.out Rapi.out.save 10 | @echo Test Rapi ended 11 | 12 | 13 | -------------------------------------------------------------------------------- /tests/FVSon/JPtest.readme.txt: -------------------------------------------------------------------------------- 1 | The MS Access database file (JPtest.mdb) is provided "empty" so that runs will execute properly. 2 | It is not intended that this file be updated, since it will result in very large files. 3 | 4 | Don Robinson - ESSA 5 | 8 March 2016 -------------------------------------------------------------------------------- /api/econ_mod.f90: -------------------------------------------------------------------------------- 1 | module econ_mod 2 | !ODE SEGMENT ECON 3 | !---------- 4 | ! **ECON DATE OF LAST REVISION: 06/14/00 5 | !---------- 6 | LOGICAL LECON,LECBUG 7 | INTEGER JOSUME 8 | !-----END SEGMENT 9 | end module econ_mod 10 | -------------------------------------------------------------------------------- /api/screen_mod.f90: -------------------------------------------------------------------------------- 1 | module screen_mod 2 | !ODE SEGMENT SCREEN 3 | !---------- 4 | ! **SCREEN DATE OF LAST REVISION: 06/16/00 5 | !---------- 6 | LOGICAL LSCRN 7 | INTEGER JOSCRN 8 | !-----END SEGMENT 9 | end module screen_mod 10 | -------------------------------------------------------------------------------- /dftm/src/LOWER.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C LOWER COMMON BLOCK -- DATE OF LAST REVISION: 06/30/10 3 | C------------------------- 4 | REAL X1(4), Z1(4), B1(36), R1(18), G1(19), F1(4), Y1(3) 5 | COMMON /LOWER/ X1, Z1, B1, R1, G1, F1, Y1 6 | -------------------------------------------------------------------------------- /tests/FVSbcc/ClimBC.readme.txt: -------------------------------------------------------------------------------- 1 | The MS Access database file (ClimBC.mdb) is provided "empty" so that runs will execute properly. 2 | It is not intended that this file be updated, since it will result in very large files. 3 | 4 | Don Robinson - ESSA 5 | 15 April 2013 -------------------------------------------------------------------------------- /tests/FVSbcc/Mgmt BC Regen.kcp: -------------------------------------------------------------------------------- 1 | 2 | IF 3 | CUT EQ 1.0 4 | THEN 5 | ESTAB 6 | STOCKADJ 1.0 7 | *--------1---------2---------3---------4---------5---------6 8 | NATURAL 0.0 FD 500.0 9 | MECHPREP 0.0 0.0 10 | END 11 | -------------------------------------------------------------------------------- /python/setup.cfg: -------------------------------------------------------------------------------- 1 | [bdist_wheel] 2 | universal=0 3 | 4 | [build] 5 | #compiler=mingw32 6 | 7 | [build_ext] 8 | inplace=1 9 | #compiler=mingw32 10 | 11 | [aliases] 12 | test=pytest 13 | 14 | [tool:pytest] 15 | addopts=--verbose 16 | python_files=pyfvs/test/*.py 17 | -------------------------------------------------------------------------------- /wwpb/src/BMRCOM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT BMRNCM 2 | C---------- 3 | C **BMRNCM DATE OF LAST REVISION: Wed Apr 21 16:17:56 PDT 1993 4 | C---------- 5 | REAL*8 BMS0,BMS1 6 | REAL*4 BMSS 7 | 8 | COMMON /BMRNCM/ BMS0,BMS1,BMSS 9 | 10 | C-----END SEGMENT 11 | -------------------------------------------------------------------------------- /api/rancom_mod.f90: -------------------------------------------------------------------------------- 1 | module rancom_mod 2 | !ODE SEGMENT RANCOM 3 | !---------- 4 | ! **RANCOM DATE OF LAST REVISION: 06/15/00 5 | !---------- 6 | DOUBLE PRECISION S0,S1 7 | REAL SS 8 | !-----END SEGMENT 9 | end module rancom_mod 10 | -------------------------------------------------------------------------------- /python/setup.cfg.mingw: -------------------------------------------------------------------------------- 1 | [bdist_wheel] 2 | universal=0 3 | 4 | [build] 5 | compiler=mingw32 6 | 7 | [build_ext] 8 | inplace=1 9 | compiler=mingw32 10 | 11 | [aliases] 12 | test=pytest 13 | 14 | [tool:pytest] 15 | addopts=--verbose 16 | python_files=pyfvs/test/*.py 17 | -------------------------------------------------------------------------------- /api/initialize_api.f90: -------------------------------------------------------------------------------- 1 | module initialize_api 2 | contains 3 | subroutine init 4 | use api_options_mod, only: use_fvs_morts 5 | implicit none 6 | !f2py 7 | use_fvs_morts = .false. 8 | end subroutine init 9 | end module initialize_api 10 | -------------------------------------------------------------------------------- /api/strp/esrncm_mod.f90: -------------------------------------------------------------------------------- 1 | module esrncm_mod 2 | !ODE SEGMENT ESRNCM 3 | !---------- 4 | ! **ESRNCM DATE OF LAST REVISION: 06/14/00 5 | !---------- 6 | DOUBLE PRECISION ESS0,ESS1 7 | REAL ESSS 8 | !-----END SEGMENT 9 | end module esrncm_mod 10 | -------------------------------------------------------------------------------- /hooks/pre-commit: -------------------------------------------------------------------------------- 1 | #!/bin/sh 2 | 3 | if python python/misc/clean_version.py ; then 4 | git add python/pyfvs/_version.py 5 | echo "clean_version.py ran successfully." 6 | exit 0 7 | 8 | else 9 | echo "clean_version.py ran failed." 10 | exit 1 11 | 12 | fi 13 | -------------------------------------------------------------------------------- /api/estcor_mod.f90: -------------------------------------------------------------------------------- 1 | module estcor_mod 2 | use prgprm_mod 3 | implicit none 4 | !ODE SEGMENT ESTCOR 5 | !---------- 6 | ! **ESTCOR DATE OF LAST REVISION: 06/14/00 7 | !---------- 8 | REAL HCOR(MAXSP) 9 | COMMON /ESTCOR/ HCOR 10 | !-----END SEGMENT 11 | end module estcor_mod -------------------------------------------------------------------------------- /bc/forkod.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE FORKOD 2 | use plot_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C $Id$ 7 | C---------- 8 | C 9 | C DUMMY ENTRY POINT; KODFOR NOT USED BY SEI VARIANT 10 | C 11 | KODFOR = 0 12 | 13 | RETURN 14 | END 15 | -------------------------------------------------------------------------------- /fire/cfim/rkdumb.h: -------------------------------------------------------------------------------- 1 | //---------- 2 | // $Id$ 3 | //---------- 4 | 5 | 6 | #ifndef RKDUMB 7 | #define RKDUMB 8 | 9 | void rkdumb(double vstart[], int nvar, double x1, double x2, int nstep, 10 | void (*derivs)(double, double [], double [])); 11 | 12 | 13 | #endif // RKDUMB 14 | 15 | 16 | -------------------------------------------------------------------------------- /rd/src/RDCRY.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT RDCRY 2 | C---------- 3 | C **RDCRY LAST REVISION: 08/19/14 4 | C--------- 5 | REAL CRNSTO(ITOTRR,2,5), PROBIN(ITOTRR,2,5) 6 | 7 | COMMON /RDCRY/ PROBIN, CRNSTO 8 | C 9 | C PROBIN -- 10 | C CRNSTO -- 11 | C 12 | C-----END SEGMENT 13 | -------------------------------------------------------------------------------- /tests/makefile: -------------------------------------------------------------------------------- 1 | 2 | # $Id$ 3 | 4 | # runs all the tests where the directory names start with FVS, ignoring errors. 5 | 6 | export TestDirs = $(shell ls -d FVS*) 7 | 8 | all : $(addsuffix .test,$(TestDirs)) 9 | 10 | %.test : 11 | cd $(basename $@); ${MAKE} --ignore-errors 12 | 13 | 14 | -------------------------------------------------------------------------------- /bin/popsh.bat: -------------------------------------------------------------------------------- 1 | @echo off&cls 2 | setlocal EnableDelayedExpansion 3 | set $line=%path% 4 | set $line=%$line: =#% 5 | set $line=%$line:;= % 6 | 7 | for "tokens=*" %%a in (%$line%) do echo "%%a" | find /i "git" || set $newpath=!$newpath!;"%%a" 8 | REM set $newpath=!$newpath:#= ! 9 | REM echo set path=!$newpath:~1! -------------------------------------------------------------------------------- /dftm/src/TMEGGS.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C TMEGGS COMMON BLOCK -- DATE OF LAST REVISION: 00:00:00 12/29/88 3 | C------------------------- 4 | INTEGER IEGTYP 5 | REAL DFEGG(3), GFEGG(3), DFREGG(3), GFREGG(3) 6 | COMMON /TMEGGS/ DFEGG, GFEGG, DFREGG, GFREGG, 7 | + IEGTYP 8 | -------------------------------------------------------------------------------- /ls/src/ptbal.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE PTBAL 2 | IMPLICIT NONE 3 | C---------- 4 | C **PTBAL--LS DATE OF LAST REVISION: 07/11/08 5 | C---------- 6 | C DUMMY VERSION FOR VARIANTS THAT DON'T REQUIRE BASAL AREA IN LARGER 7 | C TREES ON A POINT-BY-POINT BASIS. 8 | C---------- 9 | RETURN 10 | END 11 | -------------------------------------------------------------------------------- /common/DBSTK.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT DBSTK 2 | C---------- 3 | C **DBSTK DATE OF LAST REVISION: 06/14/00 4 | C---------- 5 | CHARACTER*255 SUBNAM 6 | CHARACTER*6 ALLSUB 7 | INTEGER ITOP,MAXTOP,MAXLEN 8 | COMMON /DBCHR/ SUBNAM,ALLSUB 9 | COMMON /DBSTK/ ITOP,MAXTOP,MAXLEN 10 | C-----END SEGMENT 11 | -------------------------------------------------------------------------------- /tests/FVSbcc/Mgmt BC.readme.txt: -------------------------------------------------------------------------------- 1 | The MS Access database file ("Mgmt BC Out.mdb) is provided "empty" so that runs will execute properly. 2 | It is not intended that this file be updated, since it will result in very large files. 3 | Filenames within KEY file and RSP file use embedded blanks 4 | 5 | Don Robinson - ESSA 6 | 10 May 201 7 | -------------------------------------------------------------------------------- /config_build.sh: -------------------------------------------------------------------------------- 1 | mkdir -p bin/build 2 | pushd bin/build 3 | 4 | cmake -G"Unix Makefiles" .. \ 5 | -DFVS_VARIANTS="pnc;wcc;soc;cac" -DWITH_PYEXT=ON \ 6 | -D32BIT_TARGET=No -DNATIVE_ARCH=Yes \ 7 | -DSTATIC_LINK=ON -DENABLE_LTO=OFF \ 8 | -DCMAKE_BUILD_TYPE=Release \ 9 | -DCMAKE_INSTALL_PREFIX=$(pwd)/dist 10 | 11 | -------------------------------------------------------------------------------- /on/src/rgnthw.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE RGNTHW(LESTB,ITRNIN) 2 | IMPLICIT NONE 3 | C---------- 4 | C **REGENT--LS DATE OF LAST REVISION: 06/02/08 5 | C---------- 6 | C ROUTINE NOT USED IN ON VARIANT; PRESERVED FOR COMPATIBILTIY WITH OLD CALLS 7 | 8 | LOGICAL LESTB 9 | INTEGER ITRNIN 10 | 11 | RETURN 12 | END 13 | -------------------------------------------------------------------------------- /base/src/ch2num.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE CH2NUM (C2,ICYC) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | INTEGER ICYC 8 | CHARACTER*2 C2 9 | C 10 | C WRITES A TWO DIGIT INTEGER INTO A CHARACTER*2 STRING. 11 | C 12 | WRITE (C2,20) ICYC 13 | 20 FORMAT (I2) 14 | RETURN 15 | END 16 | -------------------------------------------------------------------------------- /base/src/dbinit.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DBINIT 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C 8 | COMMONS 9 | C 10 | C 11 | INCLUDE 'DBSTK.F77' 12 | C 13 | C 14 | COMMONS 15 | C 16 | C 17 | ALLSUB='$**SUB' 18 | MAXTOP=255 19 | ITOP=0 20 | MAXLEN=20 21 | RETURN 22 | END 23 | -------------------------------------------------------------------------------- /ni/src/maical.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE MAICAL 2 | IMPLICIT NONE 3 | C---------- 4 | C **MAICAL--NI DATE OF LAST REVISION: 04/09/08 5 | C---------- 6 | C THIS SUBROUTINE CALCULATES THE MAI FOR THE STAND. IT IS CALLED 7 | C FROM CRATET. FOR INLAND EMPIRE THIS ROUTINE IS A DUMMY. 8 | C---------- 9 | C 10 | RETURN 11 | END 12 | -------------------------------------------------------------------------------- /ls/src/maical.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE MAICAL 2 | IMPLICIT NONE 3 | C---------- 4 | C **MAICAL--LS DATE OF LAST REVISION: 07/11/08 5 | C---------- 6 | C THIS SUBROUTINE CALCULATES THE MAI FOR THE STAND. IT IS CALLED 7 | C FROM CRATET. FOR LAKE STATES VARIANT THIS ROUTINE IS A DUMMY. 8 | C---------- 9 | C 10 | RETURN 11 | END 12 | -------------------------------------------------------------------------------- /base/src/svblkd.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE SVBLKD() 2 | use svdata_mod,only: nimage 3 | implicit none 4 | C---------- 5 | C $Id$ 6 | C---------- 7 | C 8 | C STAND VISUALIZATION GENERATION 9 | C N.L.CROOKSTON -- RMRS MOSCOW -- NOVEMBER 1998 10 | C 11 | C INITIALIZE VISUALIZATION VARIABLES 12 | C 13 | NIMAGE = 0 14 | END 15 | -------------------------------------------------------------------------------- /bin/gen_pyf.py.in: -------------------------------------------------------------------------------- 1 | from numpy.f2py import f2py2e 2 | 3 | sources = open('./pyext_source.txt').read() 4 | sources = sources.split(';') 5 | 6 | cmd_args = [ 7 | '-h', '@pyext_name@.pyf' 8 | ,'-m', '@pyext_name@' 9 | ,'--overwrite-signature' 10 | ] 11 | cmd_args.extend(sources) 12 | f2py2e.run_main(cmd_args) 13 | 14 | -------------------------------------------------------------------------------- /dftm/src/ICOND.F77: -------------------------------------------------------------------------------- 1 | C------------------------- 2 | C ICOND COMMON BLOCK -- DATE OF LAST REVISION: 06/30/10 3 | C------------------------- 4 | INTEGER IZ6(100), JCLASS(100) 5 | REAL G19(100), X5(100), X6(100), X7(100), Z4(100), Z5(100), 6 | & Z2(100), Z3(100) 7 | COMMON /ICOND/ IZ6, Z4, Z5, Z2, Z3, X5, X6, X7, JCLASS, G19 8 | -------------------------------------------------------------------------------- /environment.yml: -------------------------------------------------------------------------------- 1 | channels: !!python/tuple 2 | - conda-forge 3 | - defaults 4 | dependencies: 5 | - python=3.4 6 | - cython 7 | - numpy=1.11 8 | - pandas 9 | - pyodbc 10 | - click 11 | - pip 12 | - setuptools 13 | - wheel 14 | - sphinx 15 | - alabaster 16 | - matplotlib 17 | - pip: 18 | - pytest 19 | - sphinxcontrib-napoleon 20 | -------------------------------------------------------------------------------- /tests/pyfvs/fvspnc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : pnt01 3 | 4 | pnt01 : 5 | @echo Test pnt01, basic functionality 6 | -../../../bin/bin/FVSpnc --keywordfile=pnt01.key 7 | grep -v "\-999" pnt01.sum > pnt01.tmp 8 | grep -v "\-999" pnt01.sum.save > pnt01.tmp.save 9 | diff -w pnt01.tmp pnt01.tmp.save 10 | rm pnt01.tmp pnt01.tmp.save 11 | @echo Test pnt01 ended 12 | -------------------------------------------------------------------------------- /sn/src/formcl.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE FORMCL(ISPC,IFOR,D,FC) 2 | IMPLICIT NONE 3 | C---------- 4 | C **FORMCL--SN DATE OF LAST REVISION: 06/05/08 5 | C---------- 6 | C 7 | INTEGER IFOR,ISPC 8 | REAL FC,D 9 | C 10 | C THIS IS A DUMMY ROUTINE TO RETURN FORMCLASS 80 TO CALLING ROUTINE 11 | C 12 | FC= 80 13 | C 14 | RETURN 15 | END 16 | -------------------------------------------------------------------------------- /python/environment.yml: -------------------------------------------------------------------------------- 1 | channels: !!python/tuple 2 | - conda-forge 3 | - defaults 4 | dependencies: 5 | - python=3.4 6 | - cython 7 | - numpy>=1.11 8 | - pandas 9 | - pyodbc 10 | - click 11 | - pip 12 | - setuptools 13 | - wheel 14 | - sphinx 15 | - alabaster 16 | - matplotlib 17 | - pip: 18 | - pytest 19 | - sphinxcontrib-napoleon 20 | -------------------------------------------------------------------------------- /tests/ODBC/sqlite/sqliteTestFVSieOut.sql: -------------------------------------------------------------------------------- 1 | .tables 2 | .mode csv 3 | select StandID, RunTitle, KeywordFile, SamplingWt, Variant from FVS_Cases; 4 | select StandID, Year, round(MYBBA,2), round(MYABA,2), round(MYBAR,2), 5 | round(newDHt,2), round(newMyBBA,2), round(X1,2) 6 | from FVS_Compute; 7 | select Count(*) from FVS_TreeList; 8 | select StandID, TopHt, BA, TPA from FVS_Summary; 9 | -------------------------------------------------------------------------------- /fire/cfim/stdafx.cpp: -------------------------------------------------------------------------------- 1 | //---------- 2 | // $Id$ 3 | //---------- 4 | // stdafx.cpp : source file that includes just the standard includes 5 | // cfim.pch will be the pre-compiled header 6 | // stdafx.obj will contain the pre-compiled type information 7 | 8 | #include "stdafx.h" 9 | 10 | // TODO: reference any additional headers you need in STDAFX.H 11 | // and not in this file 12 | -------------------------------------------------------------------------------- /volume/src/volinput_mod.f: -------------------------------------------------------------------------------- 1 | MODULE VOLINPUT_MOD 2 | IMPLICIT NONE 3 | 4 | INTEGER FORMCLASS 5 | CHARACTER*1 MRULEMOD 6 | INTEGER NEWEVOD,NEWOPT 7 | REAL NEWMAXLEN,NEWMINLEN,NEWMINLENT,NEWMERCHL,NEWMTOPP 8 | REAL NEWMTOPS,NEWSTUMP,NEWTRIM,NEWBTR,NEWDBTBH,NEWMINBFD 9 | CHARACTER*1 NEWCOR 10 | END MODULE VOLINPUT_MOD -------------------------------------------------------------------------------- /base/src/trnslo.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE TRNSLO 2 | use plot_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C $Id$ 7 | C---------- 8 | C TRNSLO DECODES THE INPUT SLOPE VALUE TO A RATIO. 9 | C---------- 10 | COMMONS 11 | C CONVERT SLOPE TO A RATIO. 12 | C 13 | SLOPE=SLOPE/100. 14 | IF (SLOPE.LT.0.0) SLOPE=0.0 15 | RETURN 16 | END 17 | -------------------------------------------------------------------------------- /changeNotes/2015.10.22_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Thin/Prune Schedule Bug 2 | Name: R. Havis 3 | Date: October 22, 2015 4 | Variants affected: All 5 | 6 | Description: When scheduling thinning and pruning in the same cycle, 7 | the thinning action did not occur. This has been corrected. 8 | 9 | Impact on users: Pruning keyword users should obtain new executables. 10 | 11 | Files: 12 | -------------------------------------------------------------------------------- /changeNotes/2016.07.05_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Simpson Timber Company Volumes 2 | Name: R. Havis 3 | Date: July 5, 2016 4 | Variants affected: NC 5 | 6 | Description: 7 | 1) NC variant: After April 11, 2016, the volumes for location code 800, Simpson 8 | Timber Company, were not working. This has been corrected. 9 | 10 | 11 | Impact on users: 12 | 13 | Files: 14 | -------------------------------------------------------------------------------- /base/src/upcase.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE UPCASE (C) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | INTEGER IP 7 | CHARACTER C 8 | CHARACTER*26 UPPER,LOWER 9 | DATA UPPER /'ABCDEFGHIJKLMNOPQRSTUVWXYZ'/ 10 | DATA LOWER /'abcdefghijklmnopqrstuvwxyz'/ 11 | IP=INDEX(LOWER,C) 12 | IF (IP.GT.0) C=UPPER(IP:IP) 13 | RETURN 14 | END 15 | -------------------------------------------------------------------------------- /api/multcm_mod.f90: -------------------------------------------------------------------------------- 1 | module multcm_mod 2 | use prgprm_mod, only : maxsp 3 | !CODE SEGMENT MULTCM 4 | !---------- 5 | ! **MULTCM DATE OF LAST REVISION: 06/29/00 6 | !---------- 7 | REAL XDMULT(MAXSP),XHMULT(MAXSP),XRHMLT(MAXSP),XMMULT(MAXSP), & 8 | XRDMLT(MAXSP),XMDIA1(MAXSP),XMDIA2(MAXSP) 9 | ! 10 | !-----END SEGMENT 11 | end module multcm_mod 12 | -------------------------------------------------------------------------------- /base/src/lnkint.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE LNKINT 2 | use contrl_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C $Id$ 7 | C---------- 8 | C 9 | INTEGER I 10 | C 11 | NUMSP=0 12 | DO 20 I=1,MAXSP 13 | ISCT(I,1)=0 14 | ISCT(I,2)=0 15 | IBEGIN(I)=0 16 | IREF(I)=0 17 | KOUNT(I)=0 18 | 20 CONTINUE 19 | RETURN 20 | END 21 | -------------------------------------------------------------------------------- /base/src/upkey.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE UPKEY (KEYWRD) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C THESE ROUTINES CONVERT KEYWORDS THAT ARE INPUT IN LOWER CASE LETTERS 7 | C TO UPPER CASE LETTERS. 8 | C---------- 9 | INTEGER I 10 | CHARACTER*8 KEYWRD 11 | DO 40 I=1,8 12 | CALL UPCASE(KEYWRD(I:I)) 13 | 40 CONTINUE 14 | RETURN 15 | END 16 | -------------------------------------------------------------------------------- /changeNotes/2016.01.04_eesmith.txt: -------------------------------------------------------------------------------- 1 | Subject: Mortality 2 | Name: Erin Smith-Mateja 3 | Date: 01/04/16 4 | Variants affected: PN, WC, OP 5 | 6 | Description: A critical value was not being calculated for some trees when 7 | the SDICALC keyword had a diamater threshold. This has been fixed. 8 | 9 | 10 | Impact on users: Fixes a bug 11 | 12 | Files: 13 | wc/src 14 | morts.f 15 | op/src 16 | morts.f -------------------------------------------------------------------------------- /bc/natcrz.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE NATCRZ (IWHO) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C CREATE A FILE FOR PROCESSING THROUGH THE NATIONAL CRUISE SYSTEM 8 | C VOLUME ROUTINE 9 | C 10 | C IWHO=1 IF CALLED FROM MAIN, IWHO=2 IF CALLED FROM CUTS 11 | C **THIS VERSION IS A STUB: NATCRZ NOTE USED IN BC** 12 | C 13 | INTEGER IWHO 14 | RETURN 15 | END 16 | -------------------------------------------------------------------------------- /cmd_mingw-w32.bat: -------------------------------------------------------------------------------- 1 | 2 | setlocal 3 | 4 | set proj_root=%~dp0 5 | 6 | set PATH=C:\progs\mingw-w64\i686-5.3.0-win32-sjlj-rt_v4-rev0\mingw32\bin 7 | set PATH=%PATH%;C:\Windows\System32;C:\Windows 8 | set PATH=C:\progs\cmake\bin;%PATH% 9 | set PATH=C:\progs\Git\bin;C:\progs\Git\usr\bin;%PATH% 10 | set path=%path%;C:\Miniconda3-x86;C:\Miniconda3-x86\Scripts 11 | 12 | start C:\progs\ConEmu\ConEmu64.exe 13 | -------------------------------------------------------------------------------- /fire/fofem/src/fof_co2.h: -------------------------------------------------------------------------------- 1 | // 2 | // $Id$ 3 | // 4 | /*{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*} 5 | * Name: fof_co.c 6 | * Desc: Consumerd Output functions 7 | {*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}*/ 8 | 9 | 10 | 11 | /*.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- */ 12 | void WINAPI CO_Init (d_CO *a_CO); 13 | -------------------------------------------------------------------------------- /tests/VolTest/output/KT.txt: -------------------------------------------------------------------------------- 1 | CODE= 114,CODE= 621 2 | WP,I00FW2W119,WP,I00FW2W119 3 | WL,I00FW2W073,WL,I11FW2W073 4 | DF,I00FW2W202,DF,I11FW2W202 5 | GF,I00FW2W017,GF,I11FW2W017 6 | WH,I00FW2W260,WH,I11FW2W017 7 | RC,I00FW2W242,RC,I11FW2W242 8 | LP,I00FW2W108,LP,I11FW2W108 9 | ES,I00FW2W093,ES,I13FW2W093 10 | AF,I00FW2W019,AF,I11FW2W202 11 | PP,I00FW2W122,PP,I12FW2W122 12 | OT,I00FW2W260,OT,616BEHW999 13 | -------------------------------------------------------------------------------- /base/src/rcdset.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE RCDSET (IC,LRETRN) 2 | use contrl_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C $Id$ 7 | C---------- 8 | C 9 | C SETS THE RETURN CODE FOR THE PROGNOSIS MODEL. 10 | C 11 | INTEGER IC 12 | LOGICAL LRETRN 13 | C 14 | IF (IC.GT.ICCODE) ICCODE=IC 15 | IF (.NOT.LRETRN) CALL fvsSetRtnCode (1) 16 | RETURN 17 | END 18 | -------------------------------------------------------------------------------- /dbs/src/dbsblkd.f: -------------------------------------------------------------------------------- 1 | BLOCK DATA DBSBLKD 2 | C 3 | C $Id$ 4 | C 5 | C INITIALIZE DATABASE VARIABLES 6 | C 7 | COMMONS 8 | C 9 | C 10 | INCLUDE 'DBSCOM.F77' 11 | C 12 | C 13 | COMMONS 14 | C 15 | DATA DSNOUT/'FVSOut.mdb'/ 16 | DATA ConnHndlOut/-1/ 17 | DATA EnvHndlOut/-1/ 18 | DATA DSNIN/'FVSIn.mdb'/ 19 | DATA ConnHndlIn/-1/ 20 | DATA EnvHndlIn/-1/ 21 | 22 | END 23 | -------------------------------------------------------------------------------- /ni/src/dunn.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DUNN (SS) 2 | IMPLICIT NONE 3 | C---------- 4 | C **DUNN--NI DATE OF LAST REVISION: 04/09/08 5 | C---------- 6 | C 7 | C THIS SUBROUTINE PROCESSES THE DUNNING SITE CODE INFORMATION 8 | C ENTERED ON THE SITECODE KEYWORD. FOR INLAND EMPIRE VARIANT 9 | C THIS SUBROUTINE IS A DUMMY. 10 | C 11 | COMMONS 12 | C 13 | C 14 | REAL SS 15 | RETURN 16 | END 17 | -------------------------------------------------------------------------------- /volume/src/charmod.f: -------------------------------------------------------------------------------- 1 | MODULE CHARMOD 2 | 3 | ! Module to store utility type definitions 4 | 5 | ! Created TEH 02/24/09 6 | ! Revised TDH 02/27/09 . 7 | 8 | ! Class for receiving strings in calls from C++ 9 | TYPE CHAR256 10 | SEQUENCE 11 | INTEGER LENGTH 12 | CHARACTER(256) STR 13 | END TYPE CHAR256 14 | 15 | 16 | END MODULE CHARMOD 17 | -------------------------------------------------------------------------------- /base/src/extwigvol.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EXTWIGVOL 2 | IMPLICIT NONE 3 | C 4 | C BASE-$ID 5 | C 6 | C SATISFY CALLS TO TWIGS VOLUME EQUATIONS FROM ***FVSVOL*** FROM 7 | C NON-R9 VARIANTS 8 | C 9 | INTEGER ISPC,I 10 | REAL H,D,VMAX,BBFV,VN,VM 11 | C 12 | ENTRY TWIGBF(ISPC,H,D,VMAX,BBFV) 13 | RETURN 14 | C 15 | ENTRY TWIGCF(ISPC,H,D,VN,VM,I) 16 | RETURN 17 | C 18 | END -------------------------------------------------------------------------------- /common/PPCISN.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT PPCISN 2 | C---------- 3 | C **PPCISN DATE OF LAST REVISION: 06/15/00 4 | C---------- 5 | INTEGER MXPRTD 6 | PARAMETER (MXPRTD=3000) 7 | CHARACTER*11 CISNS(MXPRTD) 8 | COMMON /PPCISN/ CISNS 9 | C 10 | C CISNS = INTERNAL STAND NUMBERS AS READ BY THE HISTORY FILE AND 11 | C USED BY SNDTBS AND THE ROUTINES IT CALLS. 12 | C 13 | C-----END SEGMENT 14 | -------------------------------------------------------------------------------- /organon/src/orgtrip.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE ORGTRIP(I,ITFN) 2 | use prgprm_mod 3 | use organon_mod 4 | implicit none 5 | C---------- 6 | C **ORGTRIP ORGANON--DATE OF LAST REVISION: 04/05/2015 7 | C---------- 8 | C 9 | C TRIPLES TREE VARIABLES NEEDED FOR ORGANON PROCESSING. 10 | C 11 | C---------- 12 | C 13 | INTEGER I,ITFN 14 | C 15 | IORG(ITFN)=IORG(I) 16 | C 17 | RETURN 18 | END 19 | -------------------------------------------------------------------------------- /base/src/svhabt.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE SVHABT(XMOD) 2 | use prgprm_mod 3 | implicit none 4 | C---------- 5 | C $Id$ 6 | C---------- 7 | C 8 | C STAND VISUALIZATION GENERATION 9 | C J.J.MARCHINEK -- RMRS MOSCOW -- JUNE 1998 10 | C 11 | C USED FOR PROCESSING HABITAT INFORMATION FOR SNAGS 12 | C 13 | INCLUDE 'SVDEAD.F77' 14 | C 15 | REAL XMOD 16 | XMOD=1. 17 | 18 | RETURN 19 | END 20 | -------------------------------------------------------------------------------- /volume/src/clkcoef_mod.f: -------------------------------------------------------------------------------- 1 | MODULE CLKCOEF_MOD 2 | 3 | ! Module to store clark equation coefficients 4 | 5 | ! Created TDH 11/23/09 6 | ! Revised ... ../../.. 7 | ! YW 06/03/14 added Q, FIXDI, DX for region 8 Clark equation 8 | TYPE CLKCOEF 9 | SEQUENCE 10 | REAL DBHIB,DIB17,R,C,E,P,B,A,A4,B4,A17,B17,TOTHT,Q,FIXDI,DX 11 | END TYPE CLKCOEF 12 | 13 | 14 | END MODULE CLKCOEF_MOD -------------------------------------------------------------------------------- /changeNotes/2015.10.16_eesmith.txt: -------------------------------------------------------------------------------- 1 | Subject: Mortality 2 | Name: Erin Smith-Mateja 3 | Date: 10/16/15 4 | Variants affected: PN, WC, OP 5 | 6 | Description: Fixed a floating point exception error in mort.f. If there are no trees to calculate SDI, 7 | the calculation no longer attempt to divide by zero. 8 | 9 | Impact on users: Fixes a floating point exception error. 10 | 11 | Files: 12 | wc/src 13 | morts.f 14 | op/src 15 | morts.f -------------------------------------------------------------------------------- /api/strp/esblkd_mod.f90: -------------------------------------------------------------------------------- 1 | module esblkd_mod 2 | contains 3 | subroutine ESBLKD() 4 | use eshap_mod 5 | use prgprm_mod 6 | use esrncm_mod 7 | implicit none 8 | !---------- 9 | ! **ESBLKD--STRP DATE OF LAST REVISION: 09/17/08 10 | !---------- 11 | JOREGT = 17 12 | ESS0 = 55329D0 13 | ESSS = 55329.0 14 | end subroutine ESBLKD 15 | end module esblkd_mod 16 | -------------------------------------------------------------------------------- /base/src/dball.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DBALL (ICYC) 2 | use prgprm_mod 3 | implicit none 4 | C---------- 5 | C $Id$ 6 | C---------- 7 | C 8 | INCLUDE 'DBSTK.F77' 9 | C 10 | INTEGER ICYC,IRC 11 | C 12 | IF ((ICYC.LT.1).OR.(ICYC.GT.MAXCYC)) THEN 13 | CALL DBINIT 14 | CALL DBADD (ALLSUB,6,0,IRC) 15 | ELSE 16 | CALL DBADD (ALLSUB,6,ICYC,IRC) 17 | ENDIF 18 | RETURN 19 | END 20 | -------------------------------------------------------------------------------- /changeNotes/2016.02.01_ckeyser.txt: -------------------------------------------------------------------------------- 1 | Subject: Diameter Growth Bounding Function Updates 2 | Name: C. Keyser 3 | Date: February 02, 2016 4 | Variants affected: SN 5 | 6 | Description: The diameter growth bounding function was modified to allow 7 | greater growth prediction in larger trees. 8 | 9 | Impact on users: Predicted diameter growth will increase for large diameter 10 | trees. 11 | 12 | Files: sn/dgbnd.f 13 | -------------------------------------------------------------------------------- /merge_trunk.WinMerge: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | C:\workspace\Open-FVS\google_code\trunk\ 6 | C:\workspace\Open-FVS\google_code\branches\PyFVS\ 7 | Project Meta 8 | 1 9 | 0 10 | 0 11 | 12 | 13 | -------------------------------------------------------------------------------- /changeNotes/2014.03.19_eesmith.txt: -------------------------------------------------------------------------------- 1 | Subject: Default SDImax and SI 2 | Name: E. Smith-Mateja 3 | Date: March 19, 2014 4 | Variants affected: BM 5 | 6 | Description: 7 | 8 | BM variant: Two of the Plant Association codes (CES131 and CWG113) 9 | had two default site species listed. This has been modified so that 10 | there is only one default site species per PA code, according to Powell 2009. 11 | 12 | Impact on users: 13 | 14 | Files: 15 | bm/Ecocls.f 16 | -------------------------------------------------------------------------------- /changeNotes/2015.02.02_esmithmateja.txt: -------------------------------------------------------------------------------- 1 | Subject: NC Variant Location Correction 2 | Name: Erin Smith-Mateja 3 | Date: 02/02/2015 4 | Variants affected: NC 5 | 6 | Description: Changed the location code in NC, 701 BLM Lakeview to 712 BLM 7 | Coos Bay. 8 | 9 | Impact on users: Code 701 will no longer be recognized in the NC variant. 10 | 11 | Modified Files: 12 | nc/src/habtyp.f 13 | nc/src/formcl.f 14 | nc/src/forkod.f 15 | nc/src/htdbh.f -------------------------------------------------------------------------------- /changeNotes/2016.01.14_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: BLM Volumes 2 | Name: R. Havis 3 | Date: January 14, 2016 4 | Variants affected: BM, CA, EC, IE, NC, OC, OP, PN, SO, WC 5 | 6 | Description: Volumes calculated using BLM equations were using 7 | Merch. top Specs. calculated with outside bark diameters. 8 | 9 | Impact on users: Merchantable volumes calculated using BLM equations 10 | are increased by a few percent. 11 | 12 | Files: 13 | -------------------------------------------------------------------------------- /api/estree_mod.f90: -------------------------------------------------------------------------------- 1 | module estree_mod 2 | use prgprm_mod, only : MAXTRE 3 | !CODE SEGMENT ESTREE 4 | !---------- 5 | ! **ESTREE DATE OF LAST REVISION: 06/14/00 6 | !---------- 7 | INTEGER IESTAT(MAXTRE) 8 | ! 9 | ! HOLDS THE YEAR WHEN MORTALITY CAN BEGIN ON TREES REGENERATED 10 | ! IN **ESTAB**; REGEN-SIZE TREES ARE ALSO FLAGGED IN **ESFLTR** 11 | ! 12 | !-----END SEGMENT 13 | end module estree_mod 14 | -------------------------------------------------------------------------------- /fire/fofem/src/fof_disp.h: -------------------------------------------------------------------------------- 1 | // 2 | // $Id$ 3 | // 4 | /*{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*} 5 | * Name: fof_disp.h 6 | * Desc: Display Output function defines 7 | {*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}{*}*/ 8 | 9 | void Disp_DHSF (d_CO *a_CO); 10 | void Disp_BrnUp (d_CO *a_CO); 11 | void Disp_ConTot (d_CO *a_CO); 12 | int Disp_Soil (d_SO *a_SO); 13 | void Disp_ConIn(d_CI *a_CI); 14 | -------------------------------------------------------------------------------- /wsbwe/src/bweuky.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE BWEUKY (KEYWRD) 2 | IMPLICIT NONE 3 | C---------- 4 | C **BWEUKY DATE OF LAST REVISION: 07/14/10 5 | C---------- 6 | C THESE ROUTINES CONVERT KEYWORDS THAT ARE INPUT IN LOWER CASE LETTERS 7 | C TO UPPER CASE LETTERS. 8 | C---------- 9 | CHARACTER*8 KEYWRD 10 | INTEGER I 11 | 12 | DO 40 I=1,8 13 | CALL BWEUCA(KEYWRD(I:I)) 14 | 40 CONTINUE 15 | RETURN 16 | END 17 | -------------------------------------------------------------------------------- /changeNotes/2006.04.07_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: FFE - Incorporating Updates 2 | Name: R. Havis/Don Robinson ESSA 3 | Date: April 7, 2006 4 | Variants affected: FFE Extensions 5 | 6 | Description:- Reconciled the recent SoilHeat 7 | routine changes with Carbon reporting versions that ESSA is working on. 8 | 9 | Impact on users: None 10 | 11 | Files: 12 | base/src/oplist.f 13 | fire/base/common/FMFCOM.F77 14 | fire/base/src/fmin.f 15 | fire/base/src/fminit.f 16 | 17 | -------------------------------------------------------------------------------- /fire/cfim/rebin.cpp: -------------------------------------------------------------------------------- 1 | //---------- 2 | // $Id$ 3 | //---------- 4 | #include "stdafx.h" 5 | 6 | void rebin(double rc, int nd, double r[], double xin[], double xi[]) 7 | { 8 | int i,k=0; 9 | double dr=0.0,xn=0.0,xo=0.0; 10 | 11 | for (i=1;i dr) 13 | dr += r[++k]; 14 | if (k > 1) xo=xi[k-1]; 15 | xn=xi[k]; 16 | dr -= rc; 17 | xin[i]=xn-(xn-xo)*dr/r[k]; 18 | } 19 | for (i=1;i IBTCCF(MAXCY1),IBTAVH(MAXCY1),MAIFLG,NEWSTD 7 | REAL QDBHAT(MAXCY1),QSDBT(MAXCY1),BCYMAI(MAXCY1),TOTREM,AGELST 8 | COMMON /SUMTAB/ QDBHAT,ISDI,QSDBT,ISDIAT,IOLDBA,IBTCCF,IBTAVH, 9 | > BCYMAI,TOTREM,MAIFLG,NEWSTD,AGELST 10 | C---------- 11 | C 12 | C-----END SEGMENT 13 | -------------------------------------------------------------------------------- /changeNotes/2009.06.05_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Error Correction in EM variant 2 | Name: R. Havis 3 | Date: June 6, 2009 4 | Variants affected: EM 5 | 6 | Description: Corrected error in small tree growth logic for species derived 7 | from the IE variant (species LL, RM, AS and PB). Potential problems 8 | concerned small trees passing trough 4.5 feet height. 9 | 10 | Impact on users: Obtain a new executable. 11 | 12 | Files: 13 | fvs/em/REGENT 14 | fvs/em/BLKDAT - added comments 15 | -------------------------------------------------------------------------------- /changeNotes/2014.12.04_rhavis_ldavid.txt: -------------------------------------------------------------------------------- 1 | Subject: PV Code PV Reference Code Mapping 2 | Name: R. Havis and L. David 3 | Date: Dec 3, 2014 4 | Variants affected: BM 5 | 6 | Description: There was an error in mapping the PV Code/PV Reference Code sets 7 | CWS541/640, CWS55/650, CWS555/647, and CWS555/648 to FVS Plant 8 | Associations. The correct Plant Association is CWS541. 9 | 10 | Impact on users: Blue Mountain variant users should obtain new executables. 11 | 12 | Files: 13 | -------------------------------------------------------------------------------- /fire/base/common/FMSNGL.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT FMSNGL 2 | C---------- 3 | C $Id$ 4 | C---------- 5 | C **FMSNGL FIRE 6 | C---------- 7 | C 8 | C PARAMETERS WHICH ARE IN THE PPE VERSION, NOT IN THE SINGLE- 9 | C STAND VERSION, BUT WHICH ARE NEEDED BY THE MODEL (TO REDUCE 10 | C THE AMOUNT OF CODE THAT IS CHANGED). 11 | C 12 | INTEGER MXSTND 13 | INTEGER NOSTND 14 | 15 | PARAMETER (MXSTND=1) 16 | PARAMETER (NOSTND=1) 17 | 18 | C 19 | C 20 | C-----END SEGMENT 21 | -------------------------------------------------------------------------------- /base/src/exfert.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EXFERT 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C EXTRA EXTERNAL REFERENCES FOR FERTILIZER CALLS 8 | C 9 | LOGICAL LNOTBK(7),LKECHO 10 | REAL ARRAY(7) 11 | INTEGER IRECNT,JOSTND 12 | CHARACTER*8 KEYWRD 13 | CHARACTER*10 KARD(7) 14 | C 15 | ENTRY FFIN (JOSTND,IRECNT,KEYWRD,ARRAY,LNOTBK,KARD,LKECHO) 16 | CALL ERRGRO (.TRUE.,11) 17 | RETURN 18 | ENTRY FFERT 19 | RETURN 20 | END 21 | -------------------------------------------------------------------------------- /changeNotes/2004.02.10_ncrookston.txt: -------------------------------------------------------------------------------- 1 | Subject: DBS Extension internal buffer increased 2 | Name: NCrookston 3 | Date: 2004.02.10 4 | Variants affected: All with DBS 5 | 6 | Description: The internal command buffers were overflowing for the compute output. I 7 | increased the buffer size for this and other tables where the problem might occur. 8 | 9 | Impact on users: Only those who have had problems need a new version. 10 | 11 | Files: 12 | dbscmpu.f 13 | dbscuts.f 14 | dbsevm.f 15 | dbstrls.f 16 | dbsmis.f 17 | -------------------------------------------------------------------------------- /changeNotes/2014.06.27_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Updated PV Codes 2 | Name: R. Havis 3 | Date: June 27, 2014 4 | Variants affected: EC 5 | 6 | Description: 7 | 8 | EC variant: The Potential Vegitation (PV) code / PV Reference code sets are 9 | mapped to FVS habitat types for processing in FVS. The PV codes 10 | with reference number 653 were added to the East Cascades 11 | variant. 12 | 13 | Impact on users: Users of the EC variant should obtain a new executable. 14 | 15 | Files: 16 | -------------------------------------------------------------------------------- /ak/src/estock.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE ESTOCK (PN) 2 | IMPLICIT NONE 3 | C---------- 4 | C **ESTOCK--AK DATE OF LAST REVISION: 02/14/08 5 | C---------- 6 | C 7 | C CALCULATES PROBABILITY OF STOCKING FOR REGENERATION MODEL. 8 | C COEFFICIENTS FOR PLANTING ARE NOT INCLUDED IN EQUATIONS. 9 | C 10 | COMMONS 11 | C 12 | C 13 | COMMONS 14 | C---------- 15 | C THE FOLLOWING IS ALL THAT'S LEFT OF THE P(STOCKING) FOR AK 16 | C---------- 17 | REAL PN 18 | PN = 1.0 19 | RETURN 20 | END 21 | -------------------------------------------------------------------------------- /base/src/keydmp.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE KEYDMP (IOUT,IRECNT,KEYWRD,ARRAY,KARD) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | INTEGER IRECNT,IOUT 7 | REAL ARRAY(7) 8 | CHARACTER*10 KARD(7) 9 | CHARACTER*8 KEYWRD 10 | WRITE (IOUT,70) IRECNT,KEYWRD,ARRAY,KARD 11 | 70 FORMAT (/,' CARD NUM =',I5,'; KEYWORD FIELD = ''',A8,''''/ 12 | > ' PARAMETERS ARE:',7F14.7,/ 13 | > ' COL 11 TO 80 =''',7A10,'''') 14 | C 15 | RETURN 16 | END 17 | -------------------------------------------------------------------------------- /changeNotes/2015.06.17_eesmith.txt: -------------------------------------------------------------------------------- 1 | Subject: Replaced mortality equations in PN and WC 2 | Name: Erin Smith-Mateja 3 | Date: 2015.06.17 4 | Variants affected: WC and PN 5 | 6 | Description: 7 | Replaced the PN and WC mortality equations. The new equations use the ORGANON individual tree mortality equations. 8 | 9 | Impact on users: Mortality will change in these variants, and thus users may also find changes to growth. 10 | 11 | Files: 12 | wc/src/morts.f - changes subroutine to use different mortality equations. -------------------------------------------------------------------------------- /changeNotes/2014.03.25_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: FFE TreeBio update 2 | Name: Stephanie Rebain 3 | Date: 03/25/2014 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) Corrections were made to the TreeBio event monitor function. 9 | 10 | Impact on users: 11 | Users should download new executables. 12 | 13 | Modified Files: 14 | fire/base/src/fminit.f - initialized ISPCC to 0 15 | fire/base/src/fmevmon.f - adjusted the loop so that live removed biomass is only calculated when a harvest occurs. 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /changeNotes/2015.03.26_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: Cover Extension Update 2 | Name: Stephanie Rebain 3 | Date: 03/26/2015 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) Two table labels were updated to more accurately describe the model outputs as canopy 9 | cover instead of canopy closure. This change only affects the table labels for clarity 10 | and does not affect any FVS output values. 11 | 12 | 13 | 14 | Modified Files: 15 | covr/src/cvout.f - edited two table labels to say "cover" instead of "closure". 16 | -------------------------------------------------------------------------------- /tests/ODBC/access/ExpectedValues/FVS_Cases.csv: -------------------------------------------------------------------------------- 1 | "212511010354","01160805050024","NONE","","ie",17.00,"IE" 2 | "212519010354","01160805050028","NONE","","ie",122.00,"IE" 3 | "212681010354","01160805020003","NONE","","ie",35.00,"IE" 4 | "212694010354","01160805050006","NONE","","ie",21.00,"IE" 5 | "212701010354","01160805050012","NONE","","ie",26.00,"IE" 6 | "212708010354","01160805050022","NONE","","ie",50.00,"IE" 7 | "212720010354","01160805050023","NONE","","ie",7.00,"IE" 8 | "IE_BareGround","IE_BareGround","NONE","","ie",140.00,"IE" 9 | -------------------------------------------------------------------------------- /changeNotes/2016.07.18_mshettles.txt: -------------------------------------------------------------------------------- 1 | Subject: Diameter growth bounding in PN, WC and OP. 2 | Name: Mike Shettles 3 | Date: 7/18/2016 4 | Variants affected: OP, PN and WC 5 | 6 | Description: If there were discrepancies between the observed growth period and the defualt 7 | cycle length, erroneous diameter growth bounding was occuring. This has been reconciled. 8 | 9 | Impact on users: Diameter growth prediction may change. 10 | 11 | Modified File(s): 12 | branches/FMSCdev/wc/src/dgbnd.f 13 | branches/FMSCdev/wc/src/dgfriv.f 14 | -------------------------------------------------------------------------------- /dbs/src/dbsfmlink.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DBSFMLINK(I) 2 | IMPLICIT NONE 3 | C 4 | C $Id$ 5 | C 6 | C PURPOSE: TO PASS SOME INFORMATION FROM FFE TO THE DATABASE 7 | C EXTENSION, WITHOUT INCLUDING DBSCOM.F77 IN FFE SUBROUTINES. 8 | C THIS SEEMS NECESSARY IN ORDER TO COMPILE FFE FOR BOTH PC AND UNIX. 9 | C AUTH: S. REBAIN -- FMSC -- JUNE 2006 10 | C--- 11 | COMMONS 12 | C 13 | INCLUDE 'DBSCOM.F77' 14 | C 15 | COMMONS 16 | C--- 17 | INTEGER I 18 | 19 | ICANPR = I 20 | 21 | END -------------------------------------------------------------------------------- /ak/src/prof2.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE PROF2(R,D,H,FF) 2 | IMPLICIT NONE 3 | C---------- 4 | C **PROF2--AK DATE OF LAST REVISION: 02/14/08 5 | C---------- 6 | C 7 | C INTEGRAL OF SPRUCE-HEMLOCK PROFILE EQUATION 8 | C CALLED FROM OLDGRO. USED IN VOLUME CALCULATION. 9 | REAL FF,D,H,R 10 | C---------- 11 | FF=.4*R**2.5+(-.0052554*H +.000034947*H**2+.104477* 12 | 1H/D)*(.4*R**2.5-.25*R**4.)+(7.76807/D**2-.0000094852*H**2 13 | 2-.011351*H/D)*(.4*R**2.5-(1./33.)*R**33) 14 | RETURN 15 | END 16 | -------------------------------------------------------------------------------- /tests/vba/pnt01.key: -------------------------------------------------------------------------------- 1 | !SCREEN 2 | RANNSEED 0 3 | !STATS 4 | STDIDENT 5 | S248112 UNTHINNED CONTROL. 6 | DESIGN 11.0 1.0 7 | STDINFO 60.0 315.0 30.0 35.0 8 | INVYEAR 1990 9 | NUMCYCLE 20 10 | TREELIST 11 | TREEFMT 12 | (T24,I4,T1,I4,T31,F2.0,I1,A3,F3.1,F2.1,T45,F3.0,T63,F3.0,T60,F3.1,T48,I1, 13 | T52,I2,T66,5I1,T54,7I1,T75,F3.0) 14 | TREEDATA 15 | NOTRIPLE 16 | !SDIMAX ALL 600 17 | !ECHOSUM 18 | PROCESS 19 | STOP -------------------------------------------------------------------------------- /changeNotes/2016.07.15_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Potential Crown Dubbin Bug 2 | Name: R. Havis 3 | Date: July 15, 12016 4 | Variants affected: AK, BM, CA, CI, EC, EM, IE, NC, OC, 5 | OP, PN, SO, TT, UT, WC, WS 6 | 7 | Description: On July 1, 2016 (FVS Update Bulletin No. 738) a potential problem 8 | with crown dubbing was introduced. This has been corrected. 9 | 10 | Impact on users: Small differences in simulations may be apparent when 11 | input data requires crown dubbing. 12 | 13 | Files: 14 | -------------------------------------------------------------------------------- /hooks/readme.txt: -------------------------------------------------------------------------------- 1 | This folder contains Git hooks and supporting files used by PyFVS developers. 2 | To enable them simply create a symbolic link to the .git/hooks folder for each 3 | hook you wish to enable. As with *nix, symbolic links can be created on Windows 4 | using a Git bash console. 5 | 6 | Hooks: 7 | 8 | pre-commit 9 | 10 | Executes clean_version.py to wipe any Git metadata from _version.py prior 11 | to committing local changes. 12 | 13 | To install: `ln -s ./hooks/pre-commit .git/hooks/pre-commit` 14 | -------------------------------------------------------------------------------- /lpmpb/src/ptsrg.f: -------------------------------------------------------------------------------- 1 | FUNCTION PTSRG(X,BASNO) 2 | IMPLICIT NONE 3 | C---------- 4 | C **PTSRG DATE OF LAST REVISION: 07/02/10 5 | C---------- 6 | C 7 | C 8 | C Revision History 9 | C 02/08/88 Last noted revision date. 10 | C 07/02/10 Lance R. David (FMSC) 11 | C Added IMPLICIT NONE. 12 | C---------- 13 | INTEGER J 14 | REAL BASNO, C, PTSRG, X 15 | 16 | DO 1 J=4,12,4 17 | C=J 18 | PTSRG=C*BASNO 19 | IF(PTSRG .GE. X) RETURN 20 | 1 CONTINUE 21 | RETURN 22 | END 23 | -------------------------------------------------------------------------------- /changeNotes/2007.12.10_rhavis_drobinson.txt: -------------------------------------------------------------------------------- 1 | Subject: Corrections from Don Robinson, ESSA Technologies. 2 | Name: R. Haves 3 | Date: December 10, 2007 4 | Variants affected: ALL 5 | 6 | Description: Parameter and Entry Argument corrections as shown below. 7 | 8 | Impact on users: No FVS Update Bulletin was involved. 9 | 10 | Files: 11 | ./base/src/exfire.f - Corrected dummy arguments in Entry FMEVSNG 12 | ./base/src/oplist.f - Corrected parameter NTRSLT=145, which was 13 | missed in Code Change December 6, 2007 14 | 15 | -------------------------------------------------------------------------------- /strp/src/esmsgs.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE ESMSGS (JOREGT) 2 | IMPLICIT NONE 3 | C---------- 4 | C **ESMSGS DATE OF LAST REVISION: 09/17/08 5 | C---------- 6 | C 7 | C CALLED FROM ESIN TO PRINT HABITAT TYPE GROUPS FOR THE 8 | C REGENERATION ESTABLISHMENT MODEL. 9 | C 10 | C 11 | INTEGER JOREGT 12 | C 13 | WRITE(JOREGT,100) 14 | 100 FORMAT('HABITAT TYPE GROUPS USED IN THE REGENERATION', 15 | & ' ESTABLISHMENT MODEL',//,'GROUP HABITAT TYPES',/, 16 | & '----- ',34('-'),/) 17 | RETURN 18 | END 19 | -------------------------------------------------------------------------------- /volume/src/fvsoldsec.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE FVSOLDSEC(ISPC,VN,D,H) 2 | IMPLICIT NONE 3 | C---------- 4 | C VOLUME $Id$ 5 | C---------- 6 | INTEGER ISPC 7 | REAL H,D,VN 8 | C ENTRY SECGRO COMPUTES VOLUMES FOR SECOND GROWTH TREES 9 | C (D GE 4 AND H GE 18) UP TO (D LE 9 AND H LT 40) 10 | C---------- 11 | VN=-5.577 + 1.9067 * ALOG(D) + 0.9416 * ALOG(H) 12 | IF (VN .LE. 0.0) GO TO 120 13 | VN = EXP(VN) 14 | GO TO 130 15 | 120 CONTINUE 16 | VN=0.0 17 | 130 CONTINUE 18 | RETURN 19 | END 20 | -------------------------------------------------------------------------------- /ak/src/esprep.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE ESPREP (PNONE,PMECH,PBURN) 2 | IMPLICIT NONE 3 | C---------- 4 | C **ESPREP--AK DATE OF LAST REVISION: 02/14/08 5 | C---------- 6 | C PREDICT DEFAULT SITE PREP PROBABILITIES. 7 | C 8 | C PROB(NO SITE PREP) 9 | C---------- 10 | REAL PBURN,PMECH,PNONE 11 | PNONE = 1.0 12 | C---------- 13 | C PROB(MECH SITE PREP) 14 | C---------- 15 | PMECH = 0.0 16 | C---------- 17 | C PROB(BURN SITE PREP) 18 | C---------- 19 | PBURN = 0.0 20 | C 21 | RETURN 22 | END 23 | -------------------------------------------------------------------------------- /changeNotes/2006.05.09_rhavis_drobinson.txt: -------------------------------------------------------------------------------- 1 | Subject: Interim Updates 2 | Name: R. Havis, D. Robinson 3 | Date: May 9, 2006 4 | Variants affected: None - FFE, DBS 5 | 6 | Description: These changes are to incorporate development work (Carbon Accounting) 7 | from ESSA into the production source code 8 | 9 | Impact on users: None 10 | 11 | Files: 12 | ./base/src/sstage.f - updated comments and removed obsolete code (Nick) 13 | ./dbs/src/DBSCOM.F77 14 | ./dbs/src/dbsin.f 15 | ./fire/base/common/FMFCOM.F77 16 | ./fire/base/src/fmin.f 17 | -------------------------------------------------------------------------------- /changeNotes/2014.07.07_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: AK Volume Update 2 | Name: R. Havis 3 | Date: July 7, 2014 4 | 5 | Variants affected: AK 6 | 7 | Description: There was a problems in calculating Merch. volumes for 8 | 32 foot logs, this has been corrected. Merch. volumes 9 | are affected for all species in the AK variant except 10 | white spruce (picea glauca). See V0166_070114.txt. 11 | 12 | Impact on users: Users interested in Merch. volumes should obtain 13 | a new executable. 14 | 15 | Files: 16 | -------------------------------------------------------------------------------- /ak/src/prof1.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE PROF1(R,D,H,DD2MI) 2 | IMPLICIT NONE 3 | C---------- 4 | C **PROF1--AK DATE OF LAST REVISION: 02/14/08 5 | C---------- 6 | C 7 | C SPRUCE-HEMLOCK PROFILE EQUATION. 8 | C CALLED FROM OLDGRO. USED FOR DIAMETER CALCULATIONS. 9 | REAL DD2MI,H,D,R 10 | C---------- 11 | DD2MI=R**1.5 + (-.0052554*H +.000034947*H**2 + .104477 12 | 1*H/D) * (R**1.5-R**3) +(7.76807/D**2 -.0000094852*H**2 - 13 | 2.011351*H/D)*(R**1.5-R**32) 14 | IF(DD2MI .LT. 0.)DD2MI=0. 15 | RETURN 16 | END 17 | -------------------------------------------------------------------------------- /python/pyfvs/examples/demo.key: -------------------------------------------------------------------------------- 1 | DESIGN 0 200 999 11 1 2 | STDINFO 712 CHS131 60.0 315.0 30.0 35.0 3 | INVYEAR 2010 4 | 5 | TIMEINT 10 6 | NUMCYCLE 10 7 | 8 | TREEFMT 9 | (T24,I4,T1,I4,T31,F2.0,I1,A3,F3.1,F2.1,T45,F3.0,T63,F3.0,T60,F3.1,T48,I1, 10 | T52,I2,T66,5I1,T54,7I1,T75,F3.0) 11 | TREEDATA 12 | SDIMAX ALL 600 13 | 14 | THINSDI 4 200 1 15 | 16 | PROCESS 17 | STOP 18 | -------------------------------------------------------------------------------- /changeNotes/2012.11.20_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: Fire and Fuels Extension Update 2 | Name: Stephanie Rebain 3 | Date: 11/20/2012 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) An error was corrected in the dead crown biomass estimates. 9 | 10 | Impact on users: 11 | Users should obtain new executables. 12 | 13 | Modified Files: 14 | 15 | fire/base/src/fmscro.f - made a correction to the calculation of dead crown biomass/future coarse woody debris 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | -------------------------------------------------------------------------------- /ls/src/bratio.f: -------------------------------------------------------------------------------- 1 | FUNCTION BRATIO(IS,D,H) 2 | use coeffs_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C **BRATIO--LS DATE OF LAST REVISION: 07/11/08 7 | C---------- 8 | C 9 | C FUNCTION TO COMPUTE BARK RATIOS. THIS ROUTINE IS VARIANT SPECIFIC 10 | C AND EACH VARIANT USES ONE OR MORE OF THE ARGUMENTS PASSED TO IT. 11 | C 12 | INTEGER IS 13 | REAL H,D,BRATIO 14 | C 15 | IF(IS .EQ. 0) THEN 16 | BRATIO=0.93 17 | ELSE 18 | BRATIO=BKRAT(IS) 19 | ENDIF 20 | RETURN 21 | END 22 | -------------------------------------------------------------------------------- /ak/src/oldsec.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE OLDSEC(ISPC,VN,D,H) 2 | IMPLICIT NONE 3 | C---------- 4 | C **SECGRO--AK DATE OF LAST REVISION: 02/14/08 5 | C---------- 6 | INTEGER ISPC 7 | REAL H,D,VN 8 | C ENTRY SECGRO COMPUTES VOLUMES FOR SECOND GROWTH TREES 9 | C (D GE 4 AND H GE 18) UP TO (D LE 9 AND H LT 40) 10 | C---------- 11 | VN=-5.577 + 1.9067 * ALOG(D) + 0.9416 * ALOG(H) 12 | IF (VN .LE. 0.0) GO TO 120 13 | VN = EXP(VN) 14 | GO TO 130 15 | 120 CONTINUE 16 | VN=0.0 17 | 130 CONTINUE 18 | RETURN 19 | END 20 | -------------------------------------------------------------------------------- /base/src/evmkv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EVMKV(CTOK) 2 | use prgprm_mod 3 | implicit none 4 | C---------- 5 | C $Id$ 6 | C---------- 7 | C 8 | C CREATES A NEW VARIABLE, IF IT CAN! 9 | C 10 | INCLUDE 'OPCOM.F77' 11 | C 12 | CHARACTER*(*) CTOK 13 | 14 | IF (ITST5.LT.MXTST5) THEN 15 | ITST5=ITST5+1 16 | CTSTV5(ITST5)=CTOK 17 | LTSTV5(ITST5)=.FALSE. 18 | LEVUSE=.TRUE. 19 | ELSE 20 | CALL ERRGRO (.TRUE.,10) 21 | CALL ERRGRO (.TRUE.,12) 22 | ENDIF 23 | RETURN 24 | END 25 | -------------------------------------------------------------------------------- /common/PPSPRD.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT PPSPCM 2 | C---------- 3 | C **PPSPCM--COMMON DATE OF LAST REVISION: 06/15/00 4 | C---------- 5 | CHARACTER*26 CRDID(MXSTND) 6 | COMMON / PPSPCC / CRDID 7 | INTEGER IRDORD(MXSTND),NRDS 8 | REAL RDDIST(MXSTND) 9 | COMMON / PPSPCM / RDDIST,IRDORD,NRDS 10 | C 11 | C CRDID = STAND ID CODE FOR THE ROAD DISTANCE DATA. 12 | C RDDIST= RDDIST OF EACH STAND, -99999. IF NO DATA FOR RDDIST 13 | C IRDORD= ACCESS KEY TO RDDIST. 14 | C NRDS = ACTUAL NUMBER OF RDDIST RECORDS. 15 | C 16 | C-----END SEGMENT 17 | -------------------------------------------------------------------------------- /lpmpb/src/percnt.f: -------------------------------------------------------------------------------- 1 | FUNCTION PERCNT(VALUE, BASE) 2 | IMPLICIT NONE 3 | C---------- 4 | C **PERCNT DATE OF LAST REVISION: 07/02/10 5 | C---------- 6 | C 7 | C PART OF THE MOUNTAIN PINE BEETLE EXTENSION OF PROGNOSIS SYSTEM. 8 | C 9 | C 10 | C Revision History 11 | C 02/08/88 Last noted revision date. 12 | C 07/02/10 Lance R. David (FMSC) 13 | C Added IMPLICIT NONE. 14 | C---------- 15 | REAL BASE, PERCNT, VALUE 16 | 17 | PERCNT = 0. 18 | IF(ABS(BASE) .GE. 1E-30) PERCNT = 100.*VALUE/BASE 19 | RETURN 20 | END 21 | -------------------------------------------------------------------------------- /common/ESHAP2.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT ESHAP2 2 | C---------- 3 | C **ESHAP2 DATE OF LAST REVISION: 06/14/00 4 | C---------- 5 | C 6 | INTEGER NSTORE(MAXPLT) 7 | REAL PNN(MAXPLT),ESB1(MAXPLT),PROB1(MAXPLT), 8 | & SUMPRB,XSTORE(MAXPLT),PLPROB(MAXPLT) 9 | COMMON /ESHAP2/ PNN,ESB1,PROB1,SUMPRB,XSTORE,NSTORE,PLPROB 10 | C 11 | C BE SURE TO INCLUDE PRGPRM.F77 BEFORE ESHAP2. 12 | C USED IN ESCPRS, ESFLTR, ESIN, ESINIT, ESNUTR, ESOUT, ESBLKD, 13 | C ESPLT1, ESPLT2, ESTAB, ESPADV, ESPSUB, ESPXCS, ESUCKR, & ESTUMP. 14 | C 15 | C-----END SEGMENT 16 | -------------------------------------------------------------------------------- /changeNotes/2010.05.05_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Sprout Keyword 2 | Name: R. Havis 3 | Date: May 5, 2010 4 | Variants affected: All 5 | 6 | Description: Corrected operation of Sprout keyword operation when multiple 7 | keywords are used in sequence within a cycle. 8 | 9 | Impact on users: Sprout keyword users should obtain a new executable. 10 | 11 | Files: 12 | ./ca/src/esuckr.f 13 | ./cr/src/esuckr.f 14 | ./em/src/esuckr.f 15 | ./estb/src/esuckr.f 16 | ./ie/src/esuckr.f 17 | ./strp/src/esuckr.f 18 | ./tt/src/esuckr.f 19 | ./ut/src/esuckr.f 20 | ./wc/src/esuckr.f -------------------------------------------------------------------------------- /common/PPDNCM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT PPDNCM 2 | C---------- 3 | C **PPDNCM DATE OF LAST REVISION: 06/15/00 4 | C---------- 5 | LOGICAL LNEDNS 6 | REAL PDCCFN,PDBAN 7 | COMMON /PPDNCM/ PDCCFN,PDBAN,LNEDNS 8 | C 9 | C PDCCFN=THE ADDITIONAL AMOUNT OF CCF FROM NEIGHBORS THAT 10 | C INFLUENCE THE GROWTH OF THE CURRENT STAND (SET BY PPE). 11 | C PDBAN =THE ADDITIONAL AMOUNT OF BASAL AREA FROM NEIGHBORS. 12 | C LNEDNS=TRUE IF NEIGHBOR DENSITY IS BEING APPLIED TO THE STAND, 13 | C FALSE IF NOT (STAND LEVEL). 14 | C 15 | C-----END SEGMENT 16 | -------------------------------------------------------------------------------- /python/docs/index.rst: -------------------------------------------------------------------------------- 1 | .. PyFVS documentation master file, created by 2 | sphinx-quickstart on Sat Jan 30 23:15:59 2016. 3 | You can adapt this file completely to your liking, but it should at least 4 | contain the root `toctree` directive. 5 | 6 | PyFVS Documentation 7 | =================== 8 | 9 | .. toctree:: 10 | :maxdepth: 2 11 | 12 | introduction 13 | modules 14 | 15 | .. toctree:: 16 | :hidden: 17 | 18 | self 19 | 20 | Indices and tables 21 | ================== 22 | 23 | * :ref:`genindex` 24 | * :ref:`modindex` 25 | * :ref:`search` 26 | 27 | -------------------------------------------------------------------------------- /changeNotes/2010.2.22_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: Fire and Fuels Extension Update - BM variant 2 | Name: Stephanie Rebain 3 | Date: 2/22/2010 4 | Variants affected: Blue Mountains 5 | 6 | Description: 7 | This is an update to accomodate the four plant associations added to 8 | the BM variant. 9 | 10 | Modified Files: 11 | fire/bm/src/fmcba.f - edited arrays covini and mapdry for new plant associations 12 | fire/base/src/fmr6fall.f - edited arrays bmhmc and bmwmd for new plant associations 13 | fire/base/src/fmr6sdcy.f - edited arrays bmwmd, bmotsh, and bmotrt for new plant associations 14 | -------------------------------------------------------------------------------- /base/src/exorganon.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EXORGANON 2 | IMPLICIT NONE 3 | C 4 | C $ID-BASE 5 | C 6 | C SATISFY EXTERNAL REFRENCES FOR THE ORGANON EXTENSION 7 | C 8 | LOGICAL DEBUG,LKECHO 9 | INTEGER I,ITFN,JOSTND,IMODTY 10 | C---------- 11 | C CALLED FROM INITRE 12 | C---------- 13 | ENTRY ORIN(DEBUG,LKECHO) 14 | RETURN 15 | C---------- 16 | C CALLED FROM TRIPLE 17 | C---------- 18 | ENTRY ORGTRIP(I,ITFN) 19 | RETURN 20 | C---------- 21 | C CALLED FROM INITRE 22 | C---------- 23 | ENTRY ORGTAB(JOSTND,IMODTY) 24 | RETURN 25 | C 26 | END -------------------------------------------------------------------------------- /changeNotes/2011.10.19_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Inconsistent Setting of HT1 and HT2 Variables 2 | Name: R. Havis 3 | Date: October 19, 2011 4 | Variants affected: NE and SN 5 | 6 | Description: The HT1 and HT2 variables were assigned in BLOCK DATA, and also 7 | reassigned in SITSET based on location. This caused inconsistencies 8 | in serial runs. This was corrected. 9 | 10 | Impact on users: Users of the NE and SN variants should obtain new executables. 11 | 12 | Files: 13 | 14 | ./ne/src/blkdat.f 15 | ./ne/src/sitset.f 16 | ./sn/src/blkdat.f 17 | ./sn/src/sitset.f 18 | -------------------------------------------------------------------------------- /changeNotes/2016.7.14_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject:Volume Equations 2 | Name: R. Havis 3 | Date: July 14, 2016 4 | Variants affected: CR 5 | 6 | Description: 7 | 8 | CR variant: New default volume equations were programmed for the Santa Fe NF. 9 | The new equations are for Ponderosa pine (301FW2W122), Douglas-fir 10 | (301FW2W202), White fir (301FW2W015), and White pine 301FW2W108). 11 | 12 | Impact on users: Volumes for Ponderosa pine, Douglas-fir, White fir and White pine 13 | will be different in the Santa Fe NF using the updated software. 14 | 15 | Files: 16 | -------------------------------------------------------------------------------- /fire/base/src/excfim.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EXCFIM 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C EXTRA EXTERNAL REFERENCES FOR THE CFIM (Crown Fire Initiation Model) FROM FVS-BC 8 | C FOR USE WHEN CFIM IS NOT LINKED TO FFE 9 | C 10 | CHARACTER*8 CFTMP 11 | INTEGER IYR,FMOIS,CANBURN,FCLS,FLAME,FMD 12 | REAL ROS,INTSTY,BYRAM,UWIND,IBYRAM,FLAMEHT 13 | C 14 | ENTRY FMCANC (IYR,FMOIS,CFTMP,CANBURN,ROS,INTSTY,FCLS) 15 | RETURN 16 | ENTRY FMCFIM(IYR,FMD,UWIND,IBYRAM,FLAME,CANBURN,ROS) 17 | RETURN 18 | END 19 | -------------------------------------------------------------------------------- /base/src/istfnb.f: -------------------------------------------------------------------------------- 1 | FUNCTION ISTFNB (STRING) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C FIND THE LOCATION OF THE FIRST NON-BLANK CHAR IN A STRING. 8 | C RETURN A ZERO IF THE ENTIRE STRING IS BLANK. 9 | C 10 | INTEGER ISTFNB,I 11 | CHARACTER*(*) STRING 12 | IF (STRING.EQ.' ') THEN 13 | ISTFNB=0 14 | ELSE 15 | DO 10 I=1,LEN(STRING) 16 | IF (STRING(I:I).NE.' ') THEN 17 | ISTFNB=I 18 | RETURN 19 | ENDIF 20 | 10 CONTINUE 21 | ENDIF 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /changeNotes/2012.08.07_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Misc. Corrections 2 | Name: R. Havis 3 | Date: August 7, 2012 4 | Variants affected: None 5 | 6 | Description: This update contains corrections that have 7 | no affect on model output or performance. 8 | 9 | Impact on users: 10 | 11 | Files: 12 | ./ak/src/dubscr.f - removed numerical error trap that is no longer needed 13 | ./bm/src/regent.f - in case statement for WC species (line 573) 14 | changed 19 to 18. There is no effect on processing 15 | ./fire/sn/src/fmcrow.f - Deleted an old comment that was no longer correct. 16 | -------------------------------------------------------------------------------- /lpmpb/src/PT.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT PT 2 | C---------- 3 | C **PT DATE OF LAST REVISION: 07/02/10 4 | C---------- 5 | C 6 | C Revision History 7 | C 02/08/88 Last noted revision date. 8 | C 07/02/10 Lance R. David (FMSC) 9 | C Declared variables for Addition of IMPLICIT NONE to subroutines. 10 | C---------- 11 | CHARACTER*1 IPTLET(5,10) 12 | INTEGER IPTVAR(5),IPTSPL(5),IPTCOD(5,10) 13 | REAL PTMAX(5,10),PTMIN(5,10),PTU(5,10),PTL(5,10) 14 | 15 | COMMON/PTCHR/ IPTLET 16 | COMMON/PT/ PTMAX,PTMIN,PTU,PTL,IPTVAR,IPTSPL,IPTCOD 17 | C 18 | C-----END SEGMENT 19 | -------------------------------------------------------------------------------- /base/src/formcl.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE FORMCL(ISPC,IFOR,D,FC) 2 | use contrl_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C $Id$ 7 | C---------- 8 | C 9 | C THIS PROGRAM CALCULATES FORM FACTORS FOR CALCULATING CUBIC AND 10 | C BOARD FOOT VOLUMES. 11 | C 12 | C THIS IS THE VANILLA VERSION FOR USE IN VARIANTS THAT DON'T USE 13 | C FORM CLASS, OR ONLY SET DEFAULT FORM CLASSES BY SPECIES. 14 | C 15 | INTEGER IFOR,ISPC 16 | REAL FC,D 17 | C 18 | C---------- 19 | C LOAD FORM CLASS VALUE 20 | C---------- 21 | FC=FRMCLS(ISPC) 22 | C 23 | RETURN 24 | END 25 | -------------------------------------------------------------------------------- /changeNotes/2008.08.11_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Misc. corrections 2 | Name: R. Havis -- problems identified and corrections contributed by Don Robinson, ESSA 3 | Date: August 11, 2008 4 | Variants affected: ALL 5 | 6 | Description: see discriptions below 7 | 8 | Impact on users: None 9 | 10 | Files: 11 | 12 | ./base/src/initre.f - Initialized IS in TREEDATA keyword sequence. May cause exception 13 | with some compilers 14 | ./dbs/src/dbstrls.f - Corrected explicit logic setting species code output format by keyword. 15 | Functioning of keyword is not affected. 16 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/run_check.bat: -------------------------------------------------------------------------------- 1 | :: Run all keyword files against the official FVS binaries 2 | 3 | set fvsroot=c:\FVSbin 4 | 5 | call %fvsroot%\fvspn.exe --keywordfile=pn_bareground.key 6 | copy pn_bareground.sum pn_bareground.sum.save 7 | 8 | call %fvsroot%\fvswc.exe --keywordfile=wc_bareground.key 9 | copy wc_bareground.sum wc_bareground.sum.save 10 | 11 | call %fvsroot%\fvsso.exe --keywordfile=so_bareground.key 12 | copy so_bareground.sum so_bareground.sum.save 13 | 14 | call %fvsroot%\fvsca.exe --keywordfile=ca_bareground.key 15 | copy ca_bareground.sum ca_bareground.sum.save 16 | -------------------------------------------------------------------------------- /changeNotes/2007.09.24_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Mapping Formclass by Forest 2 | Name: R. Havis 3 | Date: September 24, 2007 4 | Variants affected: EC 5 | 6 | Description: Formclass is needed for the Behre volume equations. The arrays 7 | of formclass values by species were not being correctly mapped 8 | to the different National forests. This has been corrected. 9 | 10 | Impact on users: Users should obtain new executables. This update will 11 | slightly affect volume calculations. 12 | 13 | 14 | Files: 15 | ./base/src/revise.f 16 | ./ec/src/formcl.f 17 | -------------------------------------------------------------------------------- /changeNotes/2014.12.02_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Point Group Keyword 2 | Name: R. Havis 3 | Date: December 2, 2014 4 | Variants affected: ALL 5 | 6 | A new keyword, the Point Group keyword, defines a group of points that 7 | can be referenced by a single name or group number, and will be treated 8 | as a group in management actions or event monitor functions. Users may 9 | define up to 30 point groups with each group containing up to 50 points. 10 | If the group name is entered in the point field of a keyword, the keyword 11 | action will apply to all points in the group. 12 | 13 | Impact on users: 14 | 15 | Files: 16 | -------------------------------------------------------------------------------- /dftm/src/y0comp.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE Y0COMP 2 | IMPLICIT NONE 3 | C---------- 4 | C **Y0COMP DATE OF LAST REVISION: 06/30/10 5 | C---------- 6 | C DFTM MODEL SUBROUTINE - JIM COLBERT - JAN 1978. 7 | C 8 | COMMONS 9 | C 10 | INCLUDE 'ICOND.F77' 11 | C 12 | INCLUDE 'GPASS.F77' 13 | C 14 | INCLUDE 'UPPER.F77' 15 | C 16 | INCLUDE 'LIMITS.F77' 17 | C 18 | COMMONS 19 | C 20 | INTEGER INUM 21 | 22 | KP = 4 23 | INUM = IC(2) - IC(1) + 1 24 | CALL REDIST (KP, INUM) 25 | 26 | RETURN 27 | END 28 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/ec_bareground.key: -------------------------------------------------------------------------------- 1 | STDIDENT 2 | TEST_BG Testing a simple bare ground run 3 | STDINFO 606 CPS241 0 200 35 20 4 | MANAGED 0 1 5 | SITECODE PP 75 6 | 7 | INVYEAR 0 8 | DESIGN 0 1 999 1 0 1 1 9 | 10 | NUMCYCLE 10 11 | 12 | NOTREES 13 | ESTAB 0 14 | PLANT 1 PP 350 100 2 1 0 15 | END 16 | 17 | ECHOSUM 18 | 19 | THINBBA 8 80 20 | 21 | PROCESS 22 | STOP 23 | -------------------------------------------------------------------------------- /api/downwood_data.f90: -------------------------------------------------------------------------------- 1 | module downwood_data 2 | ! Capture carbon estimates at each cycle boundary 3 | use prgprm_mod, only: maxcy1 4 | implicit none 5 | 6 | real, dimension(16,maxcy1) :: downwood_summary 7 | 8 | contains 9 | 10 | subroutine copy_downwood(ddw) 11 | ! Copy down wood estimates for the current cycle 12 | use contrl_mod, only: icyc 13 | 14 | real :: ddw(*) 15 | integer :: x 16 | 17 | do x= 1,16 18 | downwood_summary(x,icyc) = ddw(x) 19 | end do 20 | 21 | end subroutine copy_downwood 22 | 23 | end module downwood_data 24 | -------------------------------------------------------------------------------- /bin/BuildAll_MinGW.bat: -------------------------------------------------------------------------------- 1 | rem Once Cmake has been used to create all the FVS build files: 2 | rem 3 | rem cmake -G"MinGW Makefiles" . 4 | rem 5 | rem this script will build (using MinGW make) all the FVS variants and 6 | rem then copy them into the /bin directory, where they can be tested. 7 | rem 8 | echo off 9 | setlocal enabledelayedexpansion 10 | for %%V in (ak bmc cac cic crc cs ecc emc iec ktc ls ncc ne pnc sn soc ttc utc wcc wsc) do ( 11 | echo %%V 12 | set Targ=FVS%%V_CMakeDir 13 | cd !Targ! 14 | mingw32-make 15 | copy FVS%%V.exe .. 16 | copy *.dll .. 17 | cd .. 18 | set Targ= 19 | ) 20 | -------------------------------------------------------------------------------- /rd/src/rdppatv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE RDPPATV (L) 2 | C---------- 3 | C **RDPPATV DATE OF LAST REVISION: 02/11/00 4 | C---------- 5 | C 6 | C RETURNS L=TRUE, TO INDICATE THAT ROOT DISEASE MODEL IS AVAILABLE 7 | C TO PARALLEL PROCESSOR. 8 | C 9 | C CALLED BY : 10 | C GETSTD [PARALLEL PROCESSOR] 11 | C PUTSTD [PARALLEL PROCESSOR] 12 | C 13 | C CALLS : 14 | C NONE 15 | C 16 | C PARAMETERS : 17 | C L - FLAG THAT IS SET TO TRUE WHEN THE ROOT DISEASE MODEL IS 18 | C ATTACHED WITH PPE. 19 | C 20 | LOGICAL L 21 | 22 | L = .TRUE. 23 | 24 | RETURN 25 | END 26 | -------------------------------------------------------------------------------- /strp/src/esprep.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE ESPREP (ISER,PNONE,PMECH,PBURN) 2 | use esparm_mod 3 | use escomn_mod 4 | use plot_mod 5 | use prgprm_mod 6 | implicit none 7 | C---------- 8 | C **ESPREP DATE OF LAST REVISION: 09/17/08 9 | C---------- 10 | C PREDICT DEFAULT SITE PREP PROBABILITIES. 11 | C 12 | REAL PBURN,PMECH,PNONE 13 | INTEGER ISER 14 | C 15 | C PROB(NO SITE PREP) 16 | C 17 | PNONE = 0.75 18 | C 19 | C PROB(MECH SITE PREP) 20 | C 21 | PMECH = 0.20 22 | C 23 | C PROB(BURN SITE PREP) 24 | C 25 | PBURN = 0.05 26 | RETURN 27 | END 28 | -------------------------------------------------------------------------------- /api/fvsstdcm_mod.f90: -------------------------------------------------------------------------------- 1 | module fvsstdcm_mod 2 | !CODE SEGMENT FVSSTDCM 3 | !---------- 4 | ! **FVSSTDCM---COMMON DATE OF LAST REVISION: 03/01/2012 5 | !---------- 6 | INTEGER KOLIST 7 | LOGICAL FSTOPEN 8 | !---------- 9 | ! DEFINITIONS OF VARIABLES IN 'FVSSTDCM' COMMON BLOCK: 10 | !---------- 11 | ! KOLIST = UNIT NUMBER WHERE THE TREE DATA WILL BE WRITTEN 12 | ! FOR INPUT TO THE FVSSTAND POST-PROCESSOR. 13 | ! DEFAULT = 27; SET IN **BLKDAT** 14 | ! FSTOPEN = 15 | ! 16 | ! 17 | !-----END SEGMENT 18 | end module fvsstdcm_mod 19 | -------------------------------------------------------------------------------- /changeNotes/2013.01.10_esmithmateja.txt: -------------------------------------------------------------------------------- 1 | Subject: BM Default site index for Mountain Hemlock corrected 2 | Name: Erin Smith-Mateja 3 | Date: 01/10/2013 4 | Variants affected:BM 5 | 6 | Description: 7 | 8 | 1) The default site index for Mountain Hemlock was corrected for plant 9 | association codes CMS131 and CSM231. The values are now in metric. 10 | 11 | Impact on users: 12 | Users should obtain new executables. 13 | 14 | Modified Files: 15 | 16 | ./bm/src/ecocls.f - MH site index was changed to 16 for CMS131 and 15 for CMS231. 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /changeNotes/2014.03.13_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Default SDImax, ACORN EM Function 2 | Name: R. Havis 3 | Date: March 13, 2014 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | All variants: The ACORNS event monitor function returns the 9 | number or weight of acorns from specified oak species. The 10 | efficiency of the calculations has been improved to provide 11 | faster model performance. 12 | 13 | BM variant: The default SDImax values were not being set correctly 14 | when the site species was set using the SITECODE keyword or from a 15 | database. This has been corrected. 16 | 17 | Impact on users: 18 | 19 | Files: 20 | -------------------------------------------------------------------------------- /hooks/clean_version.py: -------------------------------------------------------------------------------- 1 | """ 2 | Strip Git information from the _version.py file. 3 | 4 | Called as a pre-commit hook to avoid committing irrelevant Git metadata. 5 | """ 6 | 7 | import sys 8 | import re 9 | 10 | version_path = 'python/pyfvs/_version.py' 11 | 12 | content = open(version_path).read() 13 | 14 | content = re.sub( 15 | r'(__git_describe__) = \'(.*)\'(.*)' 16 | , r"\1 = ''" 17 | , content) 18 | 19 | content = re.sub( 20 | r'(__git_commit__) = \'(.*)\'(.*)' 21 | , r"\1 = ''" 22 | , content) 23 | 24 | with open(version_path, 'w') as _: 25 | _.write(content) 26 | -------------------------------------------------------------------------------- /changeNotes/2003.11.25_dgammel: -------------------------------------------------------------------------------- 1 | Subject: DBS Stand and Tree Initialization Changes 2 | Name: $ Author $ 3 | Date: $ Date $ 4 | 5 | Abstract: 6 | It has been too much of an issue to maintain the specific column data types with input or initialization of tree data from a database. It is now possible with these updates to read in an integer for a needed real variable and a float for an FVS integer variable. It is also now possible to read in the Stand Id from the Stand Initialization table and to read in the R6 plant association types for the habitat code. 7 | 8 | Impact: 9 | 10 | Files: 11 | dbsstandin.f 12 | dbstreesin.f 13 | -------------------------------------------------------------------------------- /changeNotes/2008.07.11a_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: COVR - Implicit None Update 2 | Name: rhavis 3 | Date: July 11, 2008 4 | Variants affected: All variants hooked to Cover model 5 | 6 | Description: Added Implicit None statement to COVR/src routines 7 | 8 | Impact on users: None 9 | 10 | Files: 11 | ./covr/src/cvbcal.f 12 | ./covr/src/cvbrow.f 13 | ./covr/src/cvcbms.f 14 | ./covr/src/cvclas.f 15 | ./covr/src/cvcnop.f 16 | ./covr/src/cvcw.f 17 | ./covr/src/cvgo.f 18 | ./covr/src/cvin.f 19 | ./covr/src/cvinit.f 20 | ./covr/src/cvnohd.f 21 | ./covr/src/cvout.f 22 | ./covr/src/cvscon.f 23 | ./covr/src/cvshap.f 24 | ./covr/src/cvsum.f 25 | 26 | -------------------------------------------------------------------------------- /changeNotes/2015.10.19_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: FFE Processing Snag Heights on input from FVS 2 | Name: R. Havis 3 | Date: October 19, 2015 4 | Variants affected: ALL 5 | 6 | Description: When snags having a broken top were added to the Fire and Fuels (FFE) 7 | snag list, the total tree height was not available to parametrize the profile 8 | volume equations. This has been corrected. 9 | 10 | Impact on users: The volumes of truncated snags in the FFE model could be in 11 | error when snags having broken tops were present in the 12 | FVS input tree list. 13 | 14 | Files: 15 | -------------------------------------------------------------------------------- /api/pden_mod.f90: -------------------------------------------------------------------------------- 1 | module pden_mod 2 | use prgprm_mod, only : maxplt, maxsp 3 | !CODE SEGMENT PDEN 4 | !---------- 5 | ! **PDEN DATE OF LAST REVISION: 11/30/05 6 | !---------- 7 | REAL OVER(MAXSP,MAXPLT),BAAA(MAXPLT), & 8 | OLDFNT,REGNBK,PCCF(MAXPLT),PTPA(MAXPLT) 9 | ! 10 | ! PCCF = POINT CCF, LOADED IN **DENSE**. 11 | ! PTPA = POINT TPA, LOADED IN **DENSE**. 12 | ! REGNBK = BREAK DBH BETWEEN UNDERSTORY AND OVERSTORY TREES. 13 | ! SET IN BLKDAT, USED DENSE, ESTAB, ESFLTR. 14 | !-----END SEGMENT 15 | end module pden_mod 16 | -------------------------------------------------------------------------------- /changeNotes/2016.05.03_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: FERTILIZE keyword - PARMS Option 2 | Name: R. Havis 3 | Date: May 3, 2016 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) All variants: The PARMS option using the FRETILIZ keyword was not 9 | working correctly when using non-default values for 10 | field 5, the multiplier for modifying the predicted 11 | response. This has been corrected. 12 | 13 | 14 | Impact on users: 15 | 16 | Field 5 of the FRETILIZ keyword, the multiplier for modifying the predicted 17 | response, may be adjusted using the PARMS option. 18 | 19 | Files: 20 | -------------------------------------------------------------------------------- /changeNotes/2007.10.26_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: KCP, ADD file error report 2 | Name: R. Havis 3 | Date: October 26, 2007 4 | Variants affected: ALL 5 | 6 | Description: The generation of an FVS Error message was added to 7 | the main output file when an OPEN keyword tries 8 | to open a .KCP or .ADD file that does not exist 9 | 10 | Impact on users: New OPEN keyword diagnostic error report. 11 | 12 | Files: 13 | ./base/src/errgro.f - added FVS ERROR31 14 | ./base/src/keyopn.f - force file open status "old" for .kcp and .add files 15 | and generate FVS ERROR31 message when file does not exist 16 | 17 | -------------------------------------------------------------------------------- /changeNotes/2015.08.13_eesmith.txt: -------------------------------------------------------------------------------- 1 | Subject: Mortality 2 | Name: Erin Smith-Mateja 3 | Date: 08/13/15 4 | Variants affected: PN, OP 5 | 6 | Description: Fixed coefficient errors and switched sugar pine to use ponderosa pine 7 | mortality equation and willow to use red alder. Also added additional documentation in 8 | code that specifies the orgin of each species equation 9 | 10 | Impact on users: Change in mortality rates for some species. 11 | 12 | Files: 13 | pn/src 14 | morts.f changed coefficient values and added documentation at top of file. 15 | op/src 16 | morts.f changed coefficient values and added documentation at top of file. -------------------------------------------------------------------------------- /on/src/dgbnd.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DGBND (ISPC,DBH,DDG) 2 | C---------- 3 | C **DGBND--ON DATE OF LAST REVISION: 04/25/91 (NI parent) 4 | C ON 06/01/04 5 | C---------- 6 | C THIS SUBROUTINE IS USED TO INSURE THAT A MAXIMUM VALUE FOR DG 7 | C IS NOT EXCEEDED. 8 | C 9 | C ALL SPECIES USE THE SAME BOUNDING FUNCTION. 10 | C THIS FUNCTION IS FROM THE WC VARIANT, BUT WITH THE MAXIMUM VALUE 11 | C LOWERED FROM 7.92 TO 6.0 (ARBITRARILY) 12 | C---------- 13 | IF(DBH .GT. 150.)DBH=150. 14 | DGMAX = 6.0*EXP(-0.03*DBH) 15 | IF(DDG .GT. DGMAX) DDG = DGMAX 16 | IF(DDG .LT. 0.0) DDG = 0.0 17 | RETURN 18 | END 19 | -------------------------------------------------------------------------------- /wc/src/morts.f90: -------------------------------------------------------------------------------- 1 | subroutine morts 2 | ! Replaces the base morts routine to switch between the original FVS 3 | ! mortality routines and the ported ORGANON routines. 4 | 5 | use contrl_mod, only: use_fvs_morts 6 | implicit none 7 | 8 | if (use_fvs_morts) then 9 | call morts_fvs 10 | else 11 | call morts_organon 12 | end if 13 | 14 | end subroutine morts 15 | 16 | subroutine morcon 17 | use contrl_mod, only: use_fvs_morts 18 | implicit none 19 | 20 | if (use_fvs_morts) then 21 | call morcon_fvs 22 | else 23 | call morcon_organon 24 | end if 25 | end subroutine morcon -------------------------------------------------------------------------------- /changeNotes/2008.02.27_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: BLM volume in PN variant 2 | Name: R. Havis 3 | Date: February 27, 2008 4 | Variants affected: PN, WC 5 | 6 | Description: 7 | The PN variant was using the VARVOL routine from the WC variant. 8 | The BLM forest codes and volume equations were not mapping to 9 | the appropriate volume equation processing routines. 10 | This was corrected. In WC, NATCRS was accessing the incorrect variant. 11 | 12 | Impact on users: BLM users of the PN variant should obtain new executables 13 | 14 | Files: 15 | ./bin/makefile 16 | ./pn/obj/makefile 17 | ./pn/src/varvol.f 18 | ./wc/obj/makefile 19 | ./wc/src/varvol.f 20 | -------------------------------------------------------------------------------- /common/CICOM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT CICOM 2 | C---------- 3 | C **CICOM DATE OF LAST REVISION: 06/14/00 4 | C---------- 5 | INTEGER ICITYP(130),ICINDX 6 | COMMON /CICOM/ ICITYP,ICINDX 7 | C---------- 8 | C DEFINITIONS OF VARIABLES IN 'CICOM' COMMON BLOCK: 9 | C---------- 10 | C 11 | C ICITYP -- HABITAT TYPES RECOGNIZED BY THE CENTRAL IDAHO VARIANT 12 | C THESE ARE LOADED IN **BLKDAT***, AND USED IN **HABTYP** 13 | C ICINDX -- THE INDEX OF THE IDENTIFIED CENTRAL IDAHO HABITAT TYPE 14 | C SET IN **HABTYP** AND **GRINIT**. 15 | C USED IN **DGF** AND **MORTS**. 16 | C 17 | C-----END SEGMENT 18 | -------------------------------------------------------------------------------- /mistoe/src/misact.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE MISACT (LACTV) 2 | *********************************************************************** 3 | * **MISACT--MS Date of last revision: 01/12/94 4 | *---------------------------------------------------------------------- 5 | * Purpose: 6 | * Returns TRUE when called to signal that the "real" mistletoe 7 | * submodel is linked to the program. There is an entry in EXMIST 8 | * that always returns FALSE. 9 | * 10 | *********************************************************************** 11 | IMPLICIT NONE 12 | 13 | LOGICAL LACTV 14 | LACTV=.TRUE. 15 | 16 | RETURN 17 | END 18 | -------------------------------------------------------------------------------- /python/docs/modules.rst: -------------------------------------------------------------------------------- 1 | .. PyFVS Modules and Classes 2 | 3 | PyFVS Modules and Classes 4 | ========================= 5 | 6 | Contents: 7 | 8 | .. toctree:: 9 | :maxdepth: 2 10 | 11 | .. automodule:: pyfvs 12 | :members: 13 | 14 | .. automodule:: pyfvs.fvs 15 | :members: 16 | 17 | .. autoclass:: FVS 18 | :members: 19 | 20 | .. autoclass:: FVSTrees 21 | :members: 22 | 23 | .. automodule:: pyfvs.keywords.keywords 24 | :members: 25 | 26 | #.. automodule:: pyfvspnc 27 | # :members: 28 | 29 | Indices and tables 30 | ================== 31 | 32 | * :ref:`genindex` 33 | * :ref:`modindex` 34 | * :ref:`search` 35 | 36 | -------------------------------------------------------------------------------- /fire/cfim/stdafx.h: -------------------------------------------------------------------------------- 1 | //---------- 2 | // $Id$ 3 | //---------- 4 | // stdafx.h : include file for standard system include files, 5 | // or project specific include files that are used frequently, but 6 | // are changed infrequently 7 | // 8 | 9 | #pragma once 10 | 11 | #ifndef _WIN32_WINNT // Allow use of features specific to Windows XP or later. 12 | #define _WIN32_WINNT 0x0501 // Change this to the appropriate value to target other versions of Windows. 13 | #endif 14 | 15 | #include 16 | #ifndef unix 17 | #include 18 | #endif 19 | 20 | // TODO: reference additional headers your program requires here 21 | -------------------------------------------------------------------------------- /changeNotes/2006.09.29_rhavis_drobinson.txt: -------------------------------------------------------------------------------- 1 | Subject: Carbon Accounting Update 2 | Name: R. Havis, D. Robinson 3 | Date: September 29, 2006 4 | Variants affected: FFE Only 5 | 6 | Description: Was removing all crowns left in the stand, including those on downed snags. 7 | Modified so that it only subtracts those crowns that are on the removed trees. 8 | Also put a check at the end of the code to ensure that the removed amount cannot be 0. 9 | 10 | Impact on users: Code not released yet 11 | 12 | Files: 13 | ./em/src/regent.f - corrected indexing of max height check - no effect unless tree was > 999 ft. 14 | ./fire/base/src/fmscut.f. - added logic for above -------------------------------------------------------------------------------- /lpmpb/src/surflp.f: -------------------------------------------------------------------------------- 1 | FUNCTION SURFLP (DBH) 2 | IMPLICIT NONE 3 | C---------- 4 | C **SURFLP DATE OF LAST REVISION: 07/02/10 5 | C---------- 6 | C 7 | C PART OF THE MOUNTAIN PINE BEETLE EXTENSION OF PROGNOSIS SYSTEM. 8 | C 9 | C CALCULATES THE SURFACE AREA OF LPP. 10 | C FUNCTION IS FROM DON BURNELL. 11 | C 12 | C 13 | C Revision History 14 | C 02/08/88 Last noted revision date. 15 | C 07/02/10 Lance R. David (FMSC) 16 | C Added IMPLICIT NONE. 17 | C---------- 18 | REAL DBH, SURFLP 19 | 20 | SURFLP = DBH * 0.672 21 | IF ( DBH .GT. 5.0 ) SURFLP = 8.835 * DBH - 40.82 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /wsbwe/src/bweppatv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE BWEPPATV (L) 2 | IMPLICIT NONE 3 | C---------- 4 | C **BWEPPATV DATE OF LAST REVISION: 07/14/10 5 | C---------- 6 | C 7 | C RETURNS L=TRUE, TO INDICATE THAT GENDEFOL/BUDWORM MODEL IS AVAILABLE 8 | C TO PARALLEL PROCESSOR. 9 | C 10 | C CALLED BY : 11 | C GETSTD [PARALLEL PROCESSOR] 12 | C PUTSTD [PARALLEL PROCESSOR] 13 | C 14 | C CALLS : 15 | C NONE 16 | C 17 | C PARAMETERS : 18 | C L - FLAG THAT IS SET TO TRUE WHEN THE BUDWORM MODEL IS 19 | C ATTACHED WITH PPE. 20 | C 21 | LOGICAL L 22 | 23 | L = .TRUE. 24 | 25 | RETURN 26 | END 27 | -------------------------------------------------------------------------------- /base/src/svcrol.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE SVCROL (X1,Y1,R1,X2,Y2,R2,KODE) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C STAND VISUALIZATION GENERATION 8 | C N.L.CROOKSTON -- RMRS MOSCOW -- NOVEMBER 1998 9 | C 10 | C RETURN KODE = 0 IF TWO CIRCLES WITH CENTER X,Y AND RADUS 11 | C R, DO NOT OVERLAP, 1 IF THEY DO. 12 | C 13 | REAL X1,Y1,R1,X2,Y2,R2,D2 14 | INTEGER KODE 15 | D2 = ((X2-X1)**2)+((Y2-Y1)**2) 16 | R2 = R1+R2 17 | R2 = R2*R2 18 | IF (R2 .GT. D2) THEN 19 | KODE = 1 20 | ELSE 21 | KODE = 0 22 | ENDIF 23 | RETURN 24 | END 25 | -------------------------------------------------------------------------------- /changeNotes/2012.12.10_esmithmateja.txt: -------------------------------------------------------------------------------- 1 | Subject: PARMS functionality 2 | Name: Erin Smith-Mateja 3 | Date: 12/10/2012 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) A change was made so that if a keyword used PARMS() and an uppercase "P" was read prior 9 | to the PARMS() statement in columns 11-80, it will now read the PARMS statement after the "P". 10 | 11 | Impact on users: 12 | Users should obtain new executables. 13 | 14 | Modified Files: 15 | 16 | ./base/src/keyrdr.f - after it encounters a "P" or "p" it has to search for the whole word "PARMS". 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /dftm/src/tmdam.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE TMDAM (II, ICODES) 2 | IMPLICIT NONE 3 | C---------- 4 | C **TMDAM DATE OF LAST REVISION: 06/30/10 5 | C---------- 6 | C 7 | C CALLED BY PROGNOSIS VERSION 6.0 8 | C CALLED BY: SUBAROUTINE DAMCDS 9 | C 10 | C THIS ROUTINE WILL BE USED IN FUTURE UPDATES TO THE DOUGLAS FIR TUSSOCK 11 | C MOTH MODEL. IT WILL BE USED TO READ IN DAMAGE CODES FROM THE STAND DATA. 12 | C 13 | C FVS TREE VARIABLES THAT MAY BE NEEDED FOR PROCESSING OF DAMAGE CODES 14 | C CAN BE ACCESSED BY INCLUDING THE NECESSARY COMMON BLOCKS. 15 | C 16 | INTEGER II, ICODES(6) 17 | 18 | RETURN 19 | END 20 | 21 | -------------------------------------------------------------------------------- /ni/src/dgbnd.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DGBND (ISPC,DBH,DDG) 2 | use contrl_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C **DGBND--NI DATE OF LAST REVISION: 04/09/08 7 | C---------- 8 | C THIS SUBROUTINE IS INSURES THAT A MAXIMUM VALUE FOR DIAMETER 9 | C GROWTH IS NOT EXCEEDED. 10 | C---------- 11 | COMMONS 12 | C---------- 13 | C CHECK FOR SIZE CAP COMPLIANCE. 14 | INTEGER ISPC 15 | REAL DDG,DBH 16 | C---------- 17 | IF((DBH+DDG).GT.SIZCAP(ISPC,1) .AND. SIZCAP(ISPC,3).LT.1.5)THEN 18 | DDG=SIZCAP(ISPC,1)-DBH 19 | IF(DDG .LT. 0.01) DDG=0.01 20 | ENDIF 21 | C 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /.travis-ci/setup_conda.sh: -------------------------------------------------------------------------------- 1 | conda config --set always_yes yes --set changeps1 no 2 | conda config --add channels conda-forge 3 | 4 | # hash -r 5 | # Edit the environment.yml file for the target Python version 6 | # sed -i -E 's/(python=)(.*)/\1'$TRAVIS_PYTHON_VERSION'/' ./environment.yml 7 | # conda env create --force -q -n pyfvs -f ${TRAVIS_BUILD_DIR}/environment.yml 8 | 9 | export pkg="numpy pandas cython pyodbc click setuptools wheel sphinx alabaster matplotlib pip twine docutils>=0.13.1" 10 | 11 | conda create -y -q --name pyfvs python=$TRAVIS_PYTHON_VERSION $pkg 12 | source activate pyfvs 13 | pip install pytest sphinxcontrib-napoleon 14 | 15 | conda info -a 16 | -------------------------------------------------------------------------------- /changeNotes/2016.06.27_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: R3 woodland species volumes 2 | Name: R. Havis 3 | Date: June 27, 2016 4 | Variants affected: CR 5 | 6 | Description: After April 11, 2016 the woodland species volumes in Region 3 7 | were using a multi-stem parameter in volume calculations. 8 | This was changed so all volumes for Region 3 woodland 9 | are calculated assuming a single stem. 10 | 11 | Impact on users: Woodland species volumes in Regions 3 will be approximately 12 | 10% higher than volumes calculated using Version 1108 of the 13 | Central Rockies Variant 14 | 15 | Files: 16 | -------------------------------------------------------------------------------- /bin/BuildAll_VS10.bat: -------------------------------------------------------------------------------- 1 | echo off 2 | rem Once SLN files have been made with 3 | rem cmake -G"Visual Studio 10" . 4 | rem The compilation of all versions can be automated... 5 | rem 6 | setlocal enabledelayedexpansion 7 | set VS="C:\Program Files\Microsoft Visual Studio 10.0\Common7\IDE\devenv.exe" 8 | rem for %%V in (ak bcc bmc cac cic crc cs ecc emc iec ktc ls ncc ne pnc sn soc ttc utc wcc wsc) do ( 9 | for %%V in (bcc) do ( 10 | echo %%V 11 | set Targ=FVS!Targ!%%V_CMakeDir\FVS.sln 12 | %VS% !Targ! /Build "Release" /Out "BuildAll_VS10.log" 13 | copy FVS%%V_CMakeDir\Release\*.dll . 14 | copy FVS%%V_CMakeDir\Release\*.exe . 15 | set Targ= 16 | ) 17 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/ca_bareground.key: -------------------------------------------------------------------------------- 1 | STDIDENT 2 | TEST_BG Testing a simple bare ground run 3 | STDINFO 610 CWC221 0 200 35 10 4 | MANAGED 0 1 5 | 6 | INVYEAR 2010 7 | DESIGN 0 1 999 1 0 1 1 8 | 9 | NUMCYCLE 10 10 | 11 | NOTREES 12 | ESTAB 2010 13 | PLANT 2011 DF 450 95 2 1 0 14 | END 15 | 16 | ECHOSUM 17 | 18 | ! THINQFA 5 0.0 50.0 ALL 1.4 2.0 80 19 | ! 0 20 | THINBBA 5 80 21 | 22 | PROCESS 23 | STOP 24 | -------------------------------------------------------------------------------- /changeNotes/2006.04.25_havis_keyser.txt: -------------------------------------------------------------------------------- 1 | Subject: SPROUT Generation Algorithm 2 | Name: Havis/Keyser 3 | Date: April 25, 2006 4 | Variants affected: CR 5 | 6 | Description: New sprouts are generated when cutting or fire is simulated. The predicted number of 7 | sprouts per stem was excessive when disturbance the cycle length exceeded 10 years. 8 | This has been corrected. 9 | 10 | Impact on users: Users who set the cycle length greater than 10 years, and who expect sprout 11 | generation in their simulations should obtain a new executable. 12 | 13 | Files: 14 | cr/src/esuckr.f - constrained RSHAG <=10 to correct excessive sprouting problem -------------------------------------------------------------------------------- /changeNotes/2012.10.16_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Potential Numerical Error in Cover Model Avoided 2 | Name: R. Havis 3 | Date: October 16, 2012 4 | Variants affected: All Western Variants 5 | 6 | Description: Corrected a numerical error that could occur when there 7 | were no trees in the input tree list, the Cover model 8 | was being used, and a fire was scheduled in the first cycle. 9 | 10 | Impact on users: Cover model users should obtain a new executable. 11 | 12 | Files: 13 | ./covr/src/cvcbms.f - added check for ORMSQD, OLDTPA = 0. before setting 14 | RMSD, TPA in conditional statements after 15 | statement label 2. -------------------------------------------------------------------------------- /changeNotes/2015.01.20_esmithmateja.txt: -------------------------------------------------------------------------------- 1 | Subject: Crown Width Update 2 | Name: Erin Smith-Mateja 3 | Date: 01/20/2015 4 | Variants affected: PN, EC, WC, BM, SO, NC, CA 5 | 6 | Description: An error was found in ni/cwcalc.f code, it was incorrectly 7 | setting the National Forest 'BF' coefficient (used in Equation #5, 8 | Crookston (2005)). This error has been resolved. 9 | 10 | Impact on users: It may slightly modify the crown width calculation for any 11 | species using Equation #5 in ni/cwcalc that has a BF value 12 | other than 1.0. 13 | 14 | Modified Files: 15 | ni/src/cwcalc.f - BF coefficient set based on KODFOR -------------------------------------------------------------------------------- /lpmpb/src/COLCOM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT COLCOM 2 | C---------- 3 | C **COLCOM DATE OF LAST REVISION: 07/02/10 4 | C---------- 5 | C 6 | C Revision History 7 | C 06/09/89 Last noted revision date. 8 | C 07/02/10 Lance R. David (FMSC) 9 | C Declared variables for Addition of IMPLICIT NONE to subroutines. 10 | C---------- 11 | REAL CURRMR(10),DEAD(10,10),DEADCL(10),GREEN(10,10),GREINF(10), 12 | & PRNOIN(10),START(10),STOTAL,TDEAD(10),TGREEN(10), 13 | & ZINMOR(10) 14 | LOGICAL LCURMR, LDAM 15 | COMMON /COLCOM/ CURRMR,DEAD,DEADCL,GREEN,GREINF,LCURMR,LDAM, 16 | & PRNOIN,START,STOTAL,TDEAD,TGREEN,ZINMOR 17 | C 18 | C-----END SEGMENT 19 | -------------------------------------------------------------------------------- /changeNotes/2006.05.04_ckeyser_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Eastern Crown Width Calculations and the SPCODES Keyword 2 | Name: Chad Keyser / Robert Havis 3 | Date: May 4, 2006 4 | Variants affected: CS, LS, NE, SE AND SN 5 | 6 | Description: The SPCODES keyword causes the JSP array to be modified. 7 | This was causing incorrect associations of species with crown 8 | width equation in the CWCALC routine. Therefore the index associating 9 | species with equations was changed from JSP to NSP. 10 | 11 | Impact on users: Use of the SPCODES keyword will not affect crown width calculations. 12 | 13 | Files: 14 | ./base/src/revise.f 15 | ./ls/src/cwcalc.f 16 | 17 | -------------------------------------------------------------------------------- /tests/ODBC/sqlite/fireTest.db_dump.txt.save: -------------------------------------------------------------------------------- 1 | FVS_BurnReport FVS_Consumption FVS_Hrv_Carbon FVS_SnagSum 2 | FVS_CanProfile FVS_Down_Wood_Cov FVS_Mortality 3 | FVS_Carbon FVS_Down_Wood_Vol FVS_PotFire 4 | FVS_Cases FVS_Fuels FVS_SnagDet 5 | 01160805050006,"Stand 01160805050006 at Regional Training",fireTest,21.0,IE 6 | 01160805050022,"Stand 01160805050022 at Regional Training",fireTest,50.0,IE 7 | 01160805050024,"Stand 01160805050024 at Regional Training",fireTest,17.0,IE 8 | 3,125.0 9 | 6,1.75 10 | 12,4.44 11 | 12,16.17 12 | 1190,119.0 13 | 12,3.587 14 | 28,ALL 15 | 12,21.95 16 | 12,898.54 17 | 12,5.79 18 | 12,8.9 19 | 211,2.0 20 | -------------------------------------------------------------------------------- /ws/src/exppnb.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EXPPNB 2 | IMPLICIT NONE 3 | C---------- 4 | C **EXPPNB-WS DATE OF LAST REVISION: 05/19/08 5 | C---------- 6 | C 7 | C VARIANT DEPENDENT EXTERNAL REFERENCES FOR THE 8 | C PARALLEL PROCESSING EXTENSION. 9 | C 10 | C 11 | C CALLED TO COMPUTE THE DDS MODIFIER THAT ACCOUNTS FOR THE DENSITY 12 | C OF NEIGHBORING STANDS (CALLED FROM DGF). 13 | C 14 | REAL XPPDDS,XPPMLT 15 | ENTRY PPDGF (XPPDDS) 16 | RETURN 17 | C 18 | C CALLED TO COMPUTE THE REGENT MULTIPLIER THAT ACCOUNTS FOR 19 | C THE DENSITY OF NEIGHBORING STANDS (CALLED FROM REGENT). 20 | C 21 | ENTRY PPREGT (XPPMLT) 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /base/src/svntr.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE SVNTR (XP,NP) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C STAND VISUALIZATION GENERATION 8 | C N.L.CROOKSTON -- RMRS MOSCOW -- NOVEMBER 1998 9 | C 10 | C GIVEN XP, THE NUMBER OF TREES PER ACRE, 11 | C RETURN NP, THE NUMBER OF TREE RECORDS TO PROCESS 12 | C 13 | REAL XX,XP,X 14 | INTEGER NP 15 | NP = 0 16 | XX = XP 17 | IF (XX.GT.1.) THEN 18 | NP = IFIX(XP) 19 | XX = XX-FLOAT(NP) 20 | ENDIF 21 | IF (XX.GT. .00001) THEN 22 | CALL SVRANN(X) 23 | IF (X.LT.XX) NP = NP+1 24 | ENDIF 25 | RETURN 26 | END 27 | -------------------------------------------------------------------------------- /changeNotes/2011.08.22_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Misc. Changes 2 | Name: R. Havis 3 | Date: August 22, 2011 4 | Variants affected: ALL 5 | 6 | Description: Misc. changes, see below 7 | 8 | Impact on users: none 9 | 10 | Files: 11 | ./base/src/errgro.f - reworded FVS WARNING 35 to improve clarity of message 12 | ./common/includeSVN.f 13 | ./cr/src/varvol.f - removed redundant declarations 14 | ./dbs/src/dbsatrtls.f - removed unneeded declarations 15 | ./dbs/src/dbscuts.f - removed unneeded declarations 16 | ./dbs/src/dbstrls.f - removed unneeded declarations 17 | ./fire/base/common/FMFCOM.F77 - added new common block, CFIMCOM, to 18 | accommodate future development projects -------------------------------------------------------------------------------- /changeNotes/2012.03.16_gdixon.txt: -------------------------------------------------------------------------------- 1 | Subject: FFE crown biomass equations for hardwood species in the expanded EC variant 2 | 3 | Name: Gary Dixon 4 | Date: 03/16/12 5 | 6 | Variants affected: East Cascades (EC) 7 | 8 | Description: The equation used to calculate crown biomass for hardwood species in the 9 | recently expanded EC variant was corrected. 10 | 11 | Impact on users: Users of the 32 species version of the EC variant should obtain a new 12 | executable. 13 | 14 | Files: 15 | fire/base/src 16 | fmcrowe.f changed: date of revision; added EC as a variant needing special attention 17 | in getting a height for crown biomass estimation 18 | -------------------------------------------------------------------------------- /changeNotes/2014.09.09b_srebain .txt: -------------------------------------------------------------------------------- 1 | Subject: FFE Bug Fix 2 | Name: Stephanie Rebain 3 | Date: 09/09/2014 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) The FFE Canopy Fuels Profile database output table (FFE keyword CANFPROF) was erroneously printing two 9 | sets of output during years with simulated fires. This has been corrected. 10 | 11 | Modified Files: 12 | fire/base/src/fmpocr.f - added variable ICALL to set when the canopy fuels profile table is output 13 | fire/base/src/fmcfmd2.f - changed call to fmpocr to eliminate unnecessary repeated calculations 14 | fire/base/src/fmmain.f - added call to fmpocr to print canopy fuels after burning 15 | 16 | 17 | 18 | 19 | 20 | -------------------------------------------------------------------------------- /resources/pyfvs.rc: -------------------------------------------------------------------------------- 1 | 1 ICON "./fvs.ico" 2 | 3 | 2 VERSIONINFO 4 | FILEVERSION 1,0,0,0 5 | PRODUCTVERSION 1,0,0,0 6 | BEGIN 7 | BLOCK "StringFileInfo" 8 | BEGIN 9 | BLOCK "040904E4" 10 | BEGIN 11 | VALUE "CompanyName", "Tod's Tools" 12 | VALUE "FileDescription", "FVS with Python Extensions" 13 | VALUE "FileVersion", "0.1a" 14 | VALUE "InternalName", "pyfvs" 15 | VALUE "LegalCopyright", "PyFVS" 16 | VALUE "OriginalFilename", "pyfvspnc.pyd" 17 | VALUE "ProductName", "PyFVS" 18 | VALUE "ProductVersion", "0.1a" 19 | END 20 | END 21 | 22 | BLOCK "VarFileInfo" 23 | BEGIN 24 | VALUE "Translation", 0x409, 1252 25 | END 26 | END -------------------------------------------------------------------------------- /changeNotes/2015.09.23_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: SPLeave Keyword 2 | Name: R. Havis 3 | Date: September 23, 2015 4 | Variants affected: ALL 5 | 6 | Description: Changed the keyword Flags controlling the SPLeave keyword. Also, 7 | changed the SPLeave keyword echo from set T/F by variable to 8 | set by logic around write statements and using different 9 | format statements. 10 | 11 | The Flags (field 3) are now as follows: 12 | 13 | Flag <= 0 the species leave-status is False, species is eligible for harvesting 14 | Flag > 0 the species leave-status is True 15 | 16 | 17 | Impact on users: none 18 | 19 | Files: 20 | -------------------------------------------------------------------------------- /lpmpb/src/mpbcup.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE MPBCUP 2 | use contrl_mod 3 | use plot_mod 4 | use prgprm_mod 5 | implicit none 6 | C---------- 7 | C **MPBCUP DATE OF LAST REVISION: 07/02/10 8 | C---------- 9 | C 10 | C INTERFACING PROGRAM TO CALL EITHER MPBDRV OR COLDRV. 11 | C 12 | INCLUDE 'MPBCOM.F77' 13 | C 14 | C Revision History 15 | C 02/08/88 Last noted revision date. 16 | C 07/02/10 Lance R. David (FMSC) 17 | C---------- 18 | C 19 | C************************* EXECUTION BEGINS *************************** 20 | C 21 | IF (LPOPDY) THEN 22 | CALL MPBDRV 23 | ELSE 24 | CALL COLDRV 25 | ENDIF 26 | RETURN 27 | END 28 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/op_bareground.key: -------------------------------------------------------------------------------- 1 | STDIDENT 2 | TEST_BG Testing a simple bare ground run 3 | STDINFO 712 CHS131 0 200 35 16 4 | MANAGED 0 1 5 | SITECODE DF 100 6 | 7 | INVYEAR 0 8 | DESIGN 0 1 999 1 0 1 1 9 | 10 | NUMCYCLE 10 11 | TIMEINT 0 10 12 | 13 | NOTREES 14 | ESTAB 0 15 | PLANT 1 DF 450 95 2 1 0 16 | END 17 | 18 | ECHOSUM 19 | 20 | VOLEQNUM DFF02FW2W202F02FW2W202 21 | 22 | THINBBA 6 120 23 | 24 | PROCESS 25 | STOP 26 | -------------------------------------------------------------------------------- /changeNotes/2006.09.25_rhavis_kcormier.txt: -------------------------------------------------------------------------------- 1 | Subject: Volume Update 2 | Name: R. Havis 3 | Date: September 25, 2006 4 | Variants affected: AK, SE and SN 5 | 6 | Description: See V0125_091906.txt and V0126_091906.txt. Check to use outside bark 7 | diameter appropriate to Clark's profile models in R8. Added BF calc 8 | for White Spruce in R10. 9 | 10 | Impact on users: Obtain new executables 11 | 12 | Files: 13 | dvest.f r10d2h.f r8vol2.f - R10 white spruce BF Eq., and outside bark 14 | conversion for Clark's Eqs. in R8 - see 15 | 2006.09.25_rhavis_kcormier.txt 16 | varvol.f - added BF for WS - see 2006.09.25_rhavis_kcormier.txt -------------------------------------------------------------------------------- /changeNotes/2016.04.25_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject:Snag Output FIle, Tree Age full estab 2 | Name: R. Havis 3 | Date: April 25, 2016 4 | Variants affected: All 5 | 6 | Description: 7 | 1) All variants: The default unit number for the snag output file was not being set when 8 | using the command line or reponse file intput mehtods. This has been 9 | corrected. 10 | 2) EM, CI, kt, and IE variants: Tree ages were not correct when using the full establishment model. 11 | This has been corrected. 12 | 13 | 14 | Impact on users: 15 | The snag file will be populated correctly when file unit number is not set. 16 | TRee ages will track correctly in when entering the fullestableishment model. 17 | 18 | Files: 19 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/oc_bareground.key: -------------------------------------------------------------------------------- 1 | STDIDENT 2 | TEST_BG Testing a simple bare ground run 3 | STDINFO 610 CWC221 0 200 35 10 4 | MANAGED 0 1 5 | 6 | INVYEAR 0 7 | DESIGN 0 1 999 1 0 1 1 8 | 9 | NUMCYCLE 10 10 | TIMEINT 0 10 11 | 12 | NOTREES 13 | ESTAB 0 14 | PLANT 1 DF 450 100 2 5 0 15 | END 16 | 17 | ECHOSUM 18 | 19 | ! THINQFA 5 0.0 50.0 ALL 1.4 2.0 80 20 | ! 0 21 | THINBBA 5 80 22 | 23 | PROCESS 24 | STOP 25 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/so_bareground.key: -------------------------------------------------------------------------------- 1 | STDIDENT 2 | TEST_BG Testing a simple bare ground run 3 | STDINFO 602 CPS111 0 200 35 45 4 | MANAGED 0 1 5 | 6 | INVYEAR 0 7 | DESIGN 0 1 999 1 0 1 1 8 | 9 | NUMCYCLE 10 10 | TIMEINT 0 10 11 | 12 | NOTREES 13 | ESTAB 0 14 | PLANT 1 DF 450 100 2 1 0 15 | END 16 | 17 | ECHOSUM 18 | 19 | ! THINQFA 7 0.0 50.0 ALL 1.4 2.0 80 20 | ! 0 21 | THINBBA 5 80 22 | 23 | PROCESS 24 | STOP 25 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/wc_bareground.key: -------------------------------------------------------------------------------- 1 | STDIDENT 2 | TEST_BG Testing a simple bare ground run 3 | STDINFO 618 CFS551 0 200 35 20 4 | MANAGED 0 1 5 | SITECODE DF 200 6 | 7 | INVYEAR 0 8 | DESIGN 0 1 999 1 0 1 1 9 | 10 | NUMCYCLE 10 11 | 12 | NOTREES 13 | ESTAB 0 14 | PLANT 1 DF 450 95 2 1 0 15 | END 16 | 17 | ECHOSUM 18 | 19 | !THINQFA 5 0.0 50.0 ALL 1.4 2.0 120 20 | !0 21 | THINBBA 5 120 22 | 23 | PROCESS 24 | STOP 25 | -------------------------------------------------------------------------------- /mirror.md: -------------------------------------------------------------------------------- 1 | # Update the SVN mirror branches 2 | 3 | # svn-trunk-mirror must remain identical to "trunk" in SVN 4 | git checkout -b svn-trunk-mirror origin/svn-trunk-mirror 5 | 6 | # Pull any outstanding SVN commits into the mirror branch 7 | git svn rebase 8 | 9 | # Push the new SVN commits to origin (e.g. GitHub) 10 | git push origin svn-trunk-mirror 11 | 12 | # Continuous integration branches have minimal modifications to enable 13 | # building and testing on automated CI systems, e.g. travis, AppVeyor 14 | 15 | # Rebase the trunk CI build scripts 16 | git checkout svn-trunk-ci 17 | git rebase svn-trunk-mirror 18 | 19 | # Verify the build 20 | # Push to GitHub 21 | git push origin svn-trunk-mirror 22 | -------------------------------------------------------------------------------- /changeNotes/2014.08.28_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: FFE Update 2 | Name: Stephanie Rebain 3 | Date: 08/28/2014 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) An error was corrected in the litter and duff consumption estimates in 9 | association with the PileBurn keyword. 10 | 11 | Impact on users: 12 | Users of the Pileburn keyword should obtain new executables. 13 | 14 | Modified Files: 15 | fire/base/src/fmtret.f - updated amount of litter and duff that is piled for use in fmcons 16 | fire/ni/src/fmcons.f - updated consumption of litter and duff 17 | fire/so/src/fmcons.f - updated consumption of litter and duff 18 | fire/bc/src/fmcons.f - updated consumption of litter and duff 19 | 20 | 21 | 22 | 23 | -------------------------------------------------------------------------------- /dftm/src/y1comp.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE Y1COMP 2 | IMPLICIT NONE 3 | C---------- 4 | C **Y1COMP DATE OF LAST REVISION: 06/30/10 5 | C---------- 6 | C 7 | C DFTM MODEL SUBROUTINE - JIM COLBERT - JAN 1978. 8 | C 9 | COMMONS 10 | C 11 | INCLUDE 'ICOND.F77' 12 | C 13 | INCLUDE 'LOWER.F77' 14 | C 15 | INCLUDE 'LIMITS.F77' 16 | C 17 | COMMONS 18 | C 19 | INTEGER I 20 | 21 | DO 10 I=1,3 22 | Y1(I) = X1(I) 23 | 10 CONTINUE 24 | 25 | X5(ICOUNT) = Y1(1) 26 | X6(ICOUNT) = Y1(2) 27 | X7(ICOUNT) = Y1(3) 28 | G19(ICOUNT) = G1(19) 29 | 30 | RETURN 31 | END 32 | -------------------------------------------------------------------------------- /base/src/tresor.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE TRESOR 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C THIS SUBROUTINE IS CALLED TO SORT AND MATCH TREE IDS (IDTREE) 7 | C WITH THE INTERNAL TREE INDEX NUMBERS GENERATED BY PROGNOSIS. 8 | C THIS IS NECESSARY TO INSURE THAT DATA NEEDED BY EXTENSIONS 9 | C TO THE PROGNOSIS MODEL IS MAPPED TO THE RIGHT TREE RECORDS. 10 | C THIS ROUTINE IS CALLED FROM INITRE. 11 | C---------- 12 | C CALL SUBROUTINES TO SORT AND MATCH RECORDS FOR THE VARIOUS 13 | C EXTENSIONS. 14 | C---------- 15 | C 16 | C* CALL MISSOR 17 | C* CALL RRSOR 18 | C* CALL BWSOR 19 | C* CALL TMSOR 20 | C* CALL MPBSOR 21 | CALL BRSOR 22 | C 23 | RETURN 24 | END 25 | -------------------------------------------------------------------------------- /changeNotes/2006.03.22_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Volume Code Update 2 | Name: Robert Havis 3 | Date: March 22, 2006 4 | Variants affected: AK 5 | 6 | Description: Routine maintenance to the volume code resulted in 7 | a change to the R10TAP routine that will prevent a 8 | potential mathematical error. 9 | 10 | Impact on users: Users of the AK variant should obtain a new executable. 11 | 12 | Volume Update - See Volume Bulletins 116-120 13 | Added Region number to R4VOL Call Statement arguments in VARVOL routines 14 | 15 | Files: 16 | base/src/revise.f ci/src/varvol.f tt/src/varvol.f 17 | ut/src/varvol.f volume/src/blmvol.f volume/src/profile.f 18 | volume/src/r10tap.f volume/src/r10vol1.f volume/src/r4vol.f -------------------------------------------------------------------------------- /changeNotes/2011.01.20_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Habitat Type 2 | Name: R. Havis 3 | Date: January 20, 2011 4 | Variants affected: CI, EM, IE, KT, NI 5 | 6 | Description: The internal habitat type sequence number was not set in the HABTYP 7 | routines of the affected variants. It was set external to the routines 8 | in the INITRE routine. This sequence number would not set correctly 9 | when FSveg PV codes are used to set habitat type. This has been corrected. 10 | 11 | Impact on users: This change could affect habitat dependent calculations in the growth and 12 | establishment. 13 | 14 | Files: 15 | HABTYP - set ICL5=0 if entering FSveg PV Code / PV Reference code logic. 16 | -------------------------------------------------------------------------------- /docs/fvs_variants.md: -------------------------------------------------------------------------------- 1 | FVS Variants 2 | ------------ 3 | 4 | PyFVS implements a subset of the full complement of FVS variants. More will be 5 | added over time. 6 | 7 | # Currently Implemented 8 | 9 | - Pacific Northwest Coast (PN) 10 | - Westside Cascades (WC) 11 | - South Central Oregon and Northeast California (SO) 12 | - Inland California and Southern Cascades (CA) 13 | - ORGANON Southwest (OC) 14 | - ORGANON Pacific Northwest (OP) 15 | - East Cascades (EC) 16 | 17 | # Implementation Roadmap 18 | 19 | - Northern California (NC) 20 | - Blue Mountains (BM) 21 | - Northern Idaho (NI) 22 | 23 | ![fvs_variant_map][map_url] 24 | 25 | [map_url]: https://svn.code.sf.net/p/open-fvs/code/wiki/FvsVariantsSmall.bmp 26 | -------------------------------------------------------------------------------- /on/src/revise.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE REVISE (VAR,REV) 2 | IMPLICIT NONE 3 | C---------- 4 | C **REVISE--BASE DATE OF LAST REVISION: 02/17/09 5 | C (DON'T CHANGE THIS DATE UNLESS THE SUBROUTINE LOGIC CHANGES.) 6 | C---------- 7 | C 8 | C THIS ROUTINE PROVIDES THE LATEST REVISION DATE FOR EACH VARIANT 9 | C WHICH GETS PRINTED IN THE MAIN HEADER ON THE OUTPUT. 10 | C CALLED FROM GROHED, FILOPN, SUMHED, SUMOUT, ECVOLS, PRTRLS, 11 | C AND DGDRIV. 12 | C---------- 13 | CHARACTER VAR*7,REV*10 14 | C---------- 15 | C ONTARIO - WAS LAKE STATES 16 | C---------- 17 | IF(VAR(:2).EQ.'ON') THEN 18 | REV = '10/01/12' 19 | GO TO 100 20 | ENDIF 21 | 100 CONTINUE 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /changeNotes/2012.04.10_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Subroutine Argument Correction 2 | Name: R. Havis 3 | Date: April 10, 2012 4 | Variants affected: EC 5 | 6 | Description: The species list for the East Cascades variant was expanded 7 | on April 2, 2012 (see FVS Update Bulletin No. 720). A problem 8 | was created at this time that could cause a runtime error. This 9 | has been corrected. 10 | 11 | 12 | Impact on users: Users of the EC variant should download a new executable. 13 | 14 | Files: 15 | ./base/src/revise.f 16 | ./ec/src/htdbh.f - added the variable IGL to the INTEGER declaration statement 17 | ./fire/base/src/fmcrowe.f - added the argument IGL to the HTDBH subroutine call statement 18 | -------------------------------------------------------------------------------- /changeNotes/2012.12.11_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: FVS Stand Visualization System Update 2 | Name: Stephanie Rebain 3 | Date: 12/11/2012 4 | Variants affected: All 5 | 6 | Description: 7 | 8 | 1) An error was corrected in the creation of the SVS treelist files. Thanks to Don Robinson of ESSA Technologies for helping with this fix. 9 | 10 | Impact on users: 11 | Users should obtain new executables. 12 | 13 | Modified Files: 14 | 15 | base/src/svcwd.f - made a correction to the way the SVS image objects are tracked by including 16 | two temp arrays (IOBJTPTMP and IS2FTMP) in the array cleanup operations. 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | -------------------------------------------------------------------------------- /fire/fofem/src/fof_hsf.h: -------------------------------------------------------------------------------- 1 | // 2 | // $Id$ 3 | // 4 | 5 | int HSF_Mngr (d_CI *a_CI, d_CO *a_CO, char cr_ErrMes[]); 6 | int HSF_Check (d_CI *a_CI, char cr_ErrMes[]); 7 | 8 | 9 | /*.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- */ 10 | int Calc_CrownFoliage (d_CI *a_CI, float *af_Con, float *af_Post, float *af_Percent); 11 | int Calc_CrownBranch (d_CI *a_CI, float *af_Con, float *af_Post, float *af_Percent); 12 | int Calc_Herb (d_CI *a_CI, float *af_Con, float *af_Post, float *af_Percent); 13 | int Calc_Shrub (d_CI *a_CI, float *af_Con, float *af_Post, float *af_Percent); 14 | float Shrub_Equ (d_CI *a_CI, int i_Equ); 15 | float Equ_234_Per (d_CI *a_CI); 16 | float Equation_16 (d_CI *a_CI); 17 | -------------------------------------------------------------------------------- /common/PPSPLA.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT PPSPLA 2 | C---------- 3 | C **PPSPLA--COMMON DATE OF LAST REVISION: 06/15/00 4 | C---------- 5 | CHARACTER*26 CLAID(MXSTND) 6 | COMMON / PPLACC / CLAID 7 | INTEGER LAORD(MXSTND),NLAS 8 | REAL AREA(MXSTND),XLOC(MXSTND),YLOC(MXSTND) 9 | COMMON / PPSPLA / AREA,XLOC,YLOC,LAORD,NLAS 10 | C 11 | C CLAID = STAND ID CODE FOR THE AREALOCS RECORD 12 | C AREA = AREA OF EACH STAND, -99999. IF NO DATA FOR AREA 13 | C XLOC = X LOCATION, -99999. IF NO DATA FOR LOCATION 14 | C YLOC = Y LOCATION, -99999. IF NO DATA FOR LOCATION 15 | C LAORD = ACCESS KEY TO AREA, XLOC, YLOC 16 | C NLAS = ACTUAL NUMBER OF AREAS AND LOCATIONS 17 | C 18 | C-----END SEGMENT 19 | -------------------------------------------------------------------------------- /changeNotes/2004.03.12_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Routine Semantics Corrections 2 | Name: Robert Havis 3 | Date: 12 March 2004 4 | Variants affected: PPE (with mistletoe), FFE, IE 5 | 6 | Files and Description: 7 | 8 | bin/MAKEFILE - added ${OBJ} string to the objects in IE_BASE_ADD to allow compilation on PC 9 | base/EXDBS - dimensioned 3 arrays for consistency with subroutine call statements 10 | mistoe/MSPPPT, MSPPGT - in reading and writing the integer array ISMSOUT, the IFWRIT routine 11 | must be used rather than the BFWRIT routine 12 | fire/nc/FMCFMD - added actual argument to the CWHR call statement for consistency with 13 | the CWHR subroutine statement arguments. 14 | 15 | Impact on users: There should not be a noticible effect. 16 | -------------------------------------------------------------------------------- /changeNotes/2005.03.09_srebain_and_gdixon.txt: -------------------------------------------------------------------------------- 1 | Subject: Fix to the Cover Extension 2 | Name: Stephanie Rebain and Gary Dixon 3 | Date: March 9, 2005 4 | Variants affected: All variants with Cover 5 | 6 | Description: 7 | The Cover extension was using incorrect (previous cycle) crown width 8 | values in its calculations. This was fixed. The Cover extension now 9 | yields canopy cover estimates that match those on the structure class table 10 | and those reported via SPMCDBH. 11 | 12 | Impact on users: 13 | This should have no effect on base FVS or FFE output. This will affect 14 | Cover extension output. 15 | 16 | Files: 17 | base/src/main.f - removed the call to cwidth and moved it to gradd 18 | base/src/gradd.f - added a call to cwidth -------------------------------------------------------------------------------- /changeNotes/2006.08.11_rhavis_kcormier.txt: -------------------------------------------------------------------------------- 1 | Subject: Bug in R8VOL2 2 | Name: R. HAvis and K. Cormier 3 | Date: August 11, 2006 4 | Variants affected: SN, SE 5 | 6 | Description: 7 | BULLETIN NO: V0124_07192006 8 | 9 | DATE:07-19-2006 10 | 11 | ROUTINE(S): R8VOL2.FOR 12 | 13 | MAIN TOPIC: CORRECTED A BUG IN THE TOTHT SUBROUTINE. ADDED THE 14 | FOLLOWING IF CHECK ON LINE 652: 15 | 16 | IF(THT .LE. 0) THT = HTTWO 17 | 18 | RESULT/IMPACT: CORRECTS A POSSIBLE MATH OVERRUN PROBLEM 19 | 20 | Impact on users: R8 users should obtain a new executalble 21 | 22 | Files: 23 | fvs/volume/R8VOL2 24 | fvs/base/REVISE 25 | 26 | COMPILE this routine and link the SN and SE variants 27 | -------------------------------------------------------------------------------- /on/src/dunn.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DUNN (SS) 2 | use plot_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C **DUNN--ON DATE OF LAST REVISION: 04/25/91 (NI) 7 | C ON: 05/06/04 8 | C---------- 9 | C 10 | C THIS SUBROUTINE ORIGINALLY IS FOR PROCESSES THE DUNNING 11 | C SITE CODE INFORMATION ENTERED ON THE SITECODE KEYWORD. 12 | C THE ONTARIO VARIANT DOES NOT HAVE THAT INFORMATION, BUT 13 | C IT MIGHT HAVE ENTERED A NEGATIVE VALUE, MEANING TOP HEIGHT. 14 | C TO AVOID CHANGING THE BASE/INITRE ROUTINE, WE WILL PUT 15 | C THE NEGATIVE VALUE INTO SITEAR WHERE IT WILL BE PICKED 16 | C UP IN THE SITSET ROUTINE. 17 | C 18 | SITEAR(ISISP) = SS 19 | 20 | RETURN 21 | END 22 | -------------------------------------------------------------------------------- /python/.bumpversion.cfg: -------------------------------------------------------------------------------- 1 | [bumpversion] 2 | current_version = 0.0.13 3 | commit = False 4 | tag = False 5 | tag_name = pyfvs-v{new_version} 6 | parse = (?P\d+) 7 | \.(?P\d+) 8 | \.(?P\d+) 9 | ((?Pdev|rc)(?P\d+))? 10 | serialize = 11 | {major}.{minor}.{patch}{release}{num} 12 | {major}.{minor}.{patch} 13 | 14 | [bumpversion:part:release] 15 | optional_value = release 16 | values = 17 | dev 18 | rc 19 | release 20 | 21 | [bumpversion:file:pyfvs/_version.py] 22 | search = __version__ = '{current_version}' 23 | replace = __version__ = '{new_version}' 24 | 25 | [bumpversion:file:../appveyor.yml] 26 | search = version: {current_version}-{{build}} 27 | replace = version: {new_version}-{{build}} 28 | 29 | -------------------------------------------------------------------------------- /tests/FVScic/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : cit01 cit02 3 | 4 | cit01 : 5 | @echo Test cit01, basic functionality 6 | -../../bin/FVScic --keywordfile=cit01.key 7 | grep -v "\-999" cit01.sum > cit01.tmp 8 | grep -v "\-999" cit01.sum.save > cit01.tmp.save 9 | -diff -w cit01.tmp cit01.tmp.save 10 | rm cit01.tmp cit01.tmp.save 11 | @echo Test cit01 ended 12 | 13 | cit02 : 14 | @echo Test cit02, stop/restart 15 | -../../bin/FVScic --keywordfile=cit01.key --stoppoint=2,2040,cit.stop 16 | -../../bin/FVScic --restart=cit.stop 17 | grep -v "\-999" cit01.sum > cit01.tmp 18 | grep -v "\-999" cit01.sum.save > cit01.tmp.save 19 | -diff -w cit01.tmp cit01.tmp.save 20 | rm cit01.tmp cit01.tmp.save 21 | @echo Test cit02 ended 22 | 23 | -------------------------------------------------------------------------------- /tests/FVSiec/ffe_svs_index.svs.save: -------------------------------------------------------------------------------- 1 | #TREELISTINDEX 2 | "Stand=FFE Year=1993 Inventory conditions" "ffe_svs_001.svs" 3 | "Stand=FFE Year=1993 Post cutting" "ffe_svs_002.svs" 4 | "Stand=FFE Year=2003 Beginning of cycle" "ffe_svs_003.svs" 5 | "Stand=FFE Year=2003 Post salvage" "ffe_svs_004.svs" 6 | "Stand=FFE Year=2003 Beginning of fire (01/03)" "ffe_svs_005.svs" 7 | "Stand=FFE Year=2003 During the fire (02/03)" "ffe_svs_006.svs" 8 | "Stand=FFE Year=2003 After the fire (03/03)" "ffe_svs_007.svs" 9 | "Stand=FFE Year=2013 Beginning of cycle" "ffe_svs_008.svs" 10 | "Stand=FFE Year=2013 Post cutting" "ffe_svs_009.svs" 11 | "Stand=FFE Year=2023 Beginning of cycle" "ffe_svs_010.svs" 12 | "Stand=FFE Year=2033 End of projection" "ffe_svs_011.svs" 13 | -------------------------------------------------------------------------------- /wsbwe/src/fxnote.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE FXNOTE 2 | IMPLICIT NONE 3 | C---------- 4 | C **FXNOTE DATE OF LAST REVISION: 07/14/10 5 | C---------- 6 | C 7 | C This module satisfies the external reference to the module 8 | C TXNOTE when the disease extensions. other than the ??X.exe 9 | C executables are being linked (RNH May98) 10 | C TXNOTE is called by: 11 | C - BWIN where LXNOTE is passed by BWCNTL.F77 12 | C - DFBIN where LXNOTE is passed by DFBCOM.F77 13 | C - MPBIN where LXNOTE is passed by MPBCOM.F77 14 | C - RRIN where LXNOTE is passed by RRCOM.F77 15 | C 16 | LOGICAL LXNOTE 17 | 18 | ENTRY TXNOTE (LXNOTE) 19 | LXNOTE = .FALSE. 20 | RETURN 21 | END 22 | -------------------------------------------------------------------------------- /bc/revise.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE REVISE (VAR,REV) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C $$ DON'T CHANGE THIS DATE UNLESS THE SUBROUTINE LOGIC CHANGES. 7 | C---------- 8 | C 9 | C THIS ROUTINE PROVIDES THE LATEST REVISION DATE FOR EACH VARIANT 10 | C WHICH GETS PRINTED IN THE MAIN HEADER ON THE OUTPUT. 11 | C CALLED FROM GROHED, FILOPN, SUMHED, SUMOUT, ECVOLS, PRTRLS, 12 | C AND DGDRIV. 13 | C---------- 14 | CHARACTER VAR*7,REV*10 15 | 16 | C--------------------------- 17 | C NORTH IDAHO -> INTERIOR BC 18 | C--------------------------- 19 | IF(VAR(:2) .EQ. 'BC') THEN 20 | REV = '10/01/12' 21 | GO TO 100 22 | ENDIF 23 | C 24 | 100 CONTINUE 25 | RETURN 26 | END 27 | -------------------------------------------------------------------------------- /changeNotes/2012.10.15_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: Fire and Fuels Extension Update 2 | Name: Stephanie Rebain 3 | Date: 10/15/2012 4 | Variants affected: AK, BM, CA, CI, CR, EC, IE, NI, PN, SO, WC, WS 5 | 6 | Description: 7 | 8 | 1) A mistake was corrected in the crown biomass estimates for mountain hemlock. 9 | 10 | Impact on users: 11 | Users with mountain hemlock in their stands should obtain new executables. This may have a significant 12 | impact on estimated fire behavior in stands with mountain hemlock. 13 | 14 | Modified Files: 15 | 16 | fire/base/src/fmcroww.f - added kg to lbs conversion factor for the mountain hemlock equations 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | -------------------------------------------------------------------------------- /common/PPLLCM.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT PPLLCM 2 | C---------- 3 | C **PPLLCM DATE OF LAST REVISION: 06/15/00 4 | C---------- 5 | INTEGER LKNEX(MXLLSZ),IELEM(MXLLSZ),IFRBEG,IFREND,INULL 6 | COMMON /PPLLCM/ LKNEX,IELEM,IFRBEG,IFREND,INULL 7 | C 8 | C LKNEX = LIST OF POINTERS TO LINK LIST 9 | C IELEM = LIST OF ELEMENTS STORED IN THE LINKED LIST. 10 | C IFRBEG= POINTER TO THE BEGINNING OF THE FREE SPACE (INITIALLY 11 | C SET EQUAL TO 1). 12 | C IFREND= POINTER TO THE END OF THE FREE SPACE (INITIALLY SET 13 | C EQUAL TO MXLLSZ). 14 | C INULL = THE VALUE OF A NULL POINTER (ZERO, IN THIS APPLICATION). 15 | C MXLLSZ= DIMENSION OF LKNEX AND IELEM...DEFINED IN PPEPRM. 16 | C 17 | C-----END SEGMENT 18 | -------------------------------------------------------------------------------- /changeNotes/2006.06.14_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: FVS Code Change - Tree Record Compression 2 | Name: Stephanie Rebain 3 | Date: 06/14/2006 4 | Variants affected: All variants 5 | 6 | Description: 7 | An error was corrected in the tree record compression algorithm. 8 | 9 | Impact on users: 10 | This will allow simulations to run that previously bombed during compression. 11 | 12 | Modified Files: 13 | base/src/comprs.f - changed the after compression computation of crown ratio so that it would 14 | work properly when crown ratio was negative. (FFE and other extensions set 15 | crown ratio to a negative value to stop base FVS from growing crowns for 16 | a cycle in certain situations.) 17 | 18 | -------------------------------------------------------------------------------- /changeNotes/2016.05.06_ckeyser.txt: -------------------------------------------------------------------------------- 1 | Subject: Tree age added to output database treelists 2 | Name: C. Keyser 3 | Date: May 6, 2016 4 | Variants affected: ALL 5 | 6 | Description: Tree Age (TreeAge) has been added to the following database extension 7 | output tables: FVS_TreeList, FVS_CutList, and FVS_ATRTList. 8 | 9 | Impact on users: If a user supplies tree age with input data, FVS will populate the 10 | TreeAge field in database extension output tables with tree age; 11 | otherwise, reported TreeAge will be 0. 12 | 13 | Files: 14 | base\src\intree.f 15 | base\src\triple.f 16 | common\ARRAYS.F77 17 | dbs\src\dbsatrtls.f 18 | dbs\src\dbscuts.f 19 | dbs\src\dbstreesin.f 20 | dbs\src\dbstrls.f 21 | -------------------------------------------------------------------------------- /lpmpb/src/coldrv.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE COLDRV 2 | use contrl_mod 3 | use plot_mod 4 | use prgprm_mod 5 | implicit none 6 | C---------- 7 | C **COLDRV DATE OF LAST REVISION: 07/02/10 8 | C---------- 9 | C 10 | C PART OF THE MOUNTAIN PINE BEETLE EXTENSION OF PROGNOSIS. 11 | C 12 | C THIS MODULE DRIVES ROUTINES THAT KILL LODGEPOLE PINE 13 | C USING COLE'S MODEL (1983). 14 | C 15 | C Revision History 16 | C 02/08/88 Last noted revision date. 17 | C 07/02/10 Lance R. David (FMSC) 18 | C---------- 19 | C 20 | INCLUDE 'COLCOM.F77' 21 | C 22 | INCLUDE 'MPBCOM.F77' 23 | C 24 | CALL COLDBH 25 | CALL COLMOD (IFINT,ICYC,IY(ICYC),NPLT) 26 | CALL COLMRT 27 | RETURN 28 | END 29 | -------------------------------------------------------------------------------- /tests/FVSbmc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : bmt01 bmt02 3 | 4 | bmt01 : 5 | @echo Test bmt01, basic functionality 6 | -../../bin/FVSbmc --keywordfile=bmt01.key 7 | grep -v "\-999" bmt01.sum > bmt01.tmp 8 | grep -v "\-999" bmt01.sum.save > bmt01.tmp.save 9 | -diff -w bmt01.tmp bmt01.tmp.save 10 | rm bmt01.tmp bmt01.tmp.save 11 | @echo Test bmt01 ended 12 | 13 | 14 | bmt02 : 15 | @echo Test bmt02, stop/restart 16 | -../../bin/FVSbmc --keywordfile=bmt01.key --stoppoint=2,2040,bmt.stop 17 | -../../bin/FVSbmc --restart=bmt.stop 18 | grep -v "\-999" bmt01.sum > bmt01.tmp 19 | grep -v "\-999" bmt01.sum.save > bmt01.tmp.save 20 | -diff -w bmt01.tmp bmt01.tmp.save 21 | rm bmt01.tmp bmt01.tmp.save 22 | @echo Test bmt02 ended 23 | 24 | 25 | -------------------------------------------------------------------------------- /tests/FVScac/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : cat01 cat02 3 | 4 | cat01 : 5 | @echo Test cat01, basic functionality 6 | -../../bin/FVScac --keywordfile=cat01.key 7 | grep -v "\-999" cat01.sum > cat01.tmp 8 | grep -v "\-999" cat01.sum.save > cat01.tmp.save 9 | -diff -w cat01.tmp cat01.tmp.save 10 | rm cat01.tmp cat01.tmp.save 11 | @echo Test cat01 ended 12 | 13 | cat02 : 14 | @echo Test cat02, stop/restart 15 | -../../bin/FVScac --keywordfile=cat01.key --stoppoint=2,2040,cat.stop 16 | -../../bin/FVScac --restart=cat.stop 17 | grep -v "\-999" cat01.sum > cat01.tmp 18 | grep -v "\-999" cat01.sum.save > cat01.tmp.save 19 | -diff -w cat01.tmp cat01.tmp.save 20 | rm cat01.tmp cat01.tmp.save 21 | @echo Test cat02 ended 22 | 23 | 24 | 25 | -------------------------------------------------------------------------------- /tests/ODBC/conn_strings/select_test.sql: -------------------------------------------------------------------------------- 1 | select s.standid,s.year,s.age 2 | ,s.tpa,s.ba,s.sdi,s.ccf,s.topht,s.qmd,s.tcuft,s.mcuft,s.bdft 3 | ,s.rtpa,s.rtcuft,s.rmcuft,s.rbdft 4 | ,s.atba,s.atsdi,s.atccf,s.attopht,s.atqmd 5 | ,s.prdlen,s.acc,s.mort,s.mai,s.fortyp,s.sizecls,s.stkcls 6 | from fvs_summary as s 7 | inner join fvs_cases as c 8 | on s.caseid=c.caseid 9 | --limit records to the most recent cases in case the db was not purged 10 | inner join ( 11 | select standid,max(rundatetime) as dt 12 | from fvs_cases 13 | group by standid 14 | ) as foo 15 | on foo.StandID=c.StandID and c.RunDateTime=foo.dt 16 | where s.standid in ('test_driver','test_filedsn','test_sysdsn') 17 | order by standid,"year" 18 | -------------------------------------------------------------------------------- /tests/VolTest/output/parseAllOUT.bat: -------------------------------------------------------------------------------- 1 | REM 2 | REM Run checkVolEqNos.exe to parse volume equation 3 | REM numbers out of all .out files (western variants). 4 | REM Builds variant tables of volume equation numbers 5 | REM for each location code in variant. These files have 6 | REM the extension .dat 7 | REM 8 | REM 9 | checkVolEqNos AK.out 10 | checkVolEqNos BM.out 11 | checkVolEqNos CA.out 12 | checkVolEqNos CI.out 13 | checkVolEqNos CR.out 14 | checkVolEqNos EC.out 15 | checkVolEqNos EM.out 16 | checkVolEqNos IE.out 17 | checkVolEqNos KT.out 18 | checkVolEqNos NC.out 19 | checkVolEqNos PN.out 20 | checkVolEqNos SO.out 21 | checkVolEqNos TT.out 22 | checkVolEqNos UT.out 23 | checkVolEqNos WC.out 24 | checkVolEqNos WS.out 25 | rem -------------------------------------------------------------------------------- /changeNotes/2010.08.24_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: Fire and Fuels Extension - Smoke Estimates 2 | Name: Stephanie Rebain 3 | Date: 08/24/2010 4 | Variants affected: All 5 | 6 | Description: 7 | 1)An error was fixed in the smoke emissions factors used in FFE. 8 | 9 | 2)A small fix was made to the duff consumption algorithm in the SO variant. 10 | 11 | Impact on users: 12 | Users may notice small changes in their smoke estimates and/or duff consumption. 13 | 14 | Modified Files: 15 | fire/ni/src/fmcons.f - fixed the logic used to select the smoke emissions factor 16 | fire/so/src/fmcons.f - fixed the logic used to select the smoke emissions factor and 17 | added a check for negative duff consumption values 18 | 19 | 20 | 21 | 22 | -------------------------------------------------------------------------------- /python/pyfvs/test/rmrs/pn_bareground.key: -------------------------------------------------------------------------------- 1 | STDIDENT 2 | TEST_BG Testing a simple bare ground run 3 | STDINFO 712 CHS131 0 200 35 16 4 | MANAGED 0 1 5 | SITECODE DF 100 6 | 7 | INVYEAR 0 8 | DESIGN 0 1 999 1 0 1 1 9 | 10 | NUMCYCLE 20 11 | 12 | NOTREES 13 | ESTAB 0 14 | PLANT 1 DF 450 95 2 1 0 15 | END 16 | 17 | ECHOSUM 18 | 19 | VOLEQNUM DFF02FW2W202F02FW2W202 20 | 21 | !THINQFA 2060 0.0 50.0 0 1.4 2.0 120 22 | !0 23 | THINBBA 5 120 24 | 25 | PROCESS 26 | STOP 27 | -------------------------------------------------------------------------------- /.appveyor/setup_conda.bat: -------------------------------------------------------------------------------- 1 | conda config --set always_yes yes --set changeps1 no 2 | conda config --add channels conda-forge 3 | conda --version 4 | conda update -y -q --all 5 | conda --version 6 | 7 | REM Edit the environment.yml file for the target Python version 8 | REM call sed -i -E 's/(python=)(.*)/\1'%PYTHON_VERSION%'/' ./environment.yml 9 | REM Create the conda environment 10 | REM conda env create -q -n pyfvs -f %APPVEYOR_BUILD_FOLDER%\\environment.yml 11 | 12 | set pkg=numpy pandas cython pyodbc click setuptools wheel sphinx alabaster matplotlib pip twine docutils>=0.13.1 13 | conda create -y -q -n=pyfvs python=%PYTHON_VERSION% %pkg% 14 | call activate pyfvs 15 | pip install pytest sphinxcontrib-napoleon 16 | 17 | conda info -a 18 | -------------------------------------------------------------------------------- /ak/src/habtyp.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE HABTYP (KARD2,ARRAY2) 2 | use contrl_mod 3 | use varcom_mod 4 | use prgprm_mod 5 | implicit none 6 | C---------- 7 | C **HABTYP--AK DATE OF LAST REVISION: 02/21/08 8 | C---------- 9 | C 10 | C DUMMY HABITAT ROUTINE USED IN VARIANTS THAT DON'T USE 11 | C HABITAT TYPE AS A VARIABLE IN GROWTH FUNCTIONS. 12 | C---------- 13 | COMMONS 14 | C---------- 15 | INTEGER KODTYP,ITYPE 16 | REAL ARRAY2 17 | CHARACTER*10 KARD2 18 | C---------- 19 | KODTYP=0 20 | ITYPE=0 21 | ICL5=999 22 | KARD2='UNKNOWN ' 23 | PCOM='UNKNOWN ' 24 | IF(LSTART)WRITE(JOSTND,21) 25 | 21 FORMAT(/,T12,'HABITAT TYPE IS NOT USED IN THIS VARIANT') 26 | RETURN 27 | END 28 | -------------------------------------------------------------------------------- /base/src/getsed.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE GETSED (SED) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C GENERATES A SEED FOR THE RANDOM NUMBER GENERATOR. 8 | C 9 | C 10 | REAL SED 11 | INTEGER I1,I2,I3,I4 12 | CHARACTER DAT*10,TIM*8 13 | C 14 | SAVE I4 15 | DATA I4/100/ 16 | C 17 | CALL GRDTIM (DAT,TIM) 18 | READ (TIM,'(T4,I2,T7,I2,T8,I1)') I1,I2,I3 19 | I4=I4+I3 20 | IF (I4.GT.300) I4=100+I3 21 | I3=MOD(I3,2)+1 22 | SED=FLOAT(IFIX( (I2*10000.+I1*100.+I2)/(I1+1.)* 23 | > FLOAT(I2+I4)/10**I3 ) ) 24 | IF (AMOD(SED,2.0).EQ.0.) SED=SED+1. 25 | WRITE (DAT,'(F9.0)') SED 26 | READ (DAT,'(F10.0)') SED 27 | RETURN 28 | END 29 | -------------------------------------------------------------------------------- /base/src/lnkchn.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE LNKCHN (ITREE) 2 | use contrl_mod 3 | use plot_mod 4 | use arrays_mod 5 | use prgprm_mod 6 | implicit none 7 | C---------- 8 | C $Id$ 9 | C---------- 10 | C 11 | INTEGER ITREE,II,KPTRII,IR 12 | C 13 | II = ISP(ITREE) 14 | IF (IBEGIN(II) .NE. 0) GO TO 30 15 | IBEGIN(II) = ITREE 16 | NUMSP=NUMSP + 1 17 | IUSED(NUMSP)=NSP(II,1) 18 | IREF(II)= NUMSP 19 | GO TO 40 20 | 30 CONTINUE 21 | KPTRII=KPTR(II) 22 | IND2(KPTRII) = ITREE 23 | 40 CONTINUE 24 | KPTR(II) = ITREE 25 | IR = IREF(II) 26 | C 27 | C COUNT NUMBER OF TREE RECORDS PER SPECIES 28 | C 29 | KOUNT(IR)=KOUNT(IR) + 1 30 | C 31 | RETURN 32 | END 33 | -------------------------------------------------------------------------------- /common/ESCOM2.F77: -------------------------------------------------------------------------------- 1 | CODE SEGMENT ESCOM2 2 | C---------- 3 | C **ESCOM2 DATE OF LAST REVISION: 06/14/00 4 | C---------- 5 | REAL SPEHAB(5,4),CHAB(16,10),CPRE(4,10),DHAB(16,10), 6 | & DPRE(4,10),XPREP(4,5),FHAB(16,10),FPRE(4,10), 7 | & PADV(MAXSP),PSUB(MAXSP),PXCS(MAXSP) 8 | COMMON /ESCOM2/ SPEHAB,CHAB,CPRE, 9 | & DHAB,DPRE,XPREP,FHAB,FPRE,PADV,PSUB,PXCS 10 | C 11 | C EXCLUDE THIS COMMON AREA FROM VARIANTS THAT ONLY USE THE NATURAL 12 | C AND PLANT OPTIONS. 13 | C BE SURE TO INCLUDE ESPARM BEFORE ESCOM2. 14 | C USED IN ESADVH, ESBLKD, ESDLAY, ESGENT, ESNSPE, ESPADV, ESPREP, ESPSUB, 15 | C ESPXCS, ESSUBH, ESTAB, ESTIME, ESTOCK, ESTPP, ESTUMP, & ESUCKR. 16 | C 17 | C-----END SEGMENT 18 | -------------------------------------------------------------------------------- /tests/FVScrc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : crt01 crt02 3 | 4 | crt01 : 5 | @echo Test crt01, basic functionality 6 | -../../bin/FVScrc --keywordfile=crt01.key 7 | grep -v "\-999" crt01.sum > crt01.tmp 8 | grep -v "\-999" crt01.sum.save > crt01.tmp.save 9 | -diff -w crt01.tmp crt01.tmp.save 10 | rm crt01.tmp crt01.tmp.save 11 | @echo Test crt01 ended 12 | 13 | crt02 : 14 | @echo Test crt02, stop/restart, output should match crt01 15 | -../../bin/FVScrc --keywordfile=crt01.key --stoppoint=2,2040,crt.stop 16 | -../../bin/FVScrc --restart=crt.stop 17 | grep -v "\-999" crt01.sum > crt01.tmp 18 | grep -v "\-999" crt01.sum.save > crt01.tmp.save 19 | -diff -w crt01.tmp crt01.tmp.save 20 | rm crt01.tmp crt01.tmp.save 21 | @echo Test crt02 ended 22 | -------------------------------------------------------------------------------- /tests/FVSwcc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : wct01 wct02 3 | 4 | wct01 : 5 | @echo Test wct01, basic functionality 6 | -../../bin/FVSwcc --keywordfile=wct01.key 7 | grep -v "\-999" wct01.sum > wct01.tmp 8 | grep -v "\-999" wct01.sum.save > wct01.tmp.save 9 | -diff -w wct01.tmp wct01.tmp.save 10 | rm wct01.tmp wct01.tmp.save 11 | @echo Test wct01 ended 12 | 13 | wct02 : 14 | @echo Test wct02, stop/restart, output should match wct01 15 | -../../bin/FVSwcc --keywordfile=wct01.key --stoppoint=2,2040,wct.stop 16 | -../../bin/FVSwcc --restart=wct.stop 17 | grep -v "\-999" wct01.sum > wct01.tmp 18 | grep -v "\-999" wct01.sum.save > wct01.tmp.save 19 | -diff -w wct01.tmp wct01.tmp.save 20 | rm wct01.tmp wct01.tmp.save 21 | @echo Test wct02 ended 22 | -------------------------------------------------------------------------------- /changeNotes/2012.04.25_ckeyser.txt: -------------------------------------------------------------------------------- 1 | Subject:Species code changes 2 | Name:Alaska cedar scientific name change 3 | Date:04.25.2012 4 | Variants affected:All 5 | 6 | Description:The International Botanical Congress updated the scientific name 7 | of Alaska cedar to Callitropsis nootkatensis (Plants symbol=CANO9) from 8 | Chamaecyparis nootkatensis (Plants symbol=CHNO)in the summer of 2011. The 9 | plants symbol has been updated in the appropriate variants and in the species 10 | translator. 11 | 12 | 13 | Impact on users:User's will be able to use the new PLANTS symbol to identify 14 | Alaska cedar. 15 | 16 | Files: 17 | ak\src\blkdat.f 18 | bm\src\blkdat.f 19 | ec\src\blkdat.f 20 | pn\src\blkdat.f 21 | wc\src\blkdat.f 22 | ni\src\spctrn.f 23 | 24 | -------------------------------------------------------------------------------- /changeNotes/2014.04.09_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Conditional statements in cutting logic 2 | Name: R. Havis 3 | Date: April 9, 2014 4 | Variants affected: ALL 5 | 6 | Description: 7 | 8 | All variants: Logic at lines 958 and 1033 was clarified to ensure 9 | correct processing. One example using the ThinPt 10 | thnining keywrod was found to be in error. This 11 | potential problem was introduced with Update 12 | Bulletin No. 727. 13 | 14 | All variants: There was a problem with the PRUME keyword. This 15 | has been corrected, This problem was introduced with Update 16 | Bulletin No. 727. 17 | 18 | Impact on users: Users should obtain new executables. 19 | 20 | Files: 21 | -------------------------------------------------------------------------------- /estb/src/estpp.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE ESTPP (VAL,TPP) 2 | use esparm_mod 3 | use escomn_mod 4 | use prgprm_mod 5 | implicit none 6 | C---------- 7 | C **ESTPP DATE OF LAST REVISION: 07/25/08 8 | C---------- 9 | C 10 | INCLUDE 'ESCOM2.F77' 11 | C 12 | REAL TPP,VAL,BB,CC 13 | C 14 | C CALCULATION OF TREES PER STOCKED PLOT. 15 | C 16 | BB= 0.697061 +.715825*XCOS -.203452*XSIN -2.762848*SLO 17 | & +.041235*REGT +.031435*BWAF 18 | IF(IHAB.GT.4.AND.IHAB.LT.9) BB=BB+.294473 19 | IF(IHAB.EQ.9.OR.IHAB.EQ.10) BB=BB+1.237000 20 | IF(IHAB.GT.10) BB=BB+.465788 21 | BB=EXP(BB) 22 | C 23 | CC= 0.6836 24 | C 25 | TPP= ((-(ALOG(1.0-VAL)))**(1.0/CC)) *BB +0.9 26 | RETURN 27 | END 28 | -------------------------------------------------------------------------------- /ls/src/exppnb.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EXPPNB 2 | IMPLICIT NONE 3 | C---------- 4 | C **EXPPNB-LS DATE OF LAST REVISION: 07/11/08 5 | C---------- 6 | C 7 | C VARIANT DEPENDENT EXTERNAL REFERENCES FOR THE 8 | C PARALLEL PROCESSING EXTENSION 9 | C 10 | REAL BDBL,BBAL,BCCF,DBH,CCFO,BALO,XPPDDS,XPPMLT 11 | C 12 | C CALLED TO COMPUTE THE DDS MODIFIER THAT ACCOUNTS FOR THE DENSITY 13 | C OF NEIGHBORING STANDS (CALLED FROM DGF). 14 | C 15 | ENTRY PPDGF (XPPDDS,BALO,CCFO,DBH,BCCF,BBAL,BDBL) 16 | RETURN 17 | C 18 | C CALLED TO COMPUTE THE REGENT MULTIPLIER THAT ACCOUNTS FOR 19 | C THE DENSITY OF NEIGHBORING STANDS (CALLED FROM REGENT). 20 | C 21 | ENTRY PPREGT (XPPMLT,CCFO,BALO,BCCF,BBAL) 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /ni/src/exppnb.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE EXPPNB 2 | IMPLICIT NONE 3 | C---------- 4 | C **EXPPNB-NI DATE OF LAST REVISION: 04/09/08 5 | C---------- 6 | C 7 | C VARIANT DEPENDENT EXTERNAL REFERENCES FOR THE 8 | C PARALLEL PROCESSING EXTENSION 9 | C 10 | C 11 | C CALLED TO COMPUTE THE DDS MODIFIER THAT ACCOUNTS FOR THE DENSITY 12 | C OF NEIGHBORING STANDS (CALLED FROM DGF). 13 | C 14 | REAL BDBL,BBAL,BCCF,DBH,CCFO,BALO,XPPDDS,XPPMLT 15 | ENTRY PPDGF (XPPDDS,BALO,CCFO,DBH,BCCF,BBAL,BDBL) 16 | RETURN 17 | C 18 | C CALLED TO COMPUTE THE REGENT MULTIPLIER THAT ACCOUNTS FOR 19 | C THE DENSITY OF NEIGHBORING STANDS (CALLED FROM REGENT). 20 | C 21 | ENTRY PPREGT (XPPMLT,CCFO,BALO,BCCF,BBAL) 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /tests/FVSktc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : ktt01 ktt02 3 | 4 | ktt01 : 5 | @echo Test ktt01, basic functionality 6 | -../../bin/FVSktc --keywordfile=ktt01.key 7 | grep -v "\-999" ktt01.sum > ktt01.tmp 8 | grep -v "\-999" ktt01.sum.save > ktt01.tmp.save 9 | -diff -w ktt01.tmp ktt01.tmp.save 10 | rm ktt01.tmp ktt01.tmp.save 11 | @echo Test ktt01 ended 12 | 13 | ktt02 : 14 | @echo Test ktt02, stop/restart, output should match ktt01 15 | -../../bin/FVSktc --keywordfile=ktt01.key --stoppoint=2,2040,ktt.stop 16 | -../../bin/FVSktc --restart=ktt.stop 17 | grep -v "\-999" ktt01.sum > ktt01.tmp 18 | grep -v "\-999" ktt01.sum.save > ktt01.tmp.save 19 | -diff -w ktt01.tmp ktt01.tmp.save 20 | rm ktt01.tmp ktt01.tmp.save 21 | @echo Test ktt02 ended 22 | 23 | -------------------------------------------------------------------------------- /tests/FVSttc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : ttt01 ttt02 3 | 4 | ttt01 : 5 | @echo Test ttt01, basic functionality 6 | -../../bin/FVSttc --keywordfile=ttt01.key 7 | grep -v "\-999" ttt01.sum > ttt01.tmp 8 | grep -v "\-999" ttt01.sum.save > ttt01.tmp.save 9 | -diff -w ttt01.tmp ttt01.tmp.save 10 | rm ttt01.tmp ttt01.tmp.save 11 | @echo Test ttt01 ended 12 | 13 | ttt02 : 14 | @echo Test ttt02, stop/restart, output should match ttt01 15 | -../../bin/FVSttc --keywordfile=ttt01.key --stoppoint=2,2040,ttt.stop 16 | -../../bin/FVSttc --restart=ttt.stop 17 | grep -v "\-999" ttt01.sum > ttt01.tmp 18 | grep -v "\-999" ttt01.sum.save > ttt01.tmp.save 19 | -diff -w ttt01.tmp ttt01.tmp.save 20 | rm ttt01.tmp ttt01.tmp.save 21 | @echo Test ttt02 ended 22 | 23 | -------------------------------------------------------------------------------- /tests/FVSutc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : utt01 utt02 3 | 4 | utt01 : 5 | @echo Test utt01, basic functionality 6 | -../../bin/FVSutc --keywordfile=utt01.key 7 | grep -v "\-999" utt01.sum > utt01.tmp 8 | grep -v "\-999" utt01.sum.save > utt01.tmp.save 9 | -diff -w utt01.tmp utt01.tmp.save 10 | rm utt01.tmp utt01.tmp.save 11 | @echo Test utt01 ended 12 | 13 | utt02 : 14 | @echo Test utt02, stop/restart, output should match utt01 15 | -../../bin/FVSutc --keywordfile=utt01.key --stoppoint=2,2040,utt.stop 16 | -../../bin/FVSutc --restart=utt.stop 17 | grep -v "\-999" utt01.sum > utt01.tmp 18 | grep -v "\-999" utt01.sum.save > utt01.tmp.save 19 | -diff -w utt01.tmp utt01.tmp.save 20 | rm utt01.tmp utt01.tmp.save 21 | @echo Test utt02 ended 22 | 23 | -------------------------------------------------------------------------------- /tests/FVSwsc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : wst01 wst02 3 | 4 | wst01 : 5 | @echo Test wst01, basic functionality 6 | -../../bin/FVSwsc --keywordfile=wst01.key 7 | grep -v "\-999" wst01.sum > wst01.tmp 8 | grep -v "\-999" wst01.sum.save > wst01.tmp.save 9 | -diff -w wst01.tmp wst01.tmp.save 10 | rm wst01.tmp wst01.tmp.save 11 | @echo Test wst01 ended 12 | 13 | wst02 : 14 | @echo Test wst02, stop/restart, output should match wst01 15 | -../../bin/FVSwsc --keywordfile=wst01.key --stoppoint=2,2040,wst.stop 16 | -../../bin/FVSwsc --restart=wst.stop 17 | grep -v "\-999" wst01.sum > wst01.tmp 18 | grep -v "\-999" wst01.sum.save > wst01.tmp.save 19 | -diff -w wst01.tmp wst01.tmp.save 20 | rm wst01.tmp wst01.tmp.save 21 | @echo Test wst02 ended 22 | 23 | -------------------------------------------------------------------------------- /changeNotes/2014.04.03_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Volume Update 2 | Name: R. Havis 3 | Date: April 3, 2014 4 | Variants affected: Central Rockies 5 | 6 | Description: 7 | 8 | CR variant: The default volume equation for ponderosa pine has been changed to 9 | a Fleweling equation, 300FW2W122, for the Apache Sitgreaves, Coconino, 10 | Kaibab and Tonto forests in Region 3. The addition of the 11 | 300FW2W122 equation number as a default makes it available 12 | for use with any species in R3 through the VOLEQNUM keyword. 13 | 14 | Impact on users: Volumes for the Apache Sitgreaves, Coconino, 15 | Kaibab and Tonto forests will be affected if stands 16 | contain ponderosa pine. 17 | 18 | Files: 19 | -------------------------------------------------------------------------------- /tests/APIviaR/base.key: -------------------------------------------------------------------------------- 1 | SCREEN 2 | NOAUTOES 3 | STDIDENT 4 | S248112 5 | DESIGN 11.0 1.0 6 | STDINFO 118.0 570.0 60.0 315.0 30.0 34.0 7 | INVYEAR 1990.0 8 | NUMCYCLE 10.0 9 | TREEFMT 10 | (T24,I4,T1,I4,T31,F2.0,I1,A3,F3.1,F2.1,T45,F3.0,T63,F3.0,T60,F3.1,T48,I1, 11 | T52,I2,T66,5I1,T54,7I1,T75,F3.0) 12 | TREEDATA 13 | ECHOSUM 14 | DGSTDEV 0 15 | NOTRIPLE 16 | PROCESS 17 | 18 | REWIND 19 | SCREEN 20 | NOAUTOES 21 | STDIDENT 22 | S248112 23 | DESIGN 11.0 1.0 24 | STDINFO 118.0 570.0 60.0 315.0 30.0 34.0 25 | INVYEAR 1990.0 26 | NUMCYCLE 10.0 27 | TREEDATA 28 | PROCESS 29 | STOP 30 | 31 | -------------------------------------------------------------------------------- /tests/FVScs/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : cst01 cst02 3 | 4 | cst01 : 5 | @echo Test cst01, basic functionality 6 | -../../bin/FVScs --keywordfile=cst01.key 7 | grep -v "\-999" cst01.sum > cst01.tmp 8 | grep -v "\-999" cst01.sum.save > cst01.tmp.save 9 | -diff -w cst01.tmp cst01.tmp.save 10 | rm cst01.tmp cst01.tmp.save 11 | @echo Test cst01 ended 12 | 13 | cst02 : 14 | @echo Test cst02, stop/restart, output should match cst01 15 | -../../bin/FVScs --keywordfile=cst01.key --stoppoint=2,2040,cst.stop 16 | -../../bin/FVScs --restart=cst.stop 17 | grep -v "\-999" cst01.sum > cst01.tmp 18 | grep -v "\-999" cst01.sum.save > cst01.tmp.save 19 | -diff -w cst01.tmp cst01.tmp.save 20 | rm cst01.tmp cst01.tmp.save 21 | @echo Test cst02 ended 22 | 23 | 24 | -------------------------------------------------------------------------------- /tests/FVSne/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : net01 net02 3 | 4 | net01 : 5 | @echo Test net01, basic functionality 6 | -../../bin/FVSne < net01.rsp 7 | grep -v "\-999" net01.sum > net01.tmp 8 | grep -v "\-999" net01.sum.save > net01.tmp.save 9 | -diff -w net01.tmp net01.tmp.save 10 | rm net01.tmp net01.tmp.save 11 | @echo Test net01 ended 12 | 13 | net02 : 14 | @echo Test net02, stop/restart, output should match net01 15 | -../../bin/FVSne --keywordfile=net01.key --stoppoint=2,2040,net.stop 16 | -../../bin/FVSne --restart=net.stop 17 | grep -v "\-999" net01.sum > net01.tmp 18 | grep -v "\-999" net01.sum.save > net01.tmp.save 19 | -diff -w net01.tmp net01.tmp.save 20 | rm net01.tmp net01.tmp.save 21 | @echo Test net02 ended 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /tests/FVSoc/makefile: -------------------------------------------------------------------------------- 1 | 2 | #all : oct01 3 | all : oct01 oct02 4 | 5 | 6 | oct01 : 7 | @echo Test oct01, basic functionality 8 | -../../bin/FVSoc --keywordfile=oct01.key 9 | grep -v "\-999" oct01.sum > oct01.tmp 10 | grep -v "\-999" oct01.sum.save > oct01.tmp.save 11 | -diff -w oct01.tmp oct01.tmp.save 12 | rm oct01.tmp oct01.tmp.save 13 | @echo Test oct01 ended 14 | 15 | oct02 : 16 | @echo Test oct02, stop/restart 17 | -../../bin/FVSoc --keywordfile=oct01.key --stoppoint=2,2020,oct.stop 18 | -../../bin/FVSoc --restart=oct.stop 19 | grep -v "\-999" oct01.sum > oct01.tmp 20 | grep -v "\-999" oct01.sum.save > oct01.tmp.save 21 | -diff -w oct01.tmp oct01.tmp.save 22 | rm oct01.tmp oct01.tmp.save 23 | @echo Test oct02 ended 24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /tests/FVSsn/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : snt01 snt02 3 | 4 | snt01 : 5 | @echo Test snt01, basic functionality 6 | -../../bin/FVSsn < snt01.rsp 7 | grep -v "\-999" snt01.sum > snt01.tmp 8 | grep -v "\-999" snt01.sum.save > snt01.tmp.save 9 | -diff -w snt01.tmp snt01.tmp.save 10 | rm snt01.tmp snt01.tmp.save 11 | @echo Test snt01 ended 12 | 13 | snt02 : 14 | @echo Test snt02, stop/restart, output should match snt01 15 | -../../bin/FVSsn --keywordfile=snt01.key --stoppoint=2,2020,snt.stop 16 | -../../bin/FVSsn --restart=snt.stop 17 | grep -v "\-999" snt01.sum > snt01.tmp 18 | grep -v "\-999" snt01.sum.save > snt01.tmp.save 19 | -diff -w snt01.tmp snt01.tmp.save 20 | rm snt01.tmp snt01.tmp.save 21 | @echo Test snt02 ended 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /wsbwe/src/bwekdp.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE BWEKDP (IOUT,IRECNT,KEYWRD,ARRAY,KARD) 2 | IMPLICIT NONE 3 | C---------- 4 | C **BWEKDP DATE OF LAST REVISION: 06/17/13 5 | C---------- 6 | C Revision History: 7 | C 14-JUL-2010 Lance R. David (FMSC) 8 | C Previous note revision date 1986 9 | C Added IMPLICIT NONE and declared variables as needed. 10 | C---------- 11 | CHARACTER*10 KARD(7) 12 | CHARACTER*8 KEYWRD 13 | INTEGER IOUT, IRECNT 14 | REAL ARRAY(7) 15 | WRITE (IOUT,70) IRECNT,KEYWRD,ARRAY,KARD 16 | 70 FORMAT (/,'CARD NUM =',I5,'; KEYWORD FIELD = ''',A8,''''/, 17 | > ' PARAMETERS ARE:',7F14.7,/, 18 | > ' COL 11 TO 80 =''',7A10,'''') 19 | C 20 | RETURN 21 | END 22 | -------------------------------------------------------------------------------- /base/src/cmrang.f: -------------------------------------------------------------------------------- 1 | FUNCTION CMRANG (LEN,INDX,ARR) 2 | IMPLICIT NONE 3 | C---------- 4 | C $Id$ 5 | C---------- 6 | C 7 | C FINDS THE MAX RANGE, CMRANG, OF THE VECTOR ARR. ONLY THE 8 | C ELEMENTS OF ARR INDEXED BY INDX ARE CONSIDERED. 9 | C 10 | C PART OF THE COMPRESSION ROUTINE COMPRS, WHICH IS PART OF THE 11 | C PROGNOSIS MODEL FOR STAND DEVELOPMENT. 12 | C N.L. CROOKSTON - FORESTRY SCIENCES LAB, MOSCOW, ID - JUNE 1982. 13 | C 14 | INTEGER INDX(*),LEN,I,J 15 | REAL ARR(*),CMRANG,X1,X2 16 | C 17 | X1=1E30 18 | X2=-1E30 19 | DO 10 J=1,LEN 20 | I=INDX(J) 21 | IF (ARR(I).LT.X1) X1=ARR(I) 22 | IF (ARR(I).GT.X2) X2=ARR(I) 23 | 10 CONTINUE 24 | CMRANG=X2-X1 25 | RETURN 26 | END 27 | -------------------------------------------------------------------------------- /on/src/balmod.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE BALMOD(ISPC,D,BA,RMSQD,GM,DEBUG) 2 | IMPLICIT NONE 3 | C---------- 4 | C **BALMOD--ON DATE OF LAST REVISION: 07/10/08 5 | C---------- 6 | C THIS SUBROUTINE COMPUTES THE VALUE OF A GROWTH MODIFIER BASED 7 | C ON BAL. ORIGINALLY THIS WAS JUST PART OF THE LARGE TREE DIAMETER 8 | C GROWTH SEQUENCE. HOWEVER, THERE NEEDS TO BE A SIMILAR ACCOUNTING 9 | C OF STAND POSITION IN THE LARGE TREE AND SMALL TREE HEIGHT GROWTH 10 | C ESTIMATION SEQUENCE. THIS ROUTINE IS CALLED BY DGF, HTGF, AND 11 | C RGNTHW. 12 | C 13 | C ON VERSION: this is currently not required 14 | C---------- 15 | COMMONS 16 | C---------- 17 | LOGICAL DEBUG 18 | INTEGER ISPC 19 | REAL D,BA,RMSQD,GM 20 | 21 | GM = 1.0 22 | RETURN 23 | END 24 | -------------------------------------------------------------------------------- /tests/FVSemc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : emt01 emt02 3 | 4 | emt01 : 5 | @echo Test emt01, basic functionality 6 | -../../bin/FVSemc --keywordfile=emt01.key 7 | grep -v "\-999" emt01.sum > emt01.tmp 8 | grep -v "\-999" emt01.sum.save > emt01.tmp.save 9 | -diff -w emt01.tmp emt01.tmp.save 10 | rm emt01.tmp emt01.tmp.save 11 | @echo Test emt01 ended 12 | 13 | emt02 : 14 | @echo Test emt02, stop/restart, output should match emt01 15 | -../../bin/FVSemc --keywordfile=emt01.key --stoppoint=2,2040,emt.stop 16 | -../../bin/FVSemc --restart=emt.stop 17 | grep -v "\-999" emt01.sum > emt01.tmp 18 | grep -v "\-999" emt01.sum.save > emt01.tmp.save 19 | -diff -w emt01.tmp emt01.tmp.save 20 | rm emt01.tmp emt01.tmp.save 21 | @echo Test emt02 ended 22 | 23 | 24 | -------------------------------------------------------------------------------- /changeNotes/2006.09.28_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: New R9 Variant Directories 2 | Name: R. Havis 3 | Date: September 28, 2006 4 | Variants affected: New versions of CS, LS and NE 5 | 6 | Description: New variant directories were added to the CVS repository to facilitate 7 | the development and publication of updated versions of the R9 8 | variants (CS, LS and NE). The variant directories are fvs/cs_new, 9 | fvs/ne_new, and fvs/ls_new. Build instructions were added to the 10 | makefiles for FVScs_new, FVSls_new, FVSlsfm_new, FVSne_new, 11 | and FVSnefm_new. 12 | 13 | Impact on users: None 14 | 15 | Files: The CS, LS and NE source code, and makefiles were loaded into the new 16 | directories for further development 17 | -------------------------------------------------------------------------------- /changeNotes/2010.12.13_srebain.txt: -------------------------------------------------------------------------------- 1 | Subject: Fire and Fuels Extension Update 2 | Name: Stephanie Rebain 3 | Date: 12/13/2010 4 | Variants affected: All 5 | 6 | Description: 7 | This is simply a code cleanup (as suggested by Nick) that takes care of errors such as 8 | arrays being indexed by real numbers and loops done over real numbers. 9 | 10 | Impact on Users: 11 | No impact on users and no change in output. 12 | 13 | Modified Files: 14 | fire/ni/src/fmcons.f - variables P, H, and D were switched from real to integer 15 | fire/so/src/fmcons.f - variables P, H, and D were switched from real to integer 16 | fire/base/src/fmeff.f - variables P, H, and D were switched from real to integer 17 | fire/base/src/fmevmon.f - variable ITRNC was switched from real to integer 18 | 19 | -------------------------------------------------------------------------------- /changeNotes/2014.06.18_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Compression of variable Height to Top Diameter 2 | Name: R. Havis 3 | Date: June 18,2014 4 | Variants affected: All 5 | 6 | Description: The tree bole height from stump to the specified cubic foot 7 | or board foot top diameter is written to the 8 | tree list, cut list, and after treatment tree list 9 | database tables. When compression of the tree list 10 | occurs during a simulation, the values for these 11 | heights were not accurate. The values for these 12 | heights were not accurate for trees created in the 13 | tripling algorithm. This has been corrected. 14 | 15 | Impact on users: Users should obtain new executables. 16 | 17 | Files: 18 | -------------------------------------------------------------------------------- /fire/base/src/fmchkfwt.f: -------------------------------------------------------------------------------- 1 | LOGICAL FUNCTION FMCHKFWT(I2) 2 | use contrl_mod 3 | use fmparm_mod 4 | use prgprm_mod 5 | implicit none 6 | C---------- 7 | C $Id$ 8 | C---------- 9 | C CALLED FROM: FMDYN, FMCFMD (WS,NC,IC) 10 | C 11 | C PURPOSE: 12 | C 13 | C PREVENT PLACING MORE THAN MXFMOD ELEMENTS IN THE 14 | C FMOD/FWT ARRAY 15 | C 16 | 17 | 18 | INTEGER I2 19 | 20 | FMCHKFWT = .FALSE. 21 | IF (I2 .LE. MXFMOD) THEN 22 | FMCHKFWT = .TRUE. 23 | ELSE 24 | WRITE (JOSTND,"(/1X,'*** FFE MODEL WARNING: TOO ', 25 | & 'MANY FIRE MODELS SPECIFIED; MAXIMUM= ',I2, 26 | & ' CYCLE= ',I4)") MXFMOD, ICYC 27 | CALL RCDSET (2,.TRUE.) 28 | ENDIF 29 | 30 | RETURN 31 | END 32 | -------------------------------------------------------------------------------- /wwpb/src/bmdbhc.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE BMDBHC (DBH,INDEX) 2 | use prgprm_mod 3 | implicit none 4 | 5 | C PART OF THE MOUNTAIN PINE BEETLE EXTENSION OF PROGNOSIS. 6 | C N.L. CROOKSTON--FOREST SCIENCES LAB--MOSCOW ID--JULY 1985 7 | 8 | C PARAMETERS: 9 | C DBH - FOUR BYTE REAL DBH OF TREE. 10 | C INDEX - FOUR BYTE INTEGER SIZE CLASS. 11 | 12 | C GIVEN A DBH, ASSIGNS A DBH CLASS FROM THE ARRAY 'UPSIZ'. 13 | 14 | INCLUDE 'PPEPRM.F77' 15 | INCLUDE 'BMPRM.F77' 16 | 17 | INCLUDE 'BMCOM.F77' 18 | 19 | INTEGER I, INDEX 20 | 21 | INDEX= 1 22 | DO 10 I=1,NSCL-1 23 | IF (DBH .LT. FLOAT(UPSIZ(I))) GOTO 20 24 | INDEX= INDEX + 1 25 | 10 CONTINUE 26 | 20 CONTINUE 27 | 28 | RETURN 29 | END 30 | -------------------------------------------------------------------------------- /changeNotes/2011.06.16_gdixon.txt: -------------------------------------------------------------------------------- 1 | Subject: Large tree diameter growth 2 | 3 | Name: Gary Dixon 4 | Date: 06/16/11 5 | 6 | Variants affected: Inland Empire (IE) 7 | 8 | Description: The effect of CCF on predicted large tree diameter growth for 9 | limber pine and Pacific yew was being applied twice.The error 10 | resulted in a slight underprediction of diameter growth for 11 | these two species. This has been corrected. 12 | 13 | Impact on users: Users of the IE variant should obtain a new executable. 14 | 15 | Files: 16 | ie/src dgf.f changed the date of revision; deleted lines 444-449 which 17 | applied the ccf effect for LM and PY; this effect is already 18 | applied at line 443 through the variable DGCCF. -------------------------------------------------------------------------------- /changeNotes/2015.08.13_gdixon.txt: -------------------------------------------------------------------------------- 1 | Subject: Record Tripling 2 | Name: Gary Dixon 3 | Date: 08/13/15 4 | Variants affected: OC, OP 5 | 6 | Description: FVS record tripling was not available in these two variants. This feature is now available. Although the default 7 | setting is still no record tripling, users can now turn on record tripling with the NUMTRIP keyword. 8 | 9 | Impact on users: The FVS capability to triple tree records is now available in these two variants. 10 | 11 | Files: 12 | oc/src 13 | grinit.f changed the default setting of ICL4 from 2 to 0, and the default setting of NOTRIP from .TRUE. to .FALSE. 14 | 15 | op/src 16 | grinit.f changed the default setting of ICL4 from 2 to 0, and the default setting of NOTRIP from .TRUE. to .FALSE. 17 | 18 | 19 | -------------------------------------------------------------------------------- /changeNotes/2015.09.18_rhavis.txt: -------------------------------------------------------------------------------- 1 | Subject: Tests File Corrections, Volume Updates 2 | Name: R. Havis 3 | Date: September 18, 2015 4 | Variants affected: R6 variants and CS, SO, TT, UT, OC and OP 5 | 6 | Description: 7 | 8 | 1) Corrected the sum.save files (CS, SO, TT, and UT) committed in revision 1583. 9 | 2) Added NOAUTOES back into cst01.key 10 | 2) Removed start/stop tests that are not working for OC and OP variants 11 | and updated the sum.save files. 12 | 3) Added 32 foot log Behre equations as VOLEQNUM keyword options in R6. 13 | 4) Adopted NVEL code maintenance changes in volume/PROFILE and R9CLARK 14 | (no effect on FVS) 15 | 16 | Impact on users: Behre 32 foot log equations are available in R6 with 17 | the VOLEQNUM keyword. 18 | 19 | Files: 20 | -------------------------------------------------------------------------------- /tests/FVSak/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : akt01 akt02 3 | 4 | akt01 : 5 | @echo Test akt01, basic functionality 6 | -../../bin/FVSak --keywordfile=akt01.key 7 | grep -v "\-999" akt01.sum > akt01.tmp 8 | grep -v "\-999" akt01.sum.save > akt01.tmp.save 9 | -diff -w akt01.tmp akt01.tmp.save 10 | rm akt01.tmp akt01.tmp.save 11 | @echo Test akt01 ended 12 | 13 | akt02 : 14 | @echo Test akt02, stop/restart, should get same answer as akt01 15 | -../../bin/FVSak --keywordfile=akt01.key --stoppoint=2,2040,akt.stop 16 | -../../bin/FVSak --restart=akt.stop 17 | grep -v "\-999" akt01.sum > akt01.tmp 18 | grep -v "\-999" akt01.sum.save > akt01.tmp.save 19 | -diff -w akt01.tmp akt01.tmp.save 20 | rm akt01.tmp akt01.tmp.save 21 | @echo Test akt02 ended 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /tests/FVSls/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : lst01 lst02 3 | 4 | lst01 : 5 | @echo Test lst01, basic functionality 6 | -../../bin/FVSls --keywordfile=lst01.key 7 | grep -v "\-999" lst01.sum > lst01.tmp 8 | grep -v "\-999" lst01.sum.save > lst01.tmp.save 9 | -diff -w lst01.tmp lst01.tmp.save 10 | rm lst01.tmp lst01.tmp.save 11 | @echo Test lst01 ended 12 | 13 | 14 | lst02 : 15 | @echo Test lst02, stop/restart, output should match lst01 16 | -../../bin/FVSls --keywordfile=lst01.key --stoppoint=2,2040,lst.stop 17 | -../../bin/FVSls --restart=lst.stop 18 | grep -v "\-999" lst01.sum > lst01.tmp 19 | grep -v "\-999" lst01.sum.save > lst01.tmp.save 20 | -diff -w lst01.tmp lst01.tmp.save 21 | rm lst01.tmp lst01.tmp.save 22 | @echo Test lst02 ended 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /tests/FVSon/makefile: -------------------------------------------------------------------------------- 1 | 2 | #all : ont01 3 | all : ont01 ont02 4 | 5 | 6 | ont01 : 7 | # @echo Test ont01, basic functionality 8 | # -../../bin/FVSon --keywordfile=ont01.key 9 | # grep -v "\-999" ont01.sum > ont01.tmp 10 | # grep -v "\-999" ont01.sum.save > ont01.tmp.save 11 | # -diff -w ont01.tmp ont01.tmp.save 12 | # rm ont01.tmp ont01.tmp.save 13 | # @echo Test ont01 ended 14 | 15 | ont02 : 16 | # @echo Test ont02, stop/restart 17 | # -../../bin/FVSon --keywordfile=ont01.key --stoppoint=2,2020,ont.stop 18 | # -../../bin/FVSon --restart=ont.stop 19 | # grep -v "\-999" ont01.sum > ont01.tmp 20 | # grep -v "\-999" ont01.sum.save > ont01.tmp.save 21 | # -diff -w ont01.tmp ont01.tmp.save 22 | # rm ont01.tmp ont01.tmp.save 23 | # @echo Test ont02 ended 24 | 25 | 26 | 27 | -------------------------------------------------------------------------------- /base/src/damcds.f: -------------------------------------------------------------------------------- 1 | SUBROUTINE DAMCDS (II,ICODES) 2 | use arrays_mod 3 | use prgprm_mod 4 | implicit none 5 | C---------- 6 | C $Id$ 7 | C---------- 8 | C 9 | C II = TREE POINTER FOR LIVE TREES 10 | C ICODES= DISEASE AND DAMAGE CODES ARRAY 11 | C 12 | C---------- 13 | C 14 | INTEGER I,II 15 | INTEGER*4 IDD 16 | INTEGER ICODES(6) 17 | 18 | C---------- 19 | C CALL SUBROUTINE TO PROCESS DAMAGE CODES FOR BASE MODEL (SPECIAL 20 | C TREE STATUS CODES, PERCENT DEFECT). 21 | C---------- 22 | CALL BASDAM (II,ICODES) 23 | 24 | C---------- 25 | C STORE DAMAGE CODES FOR LATER PEST EXTENSION PROCESSING. 26 | C---------- 27 | DO I = 1,6 28 | DAMSEV(I,II) = ICODES(I) 29 | END DO 30 | 31 | RETURN 32 | END 33 | -------------------------------------------------------------------------------- /changeNotes/2016.06.29_mshettles.txt: -------------------------------------------------------------------------------- 1 | Subject: Default Behre's Hyperbola Form Factor Values 2 | Name: Mike Shettles 3 | Date: 6/29/2016 4 | Variants affected: OP, PN and WC 5 | 6 | Description: The calculated maximum diameter growth bound (DGMAX) was scaled so as 7 | to be congruent with the timescale of DDS. DGMAX was being calculated based upon 8 | the default of 10 years, whereas DDS is scaled based upon user defined time scales. 9 | Differences in scaled diameter growth for larger trees were being nullified as a result. 10 | This difference was reconciled. 11 | 12 | Impact on users: Diameter growth predicted for larger trees may change to be larger 13 | than with previous executables for these three variants. 14 | 15 | Modified File(s): 16 | branches/FMSCdev/wc/src/dgbnd.f 17 | -------------------------------------------------------------------------------- /tests/FVSecc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : ect01 ect02 3 | 4 | ect01 : 5 | @echo Test ect01, basic functionality 6 | -../../bin/FVSecc --keywordfile=ect01.key 7 | grep -v "\-999" ect01.sum > ect01.tmp 8 | grep -v "\-999" ect01.sum.save > ect01.tmp.save 9 | -diff -w ect01.tmp ect01.tmp.save 10 | rm ect01.tmp ect01.tmp.save 11 | @echo Test ect01 ended 12 | 13 | ect02 : 14 | @echo Test ect02, stop/restart, output should match ect01 15 | -../../bin/FVSecc --keywordfile=ect01.key --stoppoint=2,2040,ect.stop 16 | -../../bin/FVSecc --restart=ect.stop 17 | grep -v "\-999" ect01.sum > ect01.tmp 18 | grep -v "\-999" ect01.sum.save > ect01.tmp.save 19 | -diff -w ect01.tmp ect01.tmp.save 20 | rm ect01.tmp ect01.tmp.save 21 | @echo Test ect02 ended 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /tests/FVSncc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : nct01 nct02 3 | 4 | nct01 : 5 | @echo Test nct01, basic functionality 6 | -../../bin/FVSncc --keywordfile=nct01.key 7 | grep -v "\-999" nct01.sum > nct01.tmp 8 | grep -v "\-999" nct01.sum.save > nct01.tmp.save 9 | -diff -w nct01.tmp nct01.tmp.save 10 | rm nct01.tmp nct01.tmp.save 11 | @echo Test nct01 ended 12 | 13 | nct02 : 14 | @echo Test nct02, stop/restart, output should match nct01 15 | -../../bin/FVSncc --keywordfile=nct01.key --stoppoint=2,2020,nct.stop 16 | -../../bin/FVSncc --restart=nct.stop 17 | grep -v "\-999" nct01.sum > nct01.tmp 18 | grep -v "\-999" nct01.sum.save > nct01.tmp.save 19 | -diff -w nct01.tmp nct01.tmp.save 20 | rm nct01.tmp nct01.tmp.save 21 | @echo Test nct02 ended 22 | 23 | 24 | 25 | 26 | -------------------------------------------------------------------------------- /tests/FVSpnc/makefile: -------------------------------------------------------------------------------- 1 | 2 | all : pnt01 pnt02 3 | 4 | pnt01 : 5 | @echo Test pnt01, basic functionality 6 | -../../bin/FVSpnc --keywordfile=pnt01.key 7 | grep -v "\-999" pnt01.sum > pnt01.tmp 8 | grep -v "\-999" pnt01.sum.save > pnt01.tmp.save 9 | -diff -w pnt01.tmp pnt01.tmp.save 10 | rm pnt01.tmp pnt01.tmp.save 11 | @echo Test pnt01 ended 12 | 13 | pnt02 : 14 | @echo Test pnt02, stop/restart, output should match pnt01 15 | -../../bin/FVSpnc --keywordfile=pnt01.key --stoppoint=2,2040,pnt.stop 16 | -../../bin/FVSpnc --restart=pnt.stop 17 | grep -v "\-999" pnt01.sum > pnt01.tmp 18 | grep -v "\-999" pnt01.sum.save > pnt01.tmp.save 19 | -diff -w pnt01.tmp pnt01.tmp.save 20 | rm pnt01.tmp pnt01.tmp.save 21 | @echo Test pnt02 ended 22 | 23 | 24 | 25 | 26 | --------------------------------------------------------------------------------