1 User`s Manual for the DLL version of ORGANON 9.1 The
Contents
1. INDS 8 1 FERTILIZTION INDICATOR YSF 1 5 0 FLOAT CYCLG PN 1 200 0 FERTILIZE WITH 200 LBS N NUMCY 2 GROW TWO CYCLES DO II 1 2 CALL EXECUTE CYCLG VERSION NPTS NTREES1 ISTAGE IBHAGE TREENO PTNO 1 SPECIES USER INDS DBH1 HT1 CR1 SCR1 EXPAN1 MGEXP 2 RVARS ACALIB PN YSF BABT BART YST NPR PRAGE PRLH 3 PRDBH PRHT PRCR PREXP BRCNT BRHT BRDIA JCORE SERROR 4 TERROR SWARNING TWARNING IERROR DGRO HGRO CRCHNG 5 SCRCHNG MORTEXP NTREES2 DBH2 HT2 CR2 SCR2 EXPAN2 6 STOR ADD GROWTH AND CHANGE TO BEGINNING OF GROWTH CYCLE VALUES FOR THE NEXT CALL TO EXECUTE DO I 1 NTREES2 DBH1 I DBH2 I HT1 1 HT2 I CR1 I CR2 I SCR1 I SCR2 I EXPANI 1 EXPAN2 I ENDDO NTREES1 NTREES2 ENDDO SET FERTILIZATION VARIABLES MOVE THE VARIABLES FOR THE FIRST FERTILIZATION INTO THE SECOND POSITION DO I 5 2 YSF 1 YSF I 1 PN I PN I 1 ENDDO YSF 1 5 0 FLOAT CYCLG PN 1 200 0 FERTILIZE WITH 200 LBS N CALL EXECUTE CYCLG VERSION NPTS NTREES1 ISTAGE IBHAGE TREENO PTNO SPECIES USER INDS DBH1 HT2. Gl pi EXISTSI OV RWRITE Y gt GO TO 40 ENDIF ENDIF OPEN LU20 FILE ONAME STATUS UNKNOWN GI READ TREE DATA FROM THE ORGANON CREATED INP FILE USING TH READDATA SUBROUTINE FROM THE READINP DLL CALL READDATA SNAME TITLE NPTS NTREES1 SITE 1 SITE 2 EVEN RAD 1 STAGE BHAGE BIG6 OTHER MISS NEST VERSION EDITION 2 MSDI 1 MSDI 2 MSDI 3 ACALIB TYPE FTYPE BAF VALUE TDATAI 3 TDATAR PGROWTH PTNO TRANSFER DATA TO THE EXECUTE SUBROUTINE VARIABLES AND ARRAYS DO I 1 30 INDS I 0 ENDDO ISTAGE STAGE IBHAGE BHAGE IF EVEN THEN 3 3 ana annan N P anann INDS 4 1 ENDIF DO I 1 NTRE TR SP T NDDO ES1 ENO I I ECIES I USER I T DBH1 I T HT1 I TDATAR I 2 CR1 I TDATAR I 3 EXPANI I TDATAI I 1 DATAI 1 3 DATAR 1 1 TDATAR I 4 INITIALIZE CYCLG 0 ENDDO DO J 1 40 BRHT I BRDIA JCORE ENDDO RVARS RVARS RVARS RVARS
3. E FIL E THEN EN GT RI HE IF n R R W E ELS i WRIT FORMAT FI ENDIF IANS IF IANS IF IANS WRITE GO TO 40 NDIF TE E E IYN E h n E m 6 TE 1500 ONAM ORMAT 1X A128 1600 ONAM p P L 1 EQ Q TH 4 EN Ld H Jh ELG EXISTS pi A64 2 GO TO 20 0 THEN 1300 U20 FI jp TR DO EN IS IB SUB E EAD E ONAM DATA FROM ROU DATA SNAM p P THI FROM TINI T F E TITLE TAGE B HAG E BIG6 OT HEUS DATAR ANSFI I 1 30 INDS 1 DDO TAG 0 E STAG HAGE BHAG EVEN THE INDS 4 1 DIF SDI 1 MSDI 2 PGROWT ER DATA TO T MSDI H PTNO H DI 3 ACALIB TYE TH QN ER EXISTS ORGANON CR a R PTS NTR MISS N h HE EX h ECUTE 277 AJ OV RWRITE OV RWRITE E STATUS UNKNOWN EATED EADINP p DL L EES1 SI EST VER SUBROUTIN INP FILI Either re enter or enter CTRL Q to restart ORGANON to enter or edit a new data file US
4. 10710 720 E ki a CR KKK KK KKK KK KK KK KK KK KKK KK KK KK KK KK KK KK KK KK KK KK KKK KK KKK KK k k k k k k k KK KKK INTEGER 4 FUNCTION IYN IA C Reads a single character returns 0 if not Y N or C Returns 1d 1E ty Sys 2 xf EN nt If returns value of IA C INCLUDE LUS INC c IMPLICIT NONE INTEGER 4 IA CHARACTER ANS 1 C READ A1 ANS IF SCAN yYy ANS 1 1 GT O THEN IYN 1 ELSEIF SCAN nNn ANS 1 1 GT 0 THEN IYN 2 ELSEIF ANS 1 1 EQ THEN IYN IA E iS H IYN 0 WRITE 1000 1000 FORMAT 14X Please enter only Y or N ENDIF RETURN END 31 QO anana QOO QOO Example 3 THIS VERSION OF TESTDLL IS AN EXAMPLE OF APPLYING PRUNING USING THE EXECUTE SUBROUTINE IN THE ORGRUN DLL PROGRAM TESTDLL IMPLICIT NONE INTEGER 4 LU10 LU20 L LEN IANS IYN I J INTEGER 4 NPTS NTREES1 STAGE BHAGE BIG6 OTHER MISS NEST VERSION 1 EDITION FTYPE 5 TDATAI 2000 3 PTNO 2000 INTEGER 4 CYCLG ISTAGE IBHAGE TREENO 2000 SPECIES 2000 1 USER 2000 NPR 2000 PRAGE 2000 3 BRCN
5. EQ 1 THEN U20 1700 34 E LU20 FORMAT I2 WRIT 9 E LU20 FORMAT I2 STAND LEVEL ERRORS 1750 11 U20 1800 STAND LEVEL WARNINGS 1850 11 Il RI I THI Ej Ed Ed D Hd HH MAX TARGI HEIGHT FOR PRUNING TARGET SPECIES FOR PRUNING ERMINE x YCLG VERSION NPTS NTR PECIES USER INDS DB VARS ACALIB PN YSF T TO BEGINNING OF G ERRORS IF TH I SERROR 1 RCNT BRHT RNING IERROR ES2 DBH2 HT2 I SWARNING I ROWTH CYCLE EY OCCUR ES1 ISTAGE IBHAGE T HT1 CR1 SCR1 EXPAN1 BABT BART YST NPR PRAGE RDBH PRHT PRCR PREXE ERROR SWARNING TWA CRCHNG MORTEXP NTR TO BRDIA JCO DGRO HGRO CR2 SCR2 1 ot ET CROWN RATIO FOR PRUNING MINIMUM DBH FOR PRUNED TREES MAXIMUM CROWN RATIO NO PTNO EXP RLH Bos VALUE eal lw SERROR HNG AN2 ENDDO WRITE LU20 1900 1900 FORMAT TREE LEVEL DO I 1 NTREES1 RRORS AND A WARNING WRITE LU20 1950 I TERROR I 1 TERROR I 2 TERROR I 3 1 TERROR I 4 TERR
6. FLOAT NPTS FLOAT NPTS THINNING INDICATOR ISTAGE I CRI SCRE ERROR DGRO HGRO ES2 DBH2 HT2 CR2 SCR2 1 ROWTH CYCLE EY OCCUR BHAGE TR EXPANI NO PTNO EXP RLH SERROR HNG AN2 T JCO wa VALUES zal lw 1700 FORMAT DO I 1 3 WRITE 1750 FORMA ENDDO WRITE LU20 1800 1800 FORMAT STAND LEVEL WARNINGS DO I 1 9 WRITE 1850 FORMAT ENDDO WRITE LU20 1900 1900 FORMAT TREE LEVEL DO I 1 NTREES1 WRITE LU20 1950 I TERROR I 1 1 TERROR I 4 2 TWARNING I 1950 FORMAT I4 6 I1 11 ENDDO ELSE STAND LEVEL ERRORS 4 LU20 1750 I SERROR TI T I2 11 LU 1850 I SWARNING I I2 Il T RRORS AND A WARNING TERROR I 2 TERROR I 3 TERROR 1 5 TERROR I 6 OUTPUTS TR T I I Eb INFORMATION TO THE TR E LIST FILI is QOO DO I 1 NTREES1 IF EXPAN1 I GT 0 000000001 THE WRITE LU20 2000 CYCLG PTNO I I SPECIES I USER I 1 DBH1 I HT1 I CRI1 I EXPANI I MORTEXP I 2 DGRO I HGRO I 2000 FORMAT I4 13 14 I13 I3 F6 1 1 F6 1 F5 2 F8 2 F8 2 F8 2 2 F8 2 ENDIF ENDDO ENDIF 99 CLOS CLOSI STOP END
7. Description of the Error NTREES lt 1 or NTREES gt 2000 VERSION lt 1 or VERSION gt 4 NPTS 1 Both SITE 1 and SITE 2 are set to 0 There are no major tree species for the VERSION BHAGE has been set to 0 for an uneven aged stand BHAGE gt 0 for an uneven aged stand STAGE is too small for the BHAGE An uneven aged stand cannot be fertilized YSF and or PN variables are not zero for an unfertilized stand The implied stand age of fertilization based on YSF must be less than or equal to current stand age or less than equal to 70 years PN lt 0 or PN gt 400 lbs per acre BART 1 gt BABT YST and or BART variables are not zero for an uncut stand For an even aged stand the implied stand age of cutting based on YST must be less than or equal to current stand age For multiple cuttings in which YST 0 BART lt 0 BABT lt 0 for a stand with cuttings Some MGEXP values must be gt 0 in a stand that has been cut at the start of the growth period CYCLG lt 0 ACALIB lt 0 5 or ACALIB gt 2 0 MSDI_1 MSDI_2 and or MSDI_3 gt 1000 Stand not even aged so genetic gain cannot be applied A genetic worth value cannot be lt 0 15 24 25 26 27 28 29 30 31 32 33
8. ESI NTREES2 SET PRUNING VARIABL L a THE FOLLOWING PRUNING HAS A TARGET CROWN RATIO AFTER PRUNING OF 0 5 A MAXIMUM LIFT HEIGHT OF 16 A MINIMUM DBH OF 4 AND TARGETS JUST D OUGLAS FIR INDS 6 1 PRUNING INDICATOR MAXLH 16 0 SET MAX LIFT HEIGHT FOR PRUNING TSP 202 SET TARGET SPECIES FOR PRUNING TCR 0 5 SET TARGET CROWN RATIO FOR PRUNING MDBH 4 O SET MINIMUM DBH FOR PRUNED TREES DO I 1 NTREES IF EXPAN1 I LE 0 0 CYCLE IF SPECIES I NE TSP CYCLE IF DBH1 I LT MDBH CYCLE MAXTCR 1 0 MAXLH HT1 I DETERMINE MAXIMUM CROWN RATIO X TCR IF MAXTCR GT X X MAXTCR DIFF CR1 I X HT1 I IF DIFF GE 0 1 THEN IF SCR1 I LE CR1 I THEN SCR1 I CRI I ENDIF CR I X ENDIF NPR I 1 PRAGE I 1 IBHAGE PRDBH I 1 DBH1 I PRHT I 1 HT1 I PRCR I 1 CR1 I PREXP I 1 EXPANI I ENDDO DO J 1 2 CALL EXECUTE CYCLG VERSION NPTS NTREES1 ISTAGE IBHAGE TREENO PTNO SPECIES USER INDS DBH1 HT1 CR1 SCR1 EXPAN1 MGEXP RVARS ACALIB PN YSF BABT BART YST NPR PRAGE PRLH PRDBH PRHT PRCR PREXP BRCNT BRHT BRDIA JCORE SERROR T
9. DATA SNAM E STAT THE FROM E TITLE TAGE B HAG E BIG6 0T HEUS DATAR DO I 1 30 IN DO DS I O E STAGE E BHAGE EN DO EVEN THE IN D T DS 4 1 IF I 1 NTRE RE ENO I I SDI_1 MSDI 2 PGROWT ER DATA TO T ESI MSDI 3 H PTNO HI EXISTS NE UN Li gt ov ERWRITE Y OV I RWRITE US UNKNOWN RGANON CR EAT ED THE R EADINP p DL dar NPTS NTRE ESI SITE 1 ER MISS N ES T VERSION ACALIB TYE HE EX EC UTE 22 SUBROUTIN INP FILE Y USING THI gt gt THI SITE 2 EVE EDITION p E FTYP Gl VA RIABLES AN E BAF VALUE T DA EMPORARY TREE NUMB ERS ana annan P OO N P anan SPECI USER DBH1 ES I I I HT1 1 e iS CR1 1 EXPAN NDDO 1 Eri TDATAI I 1 TDATAI I 3 TDATAR I 1 TDATAR I 2 TDATAR I 3 I TDATAR I 4 INITIALIZE SE ECT CYCLG O DO I 1 NTREES1 SCRI I O O MGEXP I O O DO J 1 3 ENDDO DO J 1 40
10. DGRO 2 0 MORTEXP 20 00 SCR2 2000 000 SCRCHNG 20 HT2 2000 CR2 2 0 V U A U U A 0 1 e following variables will ether each variable is strictly an INPUT variable is entered into the DLL and is not modified by the DLL variable WO INTEG INTEG 1 e it nclude a classification describing 1 e it strictly is created with in the DLL and en outputted by the DLL or a combination INPUT OUTPUT 1 it is entered into d the modified variable is outputted by the DLL the DLL modified by the DLL Description of Variables ER 4 ER 4 Total number of five year growth cycles previously grown in ORGANON INPUT OUTPUT variable Version of ORGANON to be used 1 Southwest Oregon SWO 2 Northwest Oregon NWO 3 Stand Management Cooperative SMC 4 Red Alder Plantation RAP INPUT variable NPTS NTREES 1 STAGE BHAGE TREENO T PTNO SPECIES T INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 Total used to co Include all number of sample p llect the tree treeless pl lots points list data ots points in the count INPUT variable Total measured in the stand at number of sample t FESS of the growth period NT cannot exceed 2000 The number of sample trees i would increase ov
11. EQ 122 OR 2 SPECIES I EO 117 OR SPECIES I EQ 81 THEN INDS 13 1 ELSE INDS 13 0 ENDIF ELSE IF SPECIES I EQ 202 OR SPECIES I EQ 17 OR 1 SPECIES I 263 THEN INDS 13 1 ELSE INDS 13 0 ENDIF ENDIF MGEXP I EXPAN I EXPAN I 0 0 BART 1 BART 1 1 0 005454154 DBH1 DBH1 I MGEXP1 I FLOAT NPTS ENDIF ENDDO IF BART 1 GT 0 0 THEN INDS 7 1 THINNING INDICATOR YST 1 5 0 FLOAT CYCLG ELSE INDS 7 0 BABT 0 0 YST 1 O O ENDIF DO J 1 2 IF J GT 1 THEN INDS 13 0 ENDIF CALL EXECUTE CYCLG VERSION NPTS NTREES1 ISTAGE IBHAGE TREENO PTNO 1 SPECIES USER INDS DBH1 HT1 CR1 SCR1 EXPAN1 MGEXP 2 RVARS ACALIB PN YSF BABT BART YST NPR PRAGE PRLH 3 PRDBH PRHT PRCR PREXP BRCNT BRHT BRDIA JCORE SERROR 4 TERROR SWARNING TWARNING IERROR DGRO HGRO CRCHNG 5 SCRCHNG MORTEXP NTREES2 DBH2 HT2 CR2 SCR2 EXPAN2 6 STOR ADD GROWTH AND CHANGE TO BEGINNING OF GROWTH CYCLE VALUES FOR THE NEXT CALL TO EXECUTE DO I 1 NTREES2 DBH1 I DBH2 I HT1 I HT2 I CR1 I CR2 I SCR1 I SCR2 I EXPANI I EXPAN2 I ENDDO NTREES1 NTREES2 ENDDO 29 annan ana anana ana ana gt QO sN ES SET THINNING VARIABLES MOVE POSITION AND REINITIALIZI IF BART 1 VARIABLES FOR THE GT 0 DO I 5 2 YST I YST I 1 BART I BART I 1 ENDDO BART 1 20 0 BABT
12. IN THE FOLLOWING EXAMPLE THE GROWN FOR TWO CYCLES PRUNED AGAIN AND GROWN FOR AN AD CYCLE INDS 9 1 1 SIT 2 SITE_ RVARS 3 MSDI_1 4 5 CAL EXECUTE ELECTED VARIABLES TO ZERO B BRCNT I J 0 J 0 J O J O teak Z Gl GI MSDI 2 MSDI 3 G VERSION NPTS NTR ECIES USER INDS BH PRHT PRCR PR ROR SWARNING TWA T RNING 1 I RD ER CRCHNG MORTEXP NT TO j ES2 DB ADD GROWTH AND CHANGE TO BEGINNING OF G FOR THE NEXT CALL TO EXECUTE DO I 1 NT DBH1 I HT1 I CR1 I SCR1 I EXPAN1 NDDO ses Om I W tj H N R2 SC y H2 I 1 1 R2 I EXPAN2 I 34 USE LIMIT ON ES1 ISTAGE IBHAGE TR H1 HT1 CR1 SCR1 EXPAN1 VARS ACALIB PN YSF BABT BART YST NPR PRAGE P BRCNT BRHT BRDIA JCORE ERROR DGRO HGRO CR 2 2 2 5 2 T E NUMBERS RUNNING EXECUTE DLL STAND IS GROWN ONE CYCLE PRUNED DITIONAL MAXIMUM SDI NO PTNO GEXP RLH SERROR wa HNG AN2 ROWTH CYCLE VALUES QO0OO000000 Co N ES anana Q000000 NTR I
13. lt 40 INPUT variable Diameter of the juvenile wood core at the JW branch on the I tree 1 lt lt NTREESI maximum of 2000 at the start of the growth period and 1 lt I lt NTREES2 at the end of the growth period 1 lt J lt 40 INPUT variable If SERROR I 1 1 lt I lt 35 then a stand level error of type I has occurred a value of 0 indicated no error See the following tables for a description of the particular errors OUTPUT variable If TERROR I J 1 1 lt I lt NTREESI 1 lt J 6 then a tree level error of type J has occurred for the i tree a value of 0 indicated no error See the following tables for a description of the particular errors OUTPUT variable If SWARNING I 1 1 lt I lt 9 then a stand level warning of type I has occurred a value of 0 indicated no error See the following tables for a description of the particular warnings OUTPUT variable If TWARNING I 1 1 lt I NTREESI then a tree warning has occurred for the I tree a value of 0 indicated no error See the following tables for a description of the particular warnings OUTPUT variable 12 IERROR DGRO I HGRO CRCHNG I SCRCHNG I MORTEXP I NTREES2 DBH2 I INTEGER 4 REAL 4 REAL 4 REAL 4 REAL 4 REAL 4 INTEGER 4 REAL 4 If IERROR 1 then a stand
14. 0 0 THEN 0 NDIF REMOVE ALL HARDWOOD TREE DO INDS 13 0 ESI I 1 NTRE BABT BABT 0 005454154 DBH1 I MGEXP I O O F SPECIES I GT 300 rc NM EXPAN I BART 1 ean 0 005454154 DBH1 I ENDIF ENDDO IF BART 1 a 0 0 THEN INDS 7 YST 1 p O FLOAT CYCLG ELSE CAI INDS BABT 7 YST 1 7 0 Sou ENDIF T 1 EX CU ADD GROWTH AND CHANG ECIES USER ARS ACALIB R G VERSION NPTS NTR INDS PN YSF BABT BART YST NPR PRAGE P BRCNT BRHT BRDIA ROR SWARNING TWARNING I DBH PRHT PRCR PREX R RCHNG MORTEXP NTR TO BEGINNING G FOR THE DO OUT pb NE ENDING VALUE DBH2 1 1 1 R2 I EXPAN2 I TREES2 T R S doped ESI NTREES2 PUT RESULTS FROM THE RUN IERROR EQ 1 THEN OUTPUT INFORMATION ABOUT WRITE LU20 1700 I HARDWOODS ARE DBHI I THEN bBH I I ESI HT1 DBH1 T ERRORS IF TH 30 FIRST THINNING INTO THE APPROPRIATE VARIABLES EXPAN1 MGEXP I NOT A MAJOR CONIF I a ECOND ER SPECIE
15. SMC Red alder site index Weiskittel et al 2009 for the RAP version For the SWO NWO and SMC versions ORGANON will calculate this value from SITE 2 if it is set to zero For the RAP version SITE 1 must be entered INPUT variable a Other site index SITE 2 Hann and Scriviani 1987 ponderosa pine site index for the SWO version and Flewelling s site index for western hemlock in the NWO and SMC versions For the RAP version Bruce 1981 Douglas fir site index For the SWO NWO and SMC versions ORGANON will calculate this value from SITE 1 if it is set to zero For the RAP version it will be reset to 115 if not entered by the user INPUT variable RVARS 3 RVARS 4 RVARS 5 RVARS 6 RVARS 7 RVARS 8 RVARS 9 RVARS 10 REAL 4 REAL 4 REAL 4 REAL 4 REAL 4 REAL 4 REAL 4 REAL 4 Maximum stand density index of Douglas fir for the SWO NWO and SMC versions Maximum stand density index of red alder for the RAP version A value of 0 will result in the version specific default value being used INPUT variable Maximum stand density index of white fir and or grand fir for the SWO NWO and SMC versions Maximum stand density index of Douglas fir for the RAP version A value of 0 will result in the version specific default value being used INPUT variable Maximum stand density index of ponderosa pine for
16. trees 3 The stand is grown for one five year growth cycle all Douglas fir trees are pruned to a crown ratio of 0 5 ora whichever is maximum lift height of 16 0 feet 20 lower the stand is grown for two five year growth cycles all Douglas fir trees are pruned to a crown ratio of 0 3 or a maximum lift height of 32 0 feet whichever is lower stand is grown for one more five year growth cycle and then the ana aa anana QOO QOO Example 1 THIS VERSION OF TESTDLL IS AN EXAMPLE OF APPLYING FERTILIZER USING THE EXECUTE SUBROUTINE IN THE ORGRUN DLL PROGRAM TESTDLL IMPLICIT NONE INTEGER 4 LU10 LU20 L LEN IANS IYN I J INTEGER 4 NPTS NTREES1 STAGE BHAGE BIG6 OTHER MISS NEST VERSION 1 EDITION FTYPE 5 TDATAI 2000 3 PTNO 2000 INTEGER 4 CYCLG ISTAGE IBHAGE TREENO 2000 SPECIES 2000 1 USER 2000 NPR 2000 PRAGE 2000 3 BRCNT 2000 3 2 BRHT
17. 0 D I A RMAT 1X FILE DO L 65 GO TO 10 TE EN OUTPUT FIL TE 1200 D tm n fou NDIF ONAME WRIT FO GO TO EQ 30 ipa N I DO I I 1 LI F ONAM WRITE EN GO TO 30 DIF ES NOT a data file name Enter outp A128 ONAM E 1300 RMAT 14X EN TRIM ONAME E I I 1400 FORMAT 14X INVALID FIL ch za ut f EH pH THEN ERRO m EQ EXIST 1X A124 eck DRIVE ile name R RE ENT ER Either re enter or enter lt CTRL Q gt to restart ORGANON to enter or edit a new data file gt AND ONAME I 1 I 1 T NAME RE ENT ER E FIL E ONAME EXIST E THEN EN GT RIT nS R R W EF I I WRITE F IANS F IANS WRITE GO TO 40 DIF 64 E 1500 ONAM ORMAT 1X A128 1600 ONAM FORMAT FILE ENDIF IANS IYN 1 EQ EQ 1300 TH EN E FIL E EXISTS ye LU pi A64 2 GO TO 20 0 THEN U20 FI REE TRANSF EN E ISTAG IBHAG SUB EAD D E ONAM DATA FROM ROUTINE
18. 1 lt J lt 3 INPUT variable Crown ratio of the I tree when the ye pruning was conducted on the tree 1 lt lt NTREESI maximum of 2000 at the start of the growth period and 1 lt NTREES2 at the end of the growth period 1 lt J lt 3 INPUT variable Plot point level expansion factor f the T tree when the J pruning was conducted on the tree 1 lt I lt NTREES1 maximum of 2000 at the start of the growth period and 1 I lt NTREES2 at the end of the growth period 1 lt J lt 3 INPUT variable Wood quality branch count of type J for the I tree 1 lt I lt NTREES maximum of 2000 at the start of the growth period and 1 lt I lt NTREES2 at the end of the growth period 1 lt J lt 3 INPUT variable Height to the J branch on the It tree 1 lt I lt NTREESI maximum of 2000 at the start of the growth period and 1 lt I lt NTREES2 at the end of the growth period 1 lt J lt 40 INPUT variable 11 BRDIA I J JCORE L J SERROR I TERROR I J SWARNING T TWARNING INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 Branch diameter of the J branch on the Ith tree 1 lt I lt NTREES maximum of 2000 at the start of the growth period and 1 lt I lt NTREES2 at the end of the growth period 1 lt J
19. 1 CR1 SCR1 EXPAN1 MGEXP RVARS ACALIB PN YSF BABT BART YST NPR PRAGE PRLH PRDBH PRHT PRCR PREXP BRCNT BRHT BRDIA JCORE SERROR TERROR SWARNING TWARNING IERROR DGRO HGRO CRCHNG SCRCHNG MORTEXP NTREES2 DBH2 HT2 CR2 SCR2 EXPAN2 STOR ADD GROWTH AND CHANGE TO BEGINNING OF GROWTH CYCLE VALUES FOR THE ENDING VALUES DO I 1 NTREES2 DBH1 I DBH2 I HT1 I HT2 I CR1 I CR2 I SCR1 I SCR2 I EXPANI 1 EXPAN2 I ENDDO NTREES1 NTREES2 OUTPUT RESULTS FROM THE RUN IF IERROR EQ 1 THEN OUTPUTS INFORMATION ABOUT ERRORS IF THEY OCCUR 1 lw 24 WRITE LU20 1700 1700 FORMAT STAND LEVEL ERRORS DO I 1 34 WRITE LU20 1750 I SERROR I 1750 FORMAT I2 I1 ENDDO WRITE LU20 1800 1800 FORMAT STAND LEVEL WARNINGS DO I 1 9 WRITE LU20 1850 I SWARNING I 1850 FORMAT I2 I1 ENDDO WRITE LU20 1900 1900 FORMAT TREE LEVEL ERRORS AND A WARNING DO I 1 NTREES1 WRITE LU20 1950 I TERROR I 1 TERROR I 2 TERROR I 3 1 TERROR I 4 TERROR I 5 TERROR I 6 2 TWARNING I 1950 FORMAT I4 6 I1 11 ENDDO ELSE C C OUTPUTS TREE INFORMATION TO THE TREE LIST FILE DO I 1 NTREES1 IF EXPAN1 I GT 0 000000001 THEN WRITE LU20
20. 2000 40 BRDIA 2000 40 JCORE 2000 40 SERROR 35 3 TERROR 2000 6 SWARNING 9 TWARNING 2000 INTEGER 4 INDS 30 IERROR NTREES2 REAL 4 SITE 1 SITE 2 MSDI 1 MSDI 2 MSDI 3 ACALIB 3 18 BAF 5 1 VALUE 5 TDATAR 2000 4 PGROWTH 2000 REAL 4 DBH1 2000 HT1 2000 CR1 2000 EXPAN1 2000 SCR1 2000 1 PN 5 YSF 5 BABT BART 5 YST 5 PRLH 2000 3 2 PRDBH 2000 3 PRHT 2000 3 PRCR 2000 3 PREXP 2000 3 3 OLD MGEXP 2000 DGRO 2000 HGRO 2000 CRCHNG 2000 4 SCRCHNG 2000 MORTEXP 2000 STOR 30 DBH2 2000 5 HT2 2000 CR2 2000 EXPAN2 2000 SCR2 2000 RVARS 30 CHARACTER ANS1 1 CHARACTER DNAME 128 SNAME 128 0NAME 128 CHARACTER TITLE 20 TYPE 1 5 OGICAL HERE OGICAL 2 EVEN RAD IMPORT THE EXECUTE SUBROUTINE FOR THE ORGRUN DLL DLL IMPORT EXECUTE IMPORT THE READDATA SUBROUTINE FROM THE READINP DLL FOR READING ORGANON INP FILES DLL IMPORT READDATA LU10 10 LU20 20 DETERMINE THE NAME OF THE ORGANON CREATED INP FILE TO OPEN 10 WRITE 1000 1000 FORMAT Enter tr file name NO extension i e 1 C MYFILE gt READ A128 DNAME L ICHAR DNAME 1 1 IF L EQ 17 OR L EQ 27 GOTO 99 EN LEN TRIM DNAME IF LEN GT 124 LEN 124 SNAME DNAME 1 LEN INP INQUIRE FILE SNAME EXIST HERE IF HERE THEN CLOSE LU10 ELSE WRITE 1100 DNAME 1100 FORMAT 21 ana anan ana 20 1200 30 1300 1400 1500 1600 4
21. 2000 CYCLG PTNO I I SPECIES I USER I 1 DBH1 I HT1 I CR1 I EXPAN 11 MORTEXP I 2 DGRO I HGRO I 2000 FORMAT I4 13 14 I13 I38 F6 1 1 F6 1 F5 2 F8 2 F8 2 F8 2 2 F8 2 ENDIF ENDDO ENDIF 99 CLOSE LU10 CLOSE 1020 STOP END CR KKK KK KKK KK KK KKK KK KK KKK KK KK KK KK KK KKK KK KKK KK KK KK KKK KK KKK KK KK KKK KK KK KKK INTEGER 4 FUNCTION IYN IA C Reads a single character returns 0 if not Y N or C Returns 1 rt 2 xf EN nt If returns value of IA C INCLUDE LUS INC c IMPLICIT NONE INTEGER 4 IA CHARACTER ANS 1 C READ A1 ANS IF SCAN yYy ANS 1 1 GT O THEN IYN 1 ELSEIF SCAN nNn ANS 1 1 GT 0 THEN IYN 2 ELSEIF ANS 1 1 EQ THEN IYN IA E iS H IYN 0 WRITE 1000 1000 FORMAT 14X Please enter only Y or N ENDIF RETURN END 229 aa anana ana ana Example 2 THIS VERSION OF TESTDLL IS AN EXAMPLE OF APPLYING THINNING USING THE EXECUTE SUBROUTINE IN THE ORGRUN DLL PROGRAM TESTDLL IMPLICIT NONE INTEGER 4 LU10 LU20 L LEN IANS IYN I J INTEG
22. 34 35 A genetic worth value must be 20 A genetic worth value is gt 0 when no genetic gain is indicated Swiss needle cast cannot be applied to this version of ORGANON Swiss needle cast cannot be applied to an unevenaged stand Foliage retention cannot be lt 0 85 Foliage retention cannot be gt 7 0 Fertilization cannot be applied to a stand with foliage retention lt 3 0 Foliage retention is 2 0 85 when no Swiss needle cast impact is indicated SITE 1 is set to 0 for RAP ORGANON T PDEN is set to zero for RAP ORGANON Stand must be even aged for RAP ORGANON Stand must have at least 905 of basal area in red alder for RAP ORGANON 16 Descriptions of the TERROR I J Array Description of the Error Illegal species code for the VERSION DBH O O HT 4 5 CR lt 0 0 or CR gt 1 0 EXPAN 0 0 SCR 0 0 or SCR gt 1 0 17 Descriptions of the SWARNING I Array Description of the Error SITE 1 is out of range for the VERSION SITE 2 is out of range for the VERSION Tree heights are too large for the site index value BHAGE is too young for the VERSION Amount of minor species is higher than recommended for the VERSION Number of sample trees is below recommended minimum Majority of the input stand is over the upper ag recommended for the VERSION Majority of the projected stand is now ov
23. 4 Number of prunings conducted on the I tree 1 lt I NTREES1 maximum of 2000 at the start of the growth period and 1 lt I NTREES2 at the end of the growth period A maximum of three prunings are allowed on a tree INPUT variable PRAGE I J INTEGER 4 Age of the I tree when the J pruning was conducted on the tree 1 lt NTREESI maximum of 2000 at the start of the growth period and 1 lt I NTREES2 at the end of the growth period 1 lt J lt 3 INPUT variable PRLH I J REAL 4 Lift height in feet for the pen tf when the J pruning was conducted on the tree 1 lt I lt NTREESI maximum of 2000 at the start of the growth period and 1 I NTREES2 at the end of the growth period 1 lt J lt 3 INPUT variable 10 PRDBH I J PRHT I J PRCR I J PREXP I J BRCNT I J BRHT I J REAL 4 REAL 4 REAL 4 REAL 4 INTEGER 4 INTEGER 4 DBH of the I tree when the J pruning was conducted on the tree 1 lt I lt NTREESI maximum of 2000 at the start of the growth period and 1 I NTREES2 at the end of the growth period 1 lt J lt 3 INPUT variable Total height of the Ith tree when the Jth pruning was conducted on the tree 1 lt I lt NTREES1 maximum of 2000 at the start of the growth period and 1 lt I lt NTREES2 at the end of the growth period
24. BART YST NPR PRAGE PRLH RDBH PRHT PRCR PREXP BRCNT BRHT BRDIA JCORE SERROR ERROR SWARNING TWARNING IERROR DGRO HGRO CRCHNG CRCHNG MORTEXP NTREES2 DBH2 HT2 CR2 SCR2 EXPAN2 TO T T wa ADD GROWTH AND CHANGE TO BEGINNING OF GROWTH CYCLE VALUES FOR THE NEXT CALL TO EXECUTE DO I 1 NT DBH1 I HT1 I CR1 I SCR1 I EXPAN1 NDDO DBH2 1 1 R2 I SCR2 I EXPAN2 I H N ses Om I W Eri 28 annan anan NTR T 1ES1 NTRE ES2 SET THINNING VARIABLES REMOVE ALL TR DO I 1 NTREES1 ES WITH A DBH gt 10 0 BABT BABT 0 005454154 DBH I DBH1 I EXPAN1 I FLOAT NPTS IF DBH1 I GT 10 0 THEN IF VERSION EQ 1 THEN IF SPECIES I EQ 202 OR SPECIES I EO 15 OR 1 SPECIES I 17 OR SPECIES I
25. BRHT I BRDIA I JCORE I RVARS RVARS RVARS RVARS IN THE FOLLOWING GROWN FOR TWO CYC CYCLE INDS 9 1 ses AL 2 1 2 SITE RVARS 3 MSDI_1 4 5 CAL BRCNT I J J rJ rJ MSDI 2 MSDI 3 ED VARIABLE ECUTE DLL EXAMPLE THE STAND IS GROWN ONE ERTILIZED ES FERTILIZ ADD GROWTH AND CHANGE TO BEGINNING OF FOR THE NEXT CAL EXECUTE VI ED AGAIN AND GROWN FOR AN ADDITIONAL MAXIMUM SDI I ES1 ISTAGE HT1 CR1 SCR1 l ERSION NPTS NTR ECIES USER INDS RS ACALIB PN YSF BABT BART YST NPE E ENO PTNO MGEXP PRLH PRHT PRCR PRE ROR SWARNING TWA CHNG MORTEXP NT RCNT BRHT BRDIA ERROR DGRO HG H2 HT2 CR2 SC man ROWTH CYCLE TO EXECUTE DO EES2 O El 1 R2 I Hl O m ll W PAN1 zi ESI NTREES2 FERTILIZATION VARIABLI QOO DBH2 I SCR2 I EXPAN2 I Li a SERROR CHNG PAN2 an ann anann anan ana QOO
26. EAD A128 DNAME L ICHAR DNAME 1 1 IF L EQ 17 OR L EQ 27 GOTO 99 EN LEN TRIM DNAME IF LEN GT 124 LEN 124 SNAME DNAME 1 LEN INP INQUIRE FILE SNAME EXIST HERE IF HERE THEN 32 ana ann ana CLOSE LU10 ELSE WRITE 1100 DNAME 1100 FORMAT FILE DOES NOT EXIST 1X A124 Either re enter 2 a data file name check DRIVE or enter lt CTRL Q gt 3 to restart ORGANON to enter or edit a new data file L 65 GO TO 10 ENDIF OPEN OUTPUT FILI Li 20 WRITE 1200 1200 FORMAT 1X Enter output file name gt READ A128 ONAM IF ONAME EQ TH WRITE 1300 1300 FORMAT 14X ERROR REENTER gt UN GO TO 30 30 nj pd O wW Gl GI N Gl Ii NDIF EN LEN TRIM ONAME 1 DO I 1 LEN IF ONAME I I EQ AND ONAM WRITE 1400 1400 FORMAT 14X INVALID FILE NAME REENTER GO TO 30 ENDIF ENDDO INQUIRE FILE ONAME EXIST HERE IF HERE THEN IF LEN GT 64 THEN WRITE 1500 ONAM 1500 FORMAT 1X A128 FILE EXISTS OVERWRITE Y gt ELSE WRITE 1600 ONAM 1600 FORMAT FILE A64 ENDIF 40 IANS IYN 1 IF IANS EQ 2 GO TO 20 IF IANS EQ 0 THEN WRITE 1300 T Gl I 1 I l NE zal d m eal Z
27. ER 4 NPTS NTREES STAGE BHAGE BIG6 OTHER MISS NEST VERSION 1 EDITION FTYPE 5 TDATAI 2000 3 PTNO 2000 INTEGER 4 CYCLG ISTAGE IBHAGE TREENO 2000 SPECIES 2000 ii USER 2000 NPR 2000 PRAGE 2000 3 BRCNT 2000 3 2 BRHT 2000 40 BRDIA 2000 40 JCORE 2000 40 SERROR 35 3 TERROR 2000 6 SWARNING 9 TWARNING 2000 INTEGER 4 INDS 30 IERROR NTREES2 REAL 4 SITE 1 SITE 2 MSDI 1 MSDI 2 MSDI 3 ACALIB 3 18 BAF 5 1 VALUE 5 TDATAR 2000 4 PGROWTH 2000 REAL 4 DBH1 2000 HT1 2000 CR1 2000 EXPAN1 2000 SCR1 2000 1 PN 5 YSF 5 BABT BART 5 YST 5 PRLH 2000 3 2 PRDBH 2000 3 PRHT 2000 3 PRCR 2000 3 PREXP 2000 3 3 OLD MGEXP 2000 DGRO 2000 HGRO 2000 CRCHNG 2000 4 SCRCHNG 2000 MORTEXP 2000 STOR 30 DBH2 2000 5 HT2 2000 CR2 2000 EXPAN2 2000 SCR2 2000 RVARS 30 CHARACTER ANS1 1 CHARACTER DNAME 128 SNAME 128 ONAME 128 CHARACTER TITLE 20 TYPE 1 5 OGICAL HERE OGICAL 2 EVEN RAD IMPORT THE EXECUTE SUBROUTINE FOR THE ORGRUN DLL DLL IMPORT EXECUTE IMPORT THE READDATA SUBROUTINE FROM THE READINP DLL FOR READING ORGANON INP FILES DLL IMPORT READDATA LU10 10 LU20 20 DETERMINE THE NAME OF THE ORGANON CREATED INP FILE TO OPEN T 10 WRITE 1000 1000 FORMAT Enter tr file name 1 C
28. ERROR SWARNING TWARNING IERROR DGRO HGRO CRCHNG SCRCHNG MORTEXP NTREES2 DBH2 HT2 CR2 SCR2 EXPAN2 STOR ADD GROWTH AND CHANGE TO BEGINNING OF GROWTH CYCLE VALUES FOR THE NEXT CALL TO EXECUTE DO I 1 NTREES2 DBH1 I DBH2 I HT1 1 HT2 I CR1 I CR2 I SCR1 I SCR2 I EXPANI 1 EXPAN2 I ENDDO NTREES1 NTREES2 ENDDO SET PRUNING VARIABLES THE FOLLOWING PRUNING HAS A TARGET CROWN RATIO AFTER PRUNING OF 0 3 A MAXIMUM LIFT HEIGHT OF 32 A MINIMUM DBH OF 10 AND TARGETS JUST DOUGLAS FIR 35 anan ana QOO 1700 1750 1800 1850 OYO14 QO sN ES AD MAXLH 32 0 TSP 202 TCR O 3 MDBH 10 O DO I 1 NTR IF EXPAN ESL I LE A 0 0 CYCLE IF SPECI ES I IF DBHI I LT MAXTCR 1 0 MAXLH HT I X TCR IF MAXTCR GT X DIFF CR1 H GE 0 1 LE R1 IF DIFF IF SCRI SCRI I NE TSP CYCLI MDBH CYCLE MAXTCR I EN X I X HT1 T Q HT1 1 C te DO Eri IF IERROR FOR THE EN D GROWTH AND CHANGE DING VALUES ES2 N WOA G D OUTPUT RESU DBH2 1 TZE R2 I SCR2 I EXPAN2 I ES2 iTS FROM THE RUN OUTPUTS INFORMATION ABOUT WRITE L FORMAT WRIT lw O H ll
29. ING TH THI Gl T F E 1 SITE 2 EVE SION EDITION 1 PE FTY PE BAF VALU p VA RIABLI FS AN E T DA WA QO0000020 N P anann NTREES1 O I I TEMPORARY TREE NUMBERS ES I TDATAI 1 1 I TDATAI 1 3 TDATAR I 1 TDATAR 1 2 TDATAR 1 3 DATAR I 4 I P J Q Fi ZH H H Se H TH pott OmomuucutHH H ll L 1 N INITIALIZE SELECTED VARIABLES TO ZERO BEFORE RUNNING EXECUTE DLL CYCLG O SCR1 I MGEXP I Do Jess S BRCNT I J 0 ENDDO DO J 1 40 BRHT I J BRDIA I J JCORE I J 0 0 0 RVARS 1 i RVARS 2 SITE 2 RVARS 3 MSDI 1 4 5 Gl GI RVARS 4 MSDI 2 RVARS 5 MSDI 3 SET DEFAULT VALUES FOR SELECTED VARIABLES BEFORE RUNNING EXECUTE DLI IN THE FOLLOWING EXAMPLE THE STAND IS GROWN ONE CYCLE THINNED GROWN FOR TWO CYCLES THINNED AGAIN AND GROWN FOR AN ADDITIONAL CYCLE INDS 9 1 USE LIMIT ON MAXIMUM SDI CALL EXECUTE CYCLG VERSION NPTS NTREES1 ISTAGE IBHAGE TREENO PTNO PECIES USER INDS DBH1 HT1 CR1 SCR1 EXPAN1 MGEXP VARS ACALIB PN YSF BABT
30. MYFILE gt Y READ A128 ICHAR DNAME 1 1 EQ 17 OR L EQ 27 GOTO 99 N TRIM DNAME GT 124 L AME 1 LEN INP FILE SNAME EXIST HERE THEN LU10 NO extension i e N L F IF SN IN IF ix z Z E Al Q NE T M UI H C 26 Ca anan ana 1100 20 1200 1300 1400 1500 1600 40 Co No ES FORMAT 1100 DNAM h FILE DO ES Y Y L 65 GO TO 10 ITE 1200 RMAT 1X AD NDIF ONAME WR FO GO IT s ro 3 ipa N LE DO EN IN I 1 L IF ONAM WRITE h EN E I GO 1 ENDIF DDO ro 30 a data file name EN OUTPUT FIL Enter outp A128 ONAM EQ E 1300 14X 0 IN TRIM ONAM ET 1400 FORMAT 14X INVALID FILE p P NOT Li Eel THEN 1 E P E EQ ERROR R AND ONAM EXIST 1X A124 check DRIV h ut file name ENT a a R gt E I 1 Gl I 1 NE F F NAME R F ENT ER gt QUI E ONAME F EXIST
31. OR I 5 TERROR I 6 2 TWARNING I 1950 FORMAT I4 6 I1 11 ENDDO ELSE C C OUTPUTS TREES TO THE TREE LIST FILE C DO I 1 NTREES1 IF EXPAN1 I GT 0 000000001 THEN WRITE LU20 2000 CYCLG PTNO I I SPECIES I USER I 1 DBH1 I HT1 I CRI1 I EXPANI I MORTEXP I 2 DGRO I HGRO I 2000 FORMAT I4 13 14 I3 I8 F6 1 1 F6 1 F5 2 F8 2 F8 2 F8 2 2 F8 2 ENDIF ENDDO ENDIF 99 CLOSE LU10 CLOSE 1020 STOP END C CR KKK KK KKK KK KK KKK KK KK kk XXX KK KK KK kk kk KKK KK KK KK KK k k KK Kk k KKK k k Kk k kc k k KK KKK INTEGER 4 FUNCTION IYN IA C C Reads a single character returns 0 if not Y N or Returns lo wt MY AYE zm NU If returns value of IA C INCLUDE LUS INC C IMPLICIT NONE INTEGER 4 IA CHARACTER ANS 1 C READ A1 ANS IF SCAN yYy ANS 1 1 GT O THEN IYN 1 ELSEIF SCAN nNn ANS 1 1 GT 0 THEN IYN 2 ELSEIF ANS 1 1 EQ THEN IYN IA E iS E IYN 0 WRITE 1000 1000 FORMAT 14X Please enter only Y or N ENDIF RETURN END 37
32. RGANON For unpruned stands set SCRI to zero For the first pruning conducted in ORGANON set SCRI for each pruned tree to the CR before pruning For a subsequent pruning in ORGANON set SCRI for each newly pruned tree to either the CR before the subsequent pruning or to the previous SCR value whichever is larger INPUT variable EXPANI MGEXP 1 RVARS 1 RVARS 2 REAL 4 REAL 4 REAL 4 REAL 4 The plot point level expansion factor for the I sample tree at the start of the growth period i e the expansion factors should NOT be divided by the total number of plots points measured in the stand 1 lt I NTREESI maximum of 2000 INPUT variable The plot point level expansion factor for the 1 sample tree at the start of the growth period that was removed by cutting just prior to the start of the current growth period i e do not include trees cut at the start of previous growth periods 1 lt I lt NTREESI maximum of 2000 at the start of the growth period and 1 I lt NTREES2 at the end of the growth period Again the expansion factors should NOT be divided by the total number of plots points measured in the stand INPUT variable The value of SITE 1 Douglas fir site index Hann and Scriviani 1987 for the SWO version and Bruce 1981 for the NWO and
33. T 2000 3 2 BRHT 2000 40 BRDIA 2000 40 JCORE 2000 40 SERROR 35 3 TERROR 2000 6 SWARNING 9 TWARNING 2000 INTEGER 4 INDS 30 ERROR NTREES2 INTEGER 4 TSP REAL 4 SITE 1 SITE 2 MSDI 1 MSDI 2 MSDI 3 ACALIB 3 18 BAF 5 1 VALUE 5 TDATAR 2000 4 PGROWTH 2000 REAL 4 DBH1 2000 HT1 2000 CRI 2000 EXPANI 2000 SCR1 2000 1 PN 5 YSF 5 BABT BART 5 YST 5 PRLH 2000 3 2 PRDBH 2000 3 PRHT 2000 3 PRCR 2000 3 PREXP 2000 3 3 OLD MGEXP 2000 DGRO 2000 HGRO 2000 CRCHNG 2000 4 SCRCHNG 2000 MORTEXP 2000 STOR 30 DBH2 2000 5 HT2 2000 CR2 2000 EXPAN2 2000 SCR2 2000 RVARS 30 REAL 4 MAXLH TCR MDBH MAXTCR X DIFF CHARACTER ANS1 1 CHARACTER DNAME 128 SNAME 128 ONAME 128 CHARACTER TITLE 20 TYPE 1 5 OGICAL HERE OGICAL 2 EVEN RAD IMPORT THE EXECUTE SUBROUTINE FOR THE ORGRUN DLL DLL IMPORT EXECUTE IMPORT THE READDATA SUBROUTINE FROM THE READINP DLL FOR READING ORGANON INP FILES DLL IMPORT READDATA LU10 10 LU20 20 DETERMINE THE NAME OF THE ORGANON CREATED INP FILE TO OPEN 10 WRITE 1000 1000 FORMAT Enter tr file name NO extension i e 1 C MYFILE R
34. Total height for the I sample tree at the end of the growth lt I NTREES2 maximum of period 2000 INPUT variable Crown ratio for the at the end of the I sample tree growth period 1 lt I NTREES2 maximum of 2000 INPUT variable Shadow crown ratio for the sample tree at the end of the growth period 1 I NTREES2 maximum of 2000 See the description of SCR1 for more details INPUT variable The plot point level expansion factor for the I the expansion fac sample tree at the end of the growth period i e tors should NOT be divided by the to tal number of plots points measured in the stand lt I NTREES2 maximum of 2000 INPUT variable An array of 30 int ternal variables used by ORGANON which must not change over multiple calls of the ORGANON DLL Initialize to zero before the first call to the ORGANON DLL ORGANON will then calculate these values when CYCLG 0 The resulting values should not be modified by the DLL user in subsequent continued projections of the tree list OUTPUT variable SUBROUTINE GET ORGRUN EDITION EDITION EDITION REAL 4 Description of Variable Edition of the ORGRUN DLL OUTPUT variable 14 20 21 22 23 T Descriptions of the SERROR I Array
35. User s Manual for the DLL version of ORGANON 9 1 The ORGRUN DLL and ORGRUN LIB Microsoft compatible import files were created using the Lahey Fujitsu FORTRAN 95 compiler Two subroutines hav been exposed for usage by o EXECUTE and GET ORGRUN EDITION ther programs SUBROUTINE EXECUTE CYCLG VERSION NPTS NTREES1 STAGE BHAGE TREENO DIMENSIONS Th wh an OUTPUT th variabl an e i CYCLG VERSION PTNO SPECIES USER INDS DBH1 HT1 CR1 SCRI XPAN1 MGEXP RVARS ACALIB PN YSF BABT BART YST NPR PRAGE PRLH PRDBH PRHT PRCR PREXP BRCNT BRHT BRDIA JCORE SERROR TERROR SWARNING TWARNING IERROR DGRO HGRO CRCHNG SCRCHNG E A V TREENO 2 INDS 30 EXPANI1 20 PN 5 YS PRLH 2000 PREXP 200 BRDIA 200 TERROR 20 HGRO 2000 TIS Fr 00 PTNO 2 DBH1 2000 00 MGEXP 5 BART 5 3 PRDBH 0 3 BRCNT 2 0 40 JCORE 2000 40 SERROR 35 00 6 SWARNING 9 TWARNING CRCHNG 2 NTREES2 D EXPAN2 20 BH2 2000 00 STOR 1 MORTEXP NTREES2 DBH2 HT2 CR2 SCR2 EXPAN2 STOR A V 000 SPECIES 2 HT1 2000 CR1 2000 RVARS 30 YST 5 NPR 20 2000 3 PRHT 20 00 3 BRHT 2 0 0 USER 200 000 SCRI 2 ACALIB 3 18 0 PRAGE 20 0 3 PRCR 2 00 40 0 0 00 A V V A U A U A U A U V V ooo 2000
36. ariable 1 Th ven aged stand has been planted with genetically improved Douglas fir 0 Th ven aged stand was not planted with genetically improved Douglas fir INPUT variable INDS 15 INDS 16 DBHI I HT1 I CR1 I SCR1 I INTEGER 4 INTEGER 4 REAL 4 REAL 4 REAL 4 REAL 4 1 The Douglas fir in the stand have been infected with Swiss needle cast 0 The Douglas fir in the stand have not been infected with Swiss needle cast Only applicable to the NWO and SMC versions of ORGANON INPUT variable Currently not used set to O0 INPUT variable DBH for the I sample tree at the start of the growth period 1 lt I lt NTREESI maximum of 2000 INPUT variable Total height for the IU sample tree at the start of the growth period lt lt NTREESI maximum of 2000 INPUT variable Crown ratio for the I sample tree at the start of the growth period 1 lt lt NTREESI maximum of 2000 INPUT variable Shadow crown ratio for the It sample tree at the start of the growth period 1 I NTREES maximum of 2000 Shadow crown ratio is used for pruned trees and it is the crown ratio of the tree if it had not been pruned ORGANON will update shadow crown ratios Therefore it is strongly recommended that stands which had been pruned before the measurement of the input tree listing not be projected in O
37. cut INPUT variable INDS 8 INDS 9 INDS 10 INDS 11 INDS 12 INDS 13 INDS 14 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 1 Stand has been fertilized either at the start of this growth cycle s or in the past 0 Stand has never been fertilized INPUT variable 1 Use limit of maximum SDI 0 Do not use limit of maximum SDI INPUT variable 1 Wood quality variables are being computed 0 Wood quality variables are not being computed INPUT variable 1 Overstory trees were removed a the start of the current growth cycle 0 Overstory trees were no removed at the start of the curren growth cycle INPUT variable CT CT Ingrowth was added at the star of the current growth cycle 0 Ingrowth was not added at the star of the current growth cycle INPUT variable 1 Major conifer trees were cut a the start of the current growth cycle 0 Major conifer trees wer not cut at the start of the curren growth cycle For the southwest Oregon version of ORGANON major conifer species are Douglas fir white fir grand fir ponderosa pine sugar pine and incense cedar For the northwest Oregon and Stand Management Cooperative versions of ORGANON major conifer species are Douglas fir grand fir and western hemlock INPUT v
38. ee 1 lt lt NTREESI maximum of 2000 at the start of the growth period and 1 I NTREES2 at the end of the growth period INPUT variable 1 Use height DBH calibration factors for the projection 0 Do not use height DBH calibration factors for the projection INPUT variable 1 Use crown ratio calibration factors for the projection 0 Do not use crown ratio calibration factors for the projection INPUT variable 1 Use diameter growth rate calibration factors for the projection 0 Do not use diameter growth rate ratio calibration factors for the projection INPUT variable 1 Stand is even aged 0 Stand is uneven aged INPUT variable list during projection 1 Triple the sample tree list during projection if possible 0 Do not triple the sample tree Tripling will continue until a maximum of 2000 sample trees is achieved NTREES2 will be larger if tripling is selected and if it than NTREESI can be applied to the run because NTREES1 is small enough INPUT variable 1 Stand has been pruned either at the start of this growth cycle s or in the past 0 Stand has never been pruned INPUT variable 1 Stand has been partially cut either at the start of this growth cycle s or in the past 0 Stand has never been partially
39. er th tripling or ingrowth is INPUT OUTPUT variable Total the start REESI total n the stand run if used stand age at the s current growth cycle s will update this value d projections STAGE shoul tart of the ORGANON uring d be 0 for an uneven aged stand INPUT OUTPUT variable Breast height stand age at the start of the current growth cycle s ORGANON will update this value during projections BHAGE should be 0 for an uneven aged stand INPUT OUTPUT variable Tree number for the I sample tree 1 I NTREESI maximum of 2000 at the start of th e growth period and 1 I NTREES2 at the end of the growth period variable Point tree 2000 number for the I lt I NTREES at the start of th INPUT sample maximum of e growth period and I NTREES2 at the end of the growth period variable INPUT Species code for the Jen sample lt I NTREES tree maximum of 2000 at the start of the growth lt I lt NTREES2 at the period and 1 end of the growth period variable INPUT USER INDS 1 INDS 2 INDS 3 INDS 6 INDS 7 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 INTEGER 4 User code for the I sample tr
40. er the upper age recommended for the VERSION Number of cycles to be projected will make the resulting stand older than that recommended for the VERSION 18 Descriptions of the TWARNING I Array Description of the Error HT to DBH ratio is too large for the species 19 Examples of Using the ORGRUN DLL in LAHEY FORTRAN The following three examples demonstrate h subroutine in the ORGRUN DLL can be used to con management activities using the ORGRUN DLL OW duct the EXECUTE various These example runs read data from and all ready created ORGANON INP file which does not contain tree number data Therefor a brief description of each example temporary tree numbers are created for the examples of course data can be entered in other ways and real tree numbers can be used The following is 1 The stand is grown for one five year growth cycle the stand is fertilized with 200 pounds per acre of nitrogen the stand is grown for two five year growth cycles the stand is fertilized again with 200 pounds of nitrogen per acre and then the stand is grown for one mor five year growth cycle 2 The stand is grown for one five year growth cycle all trees with a DBH greater than 10 0 inches ar is grown for two five year growth cycles are removed and then the stand is grown for one more five year growth cycle removed the stand all hardwood
41. o fertilization has occurred As an example a stand was fertilized with 100 lbs of nitrogen 7 years before the stand was measured a second fertilization of 200 lbs of nitrogen was conducted at the start of the run and a third 0 C 1 Number of pounds of nitrogen fertilization of 300 lbs of nitrogen was conducted after two growth cycles PN 1 300 0 PN 2 200 0 PN 3 100 0 PN 4 O O PN 5 0 0 INPUT variable YSF I BABT BART I REAL 4 REAL 4 REAL 4 Number of years since start of the run that the I application of nitrogen fertilizer was applied 1 lt I lt 5 I i for the most recent application I 2 for the next most recent application etc The whole array should be set to 0 0 if no fertilization has occurred For fertilizations conducted before the stand was measured YSF I number of years from the I fertilization to when the stand was measured For fertilizations conducted in ORGANON YSF I 5 the value of CYCLG at the time of fertilization As an example a stand was fertilized 7 years before the stand was measured a second time at the start of the run and a third time after two growth cycles YSF 1 10 0 i e 5x2 YSF 2 0 0 i e 5x0 Eu CE 0 YSF 4 0 0 YSF 5 O INPUT variable Basal area per acre of the stand Just before the most recent removal
42. of trees BABT should be set to O O if no tree removal has occurred INPUT variable Basal area per acre cut at the eer removal of trees 1 lt I lt 5 I 1 for the most recent removal I 2 for the next most recent removal etc The whole array should be set to 0 if no tree removal has occurred As an example a stand had 50 0 ft removed 7 years before the stand was measured a second thinning removed 100 0 ft at the start of the run anda third thinned removed 150 0 ft after two growth cycles BART 1 150 0 BART 2 100 0 BART 3 50 0 BART 4 0 0 BART 5 0 0 INPUT variable YST I REAL 4 Number of years since the start of the run that the I removal of trees occurred 1 lt lt 5 I 1 for the most recent removal I 2 for the next most recent removal etc The whole array should be set to 0 0 if no thinning has occurred For thinnings conducted before the stand was measured YST I number of years from the I thinning to when the stand was measured For thinnings conducted in ORGANON YST I 5 the value of CYCLG at the time of thinning As an example a stand was thinned 7 years before the stand was measured a second time at the start of the run and a third time after two growth cycles 5x2 YST 2 0 0 YST I IO O i e i e 5x0 E on 0 YST 4 20 0 YST 5 0 INPUT variable NPR I INTEGER
43. or tree level error has occurred and the error must be corrected befor proceeding OUTPUT variable The 5 year diameter growth rate for the I sample tree 1 lt I lt NTREES2 maximum of 2000 OUTPUT variable The 5 year height growth rate for the I sample tree 1 lt I lt NTREES2 maximum of 2000 OUTPUT variable The 5 year change in crown ratio for the I sample 1 lt I lt NTREES2 maximum of 2000 OUTPUT variable The 5 year change in the shadow crown ratio for the I sample tree 1 I lt NTREES2 maximum of 2000 OUTPUT variable The plot point level expansion factor for 5 year mortality on the I sample tree 1 lt I lt NTREES1 at the start of the growth period and S I lt NTREES2 at the end of the growth period maximum of 2000 The expansion factors have NOT been divided by the total number of plots points measured in the stand OUTPUT variable Total number of sample trees measured in the stand at the end of the growth period NTREES2 cannot exceed 2000 NTREES2 would be larger than NTREES1 if tripling or ingrowth are used otherwise it is the same as NTREES1 INPUT OUTPUT variable DBH for the I sample tree at the end of the growth period 1 lt I lt NTREES2 maximum of 2000 INPUT variable 1 3 HT2 I CR2 1 SCR2 1 EXPAN2 I STOR I REAL 4 REAL 4 REAL 4 REAL 4 REAL 4
44. the SWO version and western hemlock in the NWO SMC and RAP versions A value of will result in the version specific default value being used INPUT variable Douglas fir genetic worth value for diameter growth rate Only applicable to even aged stands INPUT variable Douglas fir genetic worth value for height growth rate Only applicable to even aged stands INPUT variable Douglas fir foliage retention as a result of infection by Swiss needle cast Only applicable to the NWO and SMC versions of ORGANON INPUT variable For RAP ORGANON the starting number of red alder trees per acre i e planting density for the plantation Must be specified for RAP ORGANON only otherwise it is set to zero INPUT variable Currently unused set to 0 INPUT variable ACALIB I J PN REAL 4 REAL 4 Actual calibration values for the IU attribute when I 1 the height DBH equation I 2 the crown ratio equation and I 3 the diameter growth rate equation and the Jin Species group depending upon the version of ORGANON 1 lt J lt 18 Species groups are calculated in the DLL based upon version and species for the tree INPUT variable applied per acre at the application 1 lt I lt 5 I 1 for the most recent application I 2 for the next most recent application etc PN must be lt 400 The whole array should be set to 0 if n
Download Pdf Manuals
Related Search