• TABLE OF CONTENTS
HIDE
 Copyright
 Title Page
 Foreword
 Abstract
 Table of Contents
 List of Tables
 Introduction
 Technical supplement to the user's...
 Simulation card deck or card image...
 Components and operation of the...
 Nature and sequence of the technical...
 Reference






Group Title: Economics report 110
Title: A technical manual for the FARM Lab irrigation cost generator
CITATION PAGE IMAGE ZOOMABLE PAGE TEXT
Full Citation
STANDARD VIEW MARC VIEW
Permanent Link: http://ufdc.ufl.edu/UF00047866/00001
 Material Information
Title: A technical manual for the FARM Lab irrigation cost generator
Series Title: Economics report
Alternate Title: FARM Lab irrigation cost generator
Physical Description: v, 81 p. : ; 28 cm.
Language: English
Creator: d'Almada, Philip J., 1953-
Lynne, Gary D
Smajstrla, A. G ( Allen George )
Florida Agricultural and Resource Management Systems Laboratory
Publisher: Food and Resource Economics Dept., University of Florida
Place of Publication: Gainesville Fla
Publication Date: 1984
 Subjects
Subject: Irrigation farming -- Economic aspects -- Computer simulation -- Florida   ( lcsh )
Irrigation farming -- Cost of operation -- Computer simulation -- Florida   ( lcsh )
Genre: government publication (state, provincial, terriorial, dependent)   ( marcgt )
bibliography   ( marcgt )
non-fiction   ( marcgt )
 Notes
Bibliography: Includes bibliographical references.
Statement of Responsibility: Philip J. d'Almada, Gary D. Lynne, Allen G. Smajstrla.
General Note: Cover title.
General Note: "September 1984."
Funding: Florida Historical Agriculture and Rural Life
 Record Information
Bibliographic ID: UF00047866
Volume ID: VID00001
Source Institution: Marston Science Library, George A. Smathers Libraries, University of Florida
Holding Location: Florida Agricultural Experiment Station, Florida Cooperative Extension Service, Florida Department of Agriculture and Consumer Services, and the Engineering and Industrial Experiment Station; Institute for Food and Agricultural Services (IFAS), University of Florida
Rights Management: All rights reserved, Board of Trustees of the University of Florida
Resource Identifier: aleph - 002199028
oclc - 28489249
notis - ALD8908

Table of Contents
    Copyright
        Copyright
    Title Page
        Title
    Foreword
        Page i
    Abstract
        Page ii
    Table of Contents
        Page iii
        Page iv
    List of Tables
        Page v
    Introduction
        Page 1
    Technical supplement to the user's manual
        Page 2
        Page 3
        Page 4
        Page 5
        Page 6
        Page 7
    Simulation card deck or card image file
        Page 8
        Page 9
        Page 10
        Page 11
        Page 12
        Page 13
        Page 14
    Components and operation of the Fortram program
        Page 15
        Page 16
        Page 17
        Page 18
        Page 19
        Page 20
        Page 21
        Page 22
        Page 23
        Page 24
        Page 25
        Page 26
        Page 27
        Page 28
        Page 29
        Page 30
        Page 31
        Page 32
        Page 33
        Page 34
        Page 35
        Page 36
        Page 37
        Page 38
        Page 39
        Page 40
        Page 41
        Page 42
        Page 43
        Page 44
        Page 45
        Page 46
        Page 47
        Page 48
        Page 49
        Page 50
        Page 51
        Page 52
        Page 53
        Page 54
        Page 55
        Page 56
        Page 57
    Nature and sequence of the technical computations
        Page 58
        Page 59
        Page 60
        Page 61
        Page 62
        Page 63
        Page 64
        Page 65
        Page 66
        Page 67
        Page 68
        Page 69
        Page 70
        Page 71
        Page 72
        Page 73
        Page 74
        Page 75
        Page 76
        Page 77
        Page 78
        Page 79
        Page 80
    Reference
        Page 81
Full Text





HISTORIC NOTE


The publications in this collection do
not reflect current scientific knowledge
or recommendations. These texts
represent the historic publishing
record of the Institute for Food and
Agricultural Sciences and should be
used only to trace the historic work of
the Institute and its staff. Current IFAS
research may be found on the
Electronic Data Information Source
(EDIS)

site maintained by the Florida
Cooperative Extension Service.






Copyright 2005, Board of Trustees, University
of Florida





Uf I IIU


F(3Ltht.7L


Economics Report


A Technical Manual for the FARM
Lab Irrigation Cost Generator


source Economics Department
bxperirent Stations
ood and Agricultural Sciences
Florida, Gainesville 32611


110


Philip J. d'Almada

Gary D. Lynne.

Allen G. Smajstrla


!IllIIIIIIIIII- I lLI I l I I I I l l IIu lil















FOREWORD


The "Irrigation Cost Generator" (ICG) is offered for use by the

Florida Agricultural and Resource Management (FARM) Laboratory. The

FARM Laboratory is an integral component of the Food and Resource Eco-

nomics Department. Both the Agricultural Engineering and Food and

Resource Economics Departments of the.Institute of Food and Agricultural

Sciences (IFAS) at the University of Florida cooperated in the develop-

ment of, the ICG.

This cost generator was acquired from Oklahoma State University in

1979, and subsequently modified to include Florida conditions. As a

result, parts of this Technical Manual draw heavily on a similar report

by Kletke, Harris, and Mapp (1978) at Oklahoma State.

A User's Manual (d'Almada, et al., 1982) is also available. The

User's Manual describes the input and output formats for the ICG. This

Technical Manual is designed for use by those concerned with the techni-

cal calculations, actual internal process of the FORTRAN program, and

with how to create a card deck or card image file- It is assumed: the-

reader is familiar with the User's Manual.

Copies of the User's and Technical Manual, and the Input/Machinery

Complement forms, are available from the FARM Laboratory, as follows:


FARM Laboratory
Food and Resource Lccaomics
McCarty 1157
University of Florida
Gainesvillei,Florida. 32611
(904-392-0518).















ABSTRACT


The technical manual is designed for the analytic researcher who

desires an understanding of the computations involved in simulating

irrigation costs. Certain technical aspects of the input form, machin-

ery complement and output formats are presented with reference to the

companion User's Manual. The operational and computational sequences

constitute the body of the manual. These include not only discussions

on using the simulator, but a listing of the. computer program and a

detailed layout of the arithmetic steps.


Key words: Irrigation costs, irrigation system costs, water supply
costs.









TABLE OF CONTENTS


Page
i

ii


LIST OF TABLES . . ... .......... ... .

INTRODUCTION . . . . . . .

TECHNICAL SUPPLEMENT TO THE USER'S MANUAL . . .


Input Form .. . . .
Machinery Complement . . .
Column Pipe and Shaft Data (CPS)
Gearhead Costs (GEAR) ....
Stage Costs (STGE) . .
Control Head (CONT) ....
Pipe Costs and Parameters (PIPE) .
Well Development Data (DEVL) .
Engine Fixed Costs Data (ENGI) .
Distribution Systems Data (VC4)
Costs of Center-Pivot Distribution


eeeoeeo
oeo000e0
00e000e0
OeooocOo
. . *



00000000




*0 5 0 *. *- *
SystemCP
. .emo .
. e. .


Costs of Traveling Gun Distribution Systems (TGDS)
Output Formats . .... .


SIMULATION CARD DECK OR CARD IMAGE FILE ... ...


Single Simulation . . .
Initial Data Cards . .
The BASE Agendum . .
The MAXO Agendum . ..
The FILE Agendum . .
The EXEC Agendum . .
The END* Agendum . .
Multiple Simulations ... ..


* S 0 5 5 5 S S S
. 0 5 *




. S S S S *

* S S S S 5 0
e00oeoo0e





e e e e e e ec o 0


COMPONENTS AND OPERATION OF THE FORTRAM PROGRAM .


Accessory Data Files .. . . .
Order, Control and Characteristics of Subroutines .
Main Program . .... . .
Subroutine INIT . .... . .
Subroutine FIRST . .. . .
Subroutine HRFIND . . . .
Subroutine PUMP . . .
Subroutine IRCOST . . .
Subroutine OUTPUT ... . . .
Subroutine BASEOT . ... .


. 15
. 20
. 26
.* 27
. 32
. 35
S. 38
. 42
. 50
* I 55


FOREWORD . . .. . .

ABSTRACT . . . ... .


. S- 8


. 0 0


000000000

~









Page

NATURE AND SEQUENCE OF THE TECHNICAL COMPUTATIONS . .... 58

Friction Loss Per 1000 feet .. ..... 58
Larger Pipe Selection . . . ...... .. 59
Cumulative Friction/Pressure Loss . . . 60
Total Dynamic Head . . . .... 61
Water Horsepower ...... .. e. .. . 61
Water Volume Applied .......... .. 62
System Use Time . . .... . .. 62
Power Unit: Sizing, Derating . . . 63
Derived Water Horsepower . .. . . 64
System Capacity Pump Production . . . 64
Stages: Count, Sizing, Cost ... . . .. 65
Column Pipe: Length, Cost .. ... .. .. . 66
Strainer, Suction Pipe: Cost . . . 67
Gearhead: Selection, Cost . . .... 767
Pumpbase: Cost . . . * 67
Pump Assembly: Investment ........... . 67
Power Unit: Selection, Investment . .. 68
Power Unit: Variable Costs ......... *. 68
Pump: Variable Cost . . . . .. 70
Main Line Valves: Count . . .... 70
Main Line Pipe: Cost ... . . ...... 7 70
Main Line.Valves: Cost .......... . 70
Central Head: Cost ... . . 71
Main Line Assembly: Investment .......... ... 71
Hose/Laterals: Investment . . . 7
Distribution System: Variable Costs . ..... .73
Distribution System: Fixed Costs . . . 73
Distribution System: Investment . ..... 7 75
Well: Investment . . . ..75
Well: Fixed Costs .... .. ...... . . 76
Pump: Fixed Costs . .. .. . . 76
Power Unit: Fixed Costs . . . 77
Average and Total Fixed, Variable and Total Costs . 78
Investment Costs . . ........... 80

REFERENCES . . . . 81










LIST OF TABLES


Table


Page


1 Deck6 sample execution input data for use at the
University of Florida . .. . .

2 Traveling gun simulation data stream . .

3 Deckl for loading data to a tape file identified
as INA ESET . . . . .

4 Deck2 for loading data to a tape file identified
as ICOMPONE . . . . .

5 Deck3 for loading data to a tape file identified
as IDFLT.DATA4 . . . . .

6 Deck3 for loading data to a tape file identified
as DATA5 . . . . .

7' Deck3 for loading data to a tape file identified
as DATA6 ... ... . . ..

8 Main Control Program for the ICC . . .

9 INIT subroutine to main control program . .

0 FRIC subroutine to FIRST subroutine of ICG .

1 FIRST subroutine to main control program .

2 HRFND subroutine to main control program ...

3 PUMP subroutine to main control program . .

4 IRCOST subroutine to main control program .. ...

5 OUTPUT subroutine to main control.program ...

6 SEASON subroutine to OUTPUT.subroutine ... ..

7 BASEOT subroutine to main control program .


23.

26

28

32

34

37

39

45

50

53,

55


* .


* .


. .









A Technical Manual for the
FARM Lab Irrigation Cost Generator

P.J. d'Almada, G.D. Lynne, and A.G. SmajEtrla


INTRODUCTION


The Irrigation Cost Generator (ICG) is a FORTRAN computer program

developed with a MAIN control program and several subroutines. The

overall purpose of this Technical Manual is to familiarize the reader

with the structure, content, and operation of this program. More speci-

fically, this manual addresses four areas, namely: 1) an assessment of

the more technical aspects of the input form, arrays of the machinery

complement, and output formats, in addition to. those in the User's

Manual; 2) a description of the card deck or card image file that allows

the user to interact with the ICG--this card deck includes data col--

lected from the input form1 as discussed in the User's Manual; 3) the

components of the ICG, including a discussion. of the order in which the

various subroutines are "called"' by MAIN, and major features of each

subroutine; and 4) a description and listing of the engineering and

economic functions, equations, relations, and assumptions embodied in

the ICG. This manual documents the entire FORTRAN program as originally




*PHILIP J. D'ALMADA is a graduate student, GARY D. LYNNE is Asso-
ciate Professor in Food and Resource Economics, ALLEN G. SMAJSTRLA is
Associate Professor in Agricultural Engineering, all in the Institute of
Food and Agricultural Sciences, University of Florida, Gainesville,
Florida.
1The ICG accesses the machinery complement default data and the
input default data for the appropriate system in the process of gener-
ating an output. The complement can be (temporarily) modified as
needed, and the input supplied by the user (temporarily) updates the
input default.data.









developed at Oklahoma State University, but subsequently modified by

d'Almada, Lynne, and Smajstrla at the University of Florida. The ICG

operates for two Florida systems, the center-pivot (low and high pres-

sure) and the traveling gun (cable- and hose-tow).


TECHNICAL SUPPLEMENT TO THE USER'S MANUAL


The User's Manual was written with a minimum of technical detail to

provide users with a basic understanding of how the ICG works. This

section discusses how the entries from the input form are merged with

data in the arrays of the machinery complement.

The term "Line", as used in this section, refers to corresponding

entries on the input form. The reader is advised to be familiar with

the User's Manual, or to obtain a copy to reference while reviewing this

section.


Input Form


Copies of the two input forms are presented in Appendix A of the

User's Manual. The first item (I) on the input form identifies the

input default data set applicable to the irrigation system. The user

should obtain the input form appropriate for his irrigation system. The

second major item (II) on the input form is identification of the irri-

gation cost simulation. Two lines are allowed for identification, with

each line being 40 characters in length, including blank spaces. It is

possible to have six different input forms, with input default data

sets, for each of six irrigation systems.









Machinery Complement


The following descriptions pertain to the respective arrays of the

Machinery Complement illustrated on pages 6 to 8 of the User's Manual.

Again, "Line" refers to the input form (Appendix A, User's Manual).


Column Pipe and Shaft Data (CPS)


The entry on Line 10 of the input form must be between '1' and

'10'. The current structure of the ICG builds the column pipe in 20-

foot sections. The depth setting of the column pipe entered on Line 9,

is adjusted automatically if it does not exceed the pumping depth of

water on Line 7 by 20 feet. The ICG automatically adds a 10- or 20-foot

section of column pipe, if the depth setting is not evenly divisible by

20.

Rows 1 and 11, 2 and 12, etc., of the CPS array are pairwise iden-

tical except that.rows to 10 describe 20-foot sections of column pipe

and rows 11 to 20 describe 10-foot sections. When a 10-foot section of

column pipe is needed, the ICG adds 10 to the row of the CPS array

selected by the user.

The expected amount of friction loss from the shaft is a con-

stant. At the current time, no friction head is computed for the well.

Additional head requirements to overcome friction losses are typically

small for properly sized columns. Friction head losses are included

later so that friction loss can be more accurately determined.









Gearhead Costs (GEAR)


The ICG selects the gearhead to be used on the basis of brake

horsepower (bhp), which is neither derated for altitude and temperature

(Lines 16 and 17, respectively), nor prorated for use of a heat

exchanger rather than a radiator and fan (Line 18).

This bhp is computed from water horsepower (whp), a 75 percent pump

efficiency, and a drive efficiency controlled by the user on Line 20.

The who is computed to: (1) overcome the specified pumping depth of

water (Line 7), (2) provide the desired pumping rate (Line 4), (3)

overcome friction losses in the operating distribution pipe lines, and

(4) maintain the specified irrigation system operating pressure (Line

5); or equivalently, accommodate the computed total dynamic head (tdh),

and the desired pumping rate.


Stage Costs (STGE)


The stage costs selected are based on the pumping rate (Line 4) and

the size of the pumpbase (or column pipe) (through Line 10). Currently,

shaft sizes are irrelevant, but the ICG can accommodate different shaft

sizes and stage costs for the same pumpbase size and pumping rate.

The ICG will select the proper number of stages, or check the

number of stages set by the user on Line 11. This is accomplished by 1)

accommodating column pipe diameter and pumping rate and 2) is based on

this computed tdh and per stage lift within the given pumping rate

range.








5
Control Head (CONT)


The user has the option to select any of the control head units

available through Lines 71 to 74.


Pipe Costs and Parameters (PIPE)


A value of 5, in column 2, is for ICG usage and stems from the

original program. Scobey's friction loss constant is given.

The user can select the pipe type and size using Lines 44 and 49

(Lines 54 and 59 are not currently used, see Appendix A, User's

Manual). If the user enters '0' on Lines 45 and/or 50 (Lines 55 and 60

are not currently used), the ICG will increase the pipe size if it

calculates the pipe size to be too small to realistically handle the

required amount of water pumped. If a '1' remains on Line 45 and/or 50,

the ICG will use the specified pipe even though the friction loss may be

excessive. The ICG will use Lines 44 and 45 for both Sections One and

Three of The Distribution System (for traveling gun). The increase in

pipe size also depends on the availability, in the PIPE array, of the

particular pipe type being used.


Well-development Data (DEVL)


From Line 68, the user can typically case the well to a shallower

depth than the well depth (Line 6).


Engine Fixed Costs Data (ENGI)


The continuous brake horsepower is the rating typically used to

identify engine size. The internal combustion engines (types.1, 2, 3 on







6

Line 14) are each equipped with a fan and radiator and accessories such

as an alternator and an air cleaner. (The electric motor also carries

an alternator.)

If Line 15 is not used, the ICG will select the appropriate row

from the array, on the basis of the bhp used in selecting a gearhead

(see GEAR above). The bhp, however, is first derated for altitude and

temperature specifications (Lines 16, 17, respectively) and prorated if

a heat exchanger (Line 18) is used instead of a radiator and fan.

All entries for internal combustion engines (column 4, 5, 8, 9) of

the ENGI array should be carefully checked if the user desires engine

types 1, 2 or 3 on Line 14. There may be commercial differences in

availability of engine sizes and/or costs, among the automotive, light

industrial and intermediate industrial engine types.


Distribution Systems Data (VC4)


The entry made on Item I (top left of the input form) initially

defines the irrigation system, and the ICG uses this entry to select the

appropriate column. The appropriate row is selected whenever necessary.


Costs of Center-Pivot Distribution Systems (CPDS)


Entries in this array are the costs of distribution systems proper

(excluding main line) for a self-propelled center-pivot system. The

cost of the pivot is included.







7
Costs of Traveling Gun Distribution Systems (TGDS)


These values are the costs of the distribution system excluding

main line and flexible hose. The ICG selects the appropriate row based

on the entry for Item I.


Output Formats


To control for excesses or incompatibilities which a user could

inadvertently request, some user entries have been discontinued on the

input form. Instead, the ICG has been developed to "make entries"

internally, based on other default and/or new values submitted. In

allowing- the user some- flexibility with, and control of the ICG, some

inconsistencies could still develop. Warnings and/or messages would be

issued on the first page of output and the simulation would either abort

or continue, as appropriate.

The ICG handles, the irrigation system in four components: the

Well, the Pump, the Motor or Engine and the Distribution (System), as

shown in the third part of the output. The drilling and casing opera-

tions are associated with the "Well". The "Pump" includes the stage

assembly, the column and suction pipes and the strainer, the gearhead,

and the pumpbase. There is either an internal combustion LP or diesel

"Engine" of the automotive, light or intermediate industrial type, or,

an electric "Motor". The "Distribution" (System) includes the control

head (flow meter, gate valve, Y-strainer and/or check valve) and the

distribution system (main lines(s), any valves, hose, and the distribu-

tion system proper).

Total Costs are the sum of Subtotals of Variable and Fixed Costs.









SIMULATION CARD DECK OR CARD IMAGE FILE


This section serves three purposes, the first two of which are

simultaneous functions. These purposes are:

(1) the means of making the ICG operational,

(2) how user-supplied changes and additions are submitted to the

ICG, and

(3) the procedure for multiple simulations by the ICG.

The card deck or image file by which these purposes are met is called

Deck 6, and appears in Table 1.

Referring to'lines 27 to 34 of Table 1, the basic requirements are

three initial data cards followed by five 'agendum' or keyword cards

(BASE, MAXO, FILE, EXEC, END*). To facilitate encoding, the first four

agenda labels are printed on the input forms (see User's Manual, Appen-

dix A), along with the termination terms '9999' and 'END*' for the BASE

and FILE agenda, respectively. The MAXO and EXEC agenda require no

termination terms. Associated with the FILE agendum are twelve sub-

agenda identifying the twelve arrays of the machinery complement (see

pp. 6-10, User's Manual). Whereas the subagenda labels are printed on

the machinery complement, their termination terms (9999's) are given,

summarily, on the input forms.

Table 1 also shows the Job Control Language (JCL) cards needed at

the North East Regional Data Center (NERDC), U. of Florida. These give

access to the disc and tape files containing the main program (line 3)

and the accessory (input and machinery complement) default data (lines

35-39).













Table 1. Deck6 sample execution input data2 for use at the
TUniversity of Florida.





0000 //SDECK6
0001 //* REVISED MODULE EXECUTION, REVISED DEFAULT DAT. USE3
0002.//* ICG PfOGRAM EXECUTION DECK
0003 // EXEC FORTGELIBRARY='UF.A0011267.IRIG.LOADMOD3' PROGRAM=DDKIRG
0004 //GO.FTSF0O01 DD
0005 4
0006 CENTRE-PIVOT SYSTEM: HIGH PRESS.--75 PSI
0007 DEFAULT DATA DEC. it 1981.
0008 BASE
0009 9999
0010 MAXO
0011 EXEC
0012 99
0013 CENTRE-PIVOT SYSTEM: LOW PRESS.--40 PSI
0014 DEFAULT'DATA DEC. 1, 1991.
0015 BASE
0016 5 40.0
0017 9999
0018 MAXO
0019 EXEC
0.020 6
0021 TRAVELLING GUN SYSTEM: CABLE-TOW
0022 DEFAULT DATA DEC. I, 1981.
0023 BASE
0024 9999
0025 MAXO
0026 EXEC
0027 5
0028 TRAVELLING GUN SYSTEM: HOSE-TOW
0029 DEFAULT DATA DEC. 1, 1981.
0030 BASE
-0031 9999
0032 MAXO
0033 EXEC
0034 ENDS
0035 //FT13F001 DD DSN-UF.AOOI1267.IDFLT..DAtA4,DISP=OLD
0036 //FT14F001 DD DSNHUF.A0011267.IDFLT.DATASDISP=OLD
0037 //FT1SF001 Db DSN=UF.A0011267.IDFLT.DATA6,DISP=OLD
0038 //FT20F001 DD DSNaUF.A0011267.INAMESETPDISP=OLD
0039 //FT21F001 DO 3SNUF.A001126,.ICOMPONEDISP=0LD
0040 /*


2This table shows (i) multiple (two) simulations of
one type of irrigation system, (ii) stream of simulations
of different. iigations systems, (iii) how the execution
program accesses files of default data, (iv) simulations
set up for "max-imum output" of default data for four irri-
gation systems.









Discussions on the data cards needed for simulation purposes now

follow.


Single Simulation


Initial Data Cards


The first three data cards (e.g., lines 27-29, Table 1) for each

simulation must be included. The first card indicates which input

default data set (input form, Item I) and which machinery complement

will be used. Accordingly, the CG accesses these from the files. The

second and third cards allow the user to enter the 40-character identi-

fication lines, as from the user input form (Item II), which will appear

at the top of each output page. If no identification is desired, these

two cards would be blank (lines 22 and 23, Table 2).

The format and organization of data cards is given by:

Card Columns
First Card Irrigation System 6-8 right-justified
to be used:
4 = center-pivot,
5 = tr. gun: hose-tow,
6 = tr. gun: cab.-tow.
Irrigation complement to 9-11 right-justified
be used. (Currently,
only one is available.
No entry is required.)

Second Card User identification 1-40
1st line.

Third Card User identification 1-40
2nd line.








Table 2. Travellin gun simulation data stream
Table 2. Travelling gun simulation data stream


CABLE-TOW TRAVELLING GUN SYSTEM
SAMPLE SIMULATION
BASE
9999
FILE
CPS
10 2 12.00 3 3.25 4 2.00
10 9 89.00
20 2 12.00 3 3.25 4 2.00
20 9 89.00
9999
GEAR
1 4 1750.00 5 1800.00 6 2040.00
9999-
TGDS
2 4 9000.00
9999
END*
MAXO
EXEC


6 935.00 8 150.00

6 600.00 8 150.00


0000
0001
0002
0003
0004
0005
0005
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035


3This table shows (i) changes derived in three arrays of
the machinery complement, (ii) printing of machinery complement
to include said changes, (iii) second simulation using changes
in first simulation except for a second change to one entry in
GEAR array, and a return to the original values in TGDS array.


BASE
9999
FILE
GEAR
2 5 1975.00
9999
TGDS
2 4 7000.00
9999
END*
EXEC
END*









The BASE Agendum


The first agendum is always the BASE agendum. It is used to input

any changes to the irrigation system input default values as specified

by the user on the input form. The corresponding Line numbers must be

included (lines 15 to 17, Table 1).

The format and organization of data cards is given by:

Card Columns

First Card 'BASE' 1-4

Second and each Line number found in 1-4 right-justified
additional parentheses on input
data card form, and
required user-supplied value for 5-14 decimal punched
the line specified
above.

Last Card '9999' 1-4

Only the first and last cards would be used if no changes are

submitted by the user (e.g., lines 8 to 9, Table 1).


The MAXO Agendum


The MAXO agendum is required for maximum output if the user wishes

to have a copy of the machinery complement printed out following the

output of the current simulation. This agendum requires only one card

and may precede or follow the FILE agendum (see line 10, Table 1). Any

changes to the complement, using the FILE aJeagdu-.w.ill be included if

MAXO is required (e.g., line 19, Table 2).

The format and organization of data cards is given by:

Card Columns

Only Card 'MAXO' 1-4









The FILE Agendum


Any changes and/or additions to the arrays of the machinery comple-

ment are input using the FILE agendum and the appropriate sub-agenda.

Alterations in each array are made by specifying the appropriate row and

column for the new value. The FILE agendum may precede or follow the

MAXO agendum (see Table 2).

The format and organization of data cards is given by:

Card Columns

First Card 'FILE' 1-4

First array Any of the following: 1-4 left-justified
Card 'CPS', 'GEAR', 'PUMP',
'STGE', 'CONT', 'PIPE',
'DEVL', 'ENGI', 'MULT',
'VC4', 'CPDS', 'TGDS'.

Second and Row number of change. 1-2 right-justified
each additional Column number of change. 3-4 right-justified
array data card. New value. 5-14 decimal punched.
required

Last array Card '9999' 1-4

The three types of array cards described above, must be used for each
array which will be altered (lines 6 to 11, 12 to 14, or 15 to 17, Table
2).

Last Card 'END*' 1-4

If, for the machinery complement, no changes nor additions are

submitted by the user, then no FILE agendum cards are needed (see Table

1).





4For the same row, 4 additional column changes can be made on this
card. The additional "column numbers of change" are entered, right-
justified, in card columns 15-16, 27-28, 39-40, 51-52. The
corresponding "New values" are entered, decimal punched, in card columns
17-26, 29-38, 41-50, 53-62 (lines 7, 9, 13, Table 2).









The EXEC Agendum


Having accessed the machinery complement data and the irrigation

system default values, the ICG is instructed to process these data with

any user-supplied information, and to print the solution, with the EXEC

agendum. Only one card is necessary. It is located as the last data

card for the sim',ltion, immediately preceding the END* agendum (lines

11, 19, 26 or 33, Table 1).

The format and organization of data cards is given by:

Card Columns

Only Card 'EXEC' 1-4


The END* Agendum


The END* agendum (line 34, Table 1) causes the ICG to terminate

execution normally and must appear after the EXEC agendum in the data.

(It is also used to terminate the FILE agendum as discussed above--lines

18 or 33, Table 2.)

The format and organization of data cards is given by:

Card Columns

Only Card 'END*' 1-4


Multiple Simulations


Multiple simulations can be obtained by placing the simulation data

decks in succession, where the first card of the succeeding deck indi-

cating the input default data set (and machinery complement) to be used,

would immediately follow the 'EXEC' card of the preceding deck (lines

20, 27, Table 1). However, one END* agendum card, terminating the






15

simulations, would be included only after the last 'EXEC' card (line 34,

Table 1).

Users wishing to make several simulations using the preceding

(machinery complement and) input default data set can achieve this by

placing '99' in columns 7 and 8 of the first initial data card of each

succeeding simulation data deck (line 12, Table 1). No other data need

be included on the card. The '99' entry causes the ICG to skip the

initialization of the machinery complement and the input default data

set. The complement and input data may be modified independently for

each simulation as desired (Table 2 and lines 15 to 17, Table 1, respec-

tively). It must be remembered, however, that each simulation begins

with the data as set up for the preceding run, and any changes made are

done to that preceding data set and not to the default data set (Table

2).


COMPONENTS AND OPERATION OF THE FORTRAN PROGRAM


The ICG was written in FORTRAN IV and is quite large, encompassing

about 2,000 lines of code. The accessory tape files of the program are

discussed first. The disc file, with the ICG program itself, is dis-

cussed in the second section.


Accessory Data Files


The major components of the Irrigation Cost Generator include an

Irrigation Name Set (INAMESET) called Deckl (Table 3), a default Machin-

ery Complement Data Base (ICOMPONE) called Deck2 (Table 4), input

default data for the center-pivot and two traveling gun irrigation

systems, (IDFLT.DATA4, IDFLT.DATA5, IDFLT.DATA6) each called Deck3.







16


(Tables 5-7), and the main cost program (IRIG.LOADMOD3)-Deck4 (Tables

8-17). These components are stored on tape and disc files. The term

"lateral" is synonymous with "hose" as used in traveling gun systems.

INAHESET contains five arrays as follows (Table 3):

NAME: names of the irrigation systems available center-pivot,
hose-tow and cable-tow traveling guns;

NN:- power unit types based on fuel used LPG, diesel, electric;

NPIPE: distribution pipe materials aluminum, PVC;

distribution hose types lay-flat, PVC hard;

EGG: descriptions of the engine or motor automotive, light and
intermediate industrials, electric;

ZTIT: descriptions of the distribution pipe main and alternate
main line above/below ground, lateral and alternate lateral,
'this section not used' (this description is used, for example,
when there is no alternate main line with the traveling gun
system (see User's Manual, Appendix A, Line 52, Traveling Gun
Input Form and Appendix B for the description of this entry).



Table 3. Deckl for loading data to a tape file identified as INAMESET


/O0eCCK1
/'*IRRl ATIArON NAME GS.T rNSALLArIO PROGRAM
/1 EXEC FORTGCLE
//FORT.SYSIN 00 NMSTOC30
OIMENSION NAMC(6.4) .N(4.t) .NPIPt(5.2). EGGL4,6 .ZTX (7. NMST00J5
READ(5.23C) ( (NAMEtJ K)*K.o..4) .JL.6) -NMSTO 0O
230 FORMAT(444) NSTr0045
READ(5S240)((NN(JtK).K e..*Z)*JL L4) NMST0050
240 FORMAT 2 A4) 4MST0 55
REAO(5,Z40)((NPIPS(JKJK=1) .J=l 5) NMST0060
REAO(5,:60) ((EGG(JK) *K=l)* J=1.) NMST0065
REAO(S.2H0)((ZTIT( IJ) J=l ) .1=1.7 ) flMSTr070
ZU0 F ORM4AT(SA4) NMST~075
Zb0 FOR.AT(6A4.) NMST030
WRITE(20)NAMENN,;4PIPE. FrG, n TI NMSTC085
STGP NMST0090
END NMSTOC95
//GO.SYSI 00 NMST0100


CrNTER-P tVOT
TRn GiUN:HUSE-T3l
TR. GUN:CAS.-TOW
LPG
DIESEL
ELECTRIC
ALiM IMUM
LAY-FLAT
PVC MARO
PVC
AUTOMOTIVE
LIGHT INDUSTRIAL
INTERMEDIATE INDUSTRIAL
ELECTRIC
MAIN LINE ABOVE GROUNO
MAI LINE BELOV GROUND
LATERAL
ALTERNATE LATERAL LINE
ALt?.MATrE MAIN LINE BEL0W GROUNO
ALTERNATE MAIN LINE ASOVE GRUUNO
THIS SECTION NOT USED
//FT20F001 00 DSN-UF.00011259.LNAMeSET UNIrTa=sSDA*OrSP(tNE4 CATLG)
If SPACEF-.T KtliVLj CLfL1& J%-U.LRaSICE laEC =4gt9K&LS=l=9 352)







17

ICOMPONE (Table 4) contains twelve arrays of costs and constants.

PIPE (printed out as PIPE) pertains to the distribution pipe, GRHD (as

GEAR) to the gearhead, PUMPBS (as PUMP) to the pumpbase, BOWLS (as STGE)

to the stages, CPS (as CPS) to the column pipe and shaft, ENGIT (as

ENGI) to the engine fixed costs, XMULT (as MULT) to the engine variable

costs, VC4 (as VC4) to variable costs on the distribution system, VV (as

CPDS) to the costs of the center-pivot distribution systems, CONT (as

CONT) to the control head, DEVLP (as DEVL) to well-development, and TGDS

(as TGDS) to the costs of the traveling gun distribution systems.


Table 4. Deck2 for loading data to a tape file identified as ICOMPONE





//'OEC K2
//*IRRIGAT ION COMPLEMENT INSTALLATION PROGRAM
//*MULTIPLE DEFAULT BASE DATA COMPLEMENtTS CAN BE INSTALLED BY US IN THIS
//W PROGRAM TO STORE THE INFORMATION. THE FIL. NAME SHOULD SE CHANGED.
// IN THE EXECUTIQON PROGRAM THE NUMBER OF rHE FILE. ItE. FTXXF001 SHCULO aE
//* SET UP SO THAT XX=20 PLUS THC FILE NU4MER(. TO 10). THE FCL FOR EACH
//* DEFAULT SYSTEM ADDED SHOULD BD ADOEU TO THE EXECUTION DECK.
//* THE NUMBER BETWEEN I AND 10 CAN THEN 3E INSERTED ON THE IST DATA CARD IN
//* CUL 11. CNE SET or DEFAULT BASE DATA IS INCLUDEDe
// EXEC FORTGCLE
//FCRT SYSIN 3n CUqP0030O
ODMENSr N PIPE (506). iGHD(11).PUIMPeS(C )0SOWLS(5,4).CPS(20.o10) CCMP0035
1ENGIT(l15.2),XMULT(4.4),VC4(4.*6)VV(S).CONT(10.7)*DEVLP(8aS) COMP0040
STGDC(2 .5)
R AO(S5.11)((PIPE(K.J).J=1.6) .Kil.5) COMPCo45
REAoU(5 11Ge)RMD COMP 50
REAO(5s116) PUMPS C OPIDO CS 1
116 FORMAT (10F8.) COMPO O5
REAO(5 .125)(( (C8C S( IJ K.JJ=1l.4),K=1 COMPOO60
125 FORHAT (F10.) COMP0065
READ(SotIt7)(CPS(K.J),T.*J 10),Ki0K, ) CMP0070
117 FCR'4AT(12*F3.OPF41,F5.ZeF4*0,F7o*F5.2F2F6*2*F5*2) COMP0075
REAO(5.118)((ENGIZT-JIK)*Kal .l2)*J=1.15) COMP00OO
lie FORMAT(6F1 0.0) COMPO085
READ(5119 ) ((XfJLT J #K) K=,4) J1.4) c.poo009C
119 FORMAT(4F10O.O) tC4P 095
REAO(S.t20 )((VC4(J.K) K. *6)Jl.eA)* COMPO 100
120 FORMAT(6F100O) COMPC 105
REA0(5.l20)(VV(K),KaIl5) COMP0 11
MEAO(5.121) ((CONT(I I,J)*J=17)JIt l10) COMPO 111
121 FPORAT(7F6.0) COMP0112
REAO(DS122) ((DEVLP(IdJ)*J.*5).*In18) COMP0113
122 FGRMAT(5F5.Z) CMPO 114
REAO(S*120) ((TGDS(tJ)*Jer=1r20)1Iz)
WRHTEt21)PIPE*GRHODPUMPSS.80WLScCPS.EN IT XMULT.VC VV.CONTODELP.CDMPO115
STGOS COMP0120
STOP COMPO 125
END COMP t30
//GOSYSIN o00 C4P30












Table 4. Continued


l.c
2.0
3.0
4.0
5.0
6.0
7.0
8.0
9.0
10.
11.
IL:
12.
13.
14.
15.
16.
17.
id.
19.
20.

21.
22.
23.
24.
25.

27.
28.
29.
JO.
31.
32.
33.
34.
35.
356
37.
328
39,
40.
41.
42.
43.
44.
45.
46.
47.
48$
49.
50.
800. 00
7000.00
630.00
529.00
599.00
599.00
991.00
991.00
1023.00
1023.00C
1023.00
1 6. 1.!
2 6. 2.C
3 6. 2.5
4 6. 2.!
5 3. 2.0
6 a. 2 5
7 8. 3.0
8 8. 3.C
910. 2.!
11010. 3C
11 eo 1.5
12 6. 2. C
13 5. 2.!
14 6. 2:
15 8. 2.C
16 8. 2.!
17 8. 3.C
13 8. 3.(
1910. 2.'
2010. 3.C


1.3
1.0
1.00
1.0
1.0
1.0
1.0

1.0
1.0
1.0
1.0
1.0
1.0


1 .
1.0
1.0
1.2
1.0
1.0
1.0
1.0
1.3

1.0
1.0


1.0
1.0
1.0

2.3
2.0
2.0
2.0
3.3

2.3
3.0
2.0
2.0

4.0
4.3
4.0
4.0
4.3
4.0
4.0
4.0
4.0
4.0


5.0
1095.00


647.00 729.00
189.00
270.00
270.00
432.00
432.03
471.00
471.00
471 .00
1.00 20. 339.0
1.25 ZC. 439.0(
1.50 20. 531.01
1.69 20. 564.0(
1.25 20. 521.0'
1.69 20. 646.01
1.69 20.
1.94 20. 790.01
1.60 20. 752.01
1.94 20. 896.0
1.00 IC. 235.0(
1.25 10. 263.0'
1.50 10. 309.0
1.59 10. 328.0
1.25 10. 322.0(
1.69 10. 387.0(
1.69 10.
1.94 10. 463.0(
1.69 10. 466.0(
1.94 10. 542-.0


0.4
0.4
0.4
0.4
0.4
0.4
0.4
0.4
0.4
0.4

0.32
0.32

0.32
0.32
0.32
0.32
0.32
0.34
0.34
0.33
0.32
C .32
0.32
0.32
0.32
0.32
0.32
0 .08
0.03
0.03
0.31
0.321

0.32
0.32
3.322
0.32
0.32
0.22

0.32
0.32
0.32
0.32
0.32
0.32
0.22
0.32
0.32


0.0
1.00
1.25
2. 12
2.72
3.43
5.96


4.00
6.50
7.25

2 b4
3.31
4.01
4.75
5.63
1.01
2.29
3.73
5.33
8.00


1.5
2.0
3.0
4.C
5.0
6.
53.0


3.03
4.13
4.50

3.0
3.50
3.75
4.00
4.50
4.0
6.0
8.0
10.
12.




1315.00


1540.00 1635.00 1960.00 2520.00 2780.00 6775.00 700C.Co

979.00







0.67 37.00 45.00
0.91 37.00 45.00
1.41 37.00 45.00
1.77 37.00 45.00
0.91 60.00 53.00
1.77 bO.00 53.00
S177
2.26 60.00 53.00
1.77114.00 70.00
2.26114.00 70.0C
0.67 37.00 45.00
0.91 37.00 45.00
1.41 37.00 45.00
1.77 37.00 45.00
0.91 60.00 53.00
1.77 60.00 53.00
1 77
2.26 60.0C 53.00
1.77114.00 70.00
2.26114.03 70.30


3
3



3


3


3
0
3
0
0


0
0














Table 4. Continued


682.00
28.50
1198.,
40.
2348.
60.
2932.
75.
3746.
100.
5018.


694.00
3700.00
1214.
5300.00
1934.
6148.
3260.
7108.
5804.
9500.
6128.


5875. 6128.
150. 12900.
173. 12900.
7258. 5572.
200. 12900.


223.
250.


0.112
0.0011
0.00204
0.06.


17303.
17800.


0.078
G.0011
0.00247
30.06


15.00 15.0


20000.00 29000.00
4. 350. 126.
5. 400. 170.
(. 450. 211.
0. 550. 340.
10.o 650. 527.
12. 800. 767.


4.00
6.03
8.00
*LO.00
12.00


0.05 6.50
0.065 0*0625
29000.00 30000. 37500.
179. 103.
0. 147.
339. 194.
569. 347.
0. 5b7.
0. 878.


6.5
0..25


5.00 6.00
5.00 7.60
6.00 10.00
10.00 15.00
12s .0 20.00


10000.00 10000.00' 12000.00 140JO.00 14000000
4000.0C 5000.00 6000.00 7000.00 8003.00
//GO.FT21F001 0D UNIT=SYSDA .OSN=UF. 00011259. COMPONE.0ISPsC(NE EWCATLG).
// DCB=(RECFMaVBSLREC-=3088.8LKSIZE=9268JeSPACE=(9268* .42) RLSSE)


20*00

40.
60.
75.

100.

125.
150.


200.


85.


130e


6900.


9900.


0.866
0.00011
13.00
0.03
15.0







20

IDFLT (in Deck3, Tables 5-7) is the set of input default values

describing the farm, the well, the pump, the control head, the engine

and the distribution system. The reader is guided to recognize that the

current ICG program and irrigation systems default data files (IDFLT)

are structured according to the original designs from Oklahoma. In

adjusting, the ICG program and the data files to suit Florida conditions,

and also, in order to minimize user input, the least number of entries

have been retained on the current input forms. Consequently, the said

data files contain two classes of default values which do not appear on

the input forms. Those values identified by an asterisk (Tables 5-7)

are necessary and "relevant" to any simulation by the ICG, and have no

user option for change. Any changes are done internally by the ICG, and

have no user option for change. Any changes are performed internally by

the ICG, and depend on other user entries on the input forms. The

second class of default values which are not on the input forms are

denoted by two asterisks (Tables 5-7) and are "irrelevant" to any simu-

lation. They are retained, however, in order to facilitate any future

additions or modifications to the ICG, and to maintain smooth execution

of current simulations by the ICG. (Entries 67 to 74 are additions to

the original set of values from Oklahoma and entry 8 has been modi-

fied.) IDFLT.DATA4, IDFLT.DATA5 and IDFLT.DATA6 pertain to the center-

pivot, hose-tow traveling gun and cable-tow traveling gun, respectively.


Order, Control and Characteristics of Subroutines


The user supplies information, which may differ from the default

values, on the input form. Additionally, the user supplies adjustments

and/or additions to entries in the complement data base. The user-









21


Table 5. Deck3 for loading data to a tape file identified as IDFLT.DATA4.


//*nECK3 -- IOFLT.DATA4 CENTRE-PIVOT
//*IRRIGATION DEFAULT DATA INSTALLATION PROGRAM
//* MULTIPLE DEFAULT SYSTEMS CAN, DE INSTALLED USING THIS DECK. THE F LE
//t NAME MUST BE CHANGED FOR ALTERNATIVE SYSTEMS. THE FILE NUMBER IN THE
//* EXECUTION PROGRAM. I.E. FTXXFOCO SHOULD BE SET *JP SO THAT XX=9 PLUS THE
//* THE FILE NUMBER (1 TO 6). THE JCL FOR EACH DEFAULT SYSTEM ADDED SHOULD
// SBE ADDED TO THE EXECUTION DECK. THE M:UMER BETWEEN I AND 6 CAN THEN 8E
//* INSERTED ON THE 1ST DATA CAROL IN COL. 8. FOUR DEFAULT SYSTEMS ARE INCLUDED
// EXEC FORTGCLE
//FORT.SYSIN OD DFOA003O
DIMENSION XX(98) OFDA 025
11 FORMAT( 14IFI0.C) 3FDA004
DC 50 L=1.98 OFDA0045
PEAO(5. I )IZ.B DFDAO050
IF(IZ.EQ.99)GC TO 12 DFDA0055
5C XX(tZ)=8B DFDAO0 50
12 CONTINUE OFDAC Co3
WRITE(11)XX OFOA0070
REWIND 11
STOP OFOAC075
SEND DFDAO030
//GO.SYSIN DO DFDAGO15
1 122.0 TACST ACRES IJRISATED
2 7.00 ANYR ACRE-INCHESi/ACRE/YEA
3 1.3 ACPS AVERAGE INCHES APPLIED PER APPLICATION
4 1000.0 G? GALLONS/MINUTE PRODUCED OY THE PUMP
5 73.0 PSIA PRESSURE (PSI) AT THE PIVOT
6t, 00.0 EPTH DEPTH CF WELL
7 50.0 LIFT DEPTH TO MATER (AVCRAGE DRAWOOWN)
8 4 .03 JJJ RO'* NUNIOER FROM DEVELOPMENT ARRAY
9 7C.0 COL DEPTH SETTING OF COLUMN PIPE
10 6.0 1 RO3 UMBER FROM COLUMN. PIPE. SHAFT ARRAY
11 0.03 D10L NUMBER OF STAGES (IF 0 THE PROGRAM WILL DETERMINE)
12 0.75 PE PUMP EFFICIENCY
13 3.0 FUEL FJEL TYPE (1=LP. 2=4G. 3=OIESEL, 4=ELECTRICITY)
14 !..; ENGINE ENGINE TYPE (I=AUTO. 2=LIGHT IND.. 3=INTER. IND.. 4=ELE
15 0.3 EINE ENGINE ROW NUMIEER (IF 0,THE PROGRAM WILL DETERiINE)
16 150.0C XADJ(1) ALTITUDE A3OVE SEA LEVEL
17 ?0.0 XAOJ(2) 4AXIMUM AVERAGE DAILY TEMPERATURE
13 0.0 XADJ(Z) USE OF HEAT EXCHANGER (0=NOI=YES)
*19 .C XADJ(4) ENGINE HAS ACCESSORIES (ALT..AIR CLEANER.FAN/RAOe)( =Y
20 1.0 XADJ(S) TYPE UF DRIVE (OOIRECT, 1=RIGHT ANGLE. 2=VEE-BELT. 3=
Zl 3.12 SINT INTEREST RATE
22 .006 SINS INSURANCE RATE
23 4.00 TLASUR LABOR COST/HOUR
4 42 0.00 ATAX PROPERTY TAX RATE -NOT CURRENTLY APPLICABLE
** 55 0.0 AS335 TAX ASE-SSME.NT RATE-NJT CURRENTLY APPLICABLE
Ib 0.0 3WTAX WELL TAX OER GALLON-NOT CURRENTLY APPLICABLE
27 40. 4.LLF ELL LIFE
28 12.0 SOLF STAGE LIFE
29 15.0 CCLF COLUMN LIFE
30 15.0 GRLF GEARHEAD LIFE
1 l..z0 SFUJEL FUEL =OST/GAL. MCF. OR KWH
32 7.00 SLUB COST/GAL OF LUBRICANT
** 33 125.0 SVAG COST OF ABOVE GROUND VALVES-NCT APPLICABLE (N/A)
** 34 150.0 SVBG COST OF BELOW GROUND VALVES-NOT APPLICABLE (N/A)
?5 50000.00 ELLF ELECTRIC ENGINE LIFE
36 200C0.00 AULF AUTOMOTIVE ENGINE LIFE
37 30000.00 XLILF LIGHT INDO. ENGINE LIFE
38 40000.00 HVLF INTER. INO. ENGINE LIFE
39 11.00 SETV PSI/1000 FT. ALLOWED IN PIPE
4C A.C ITYPE SYSTEM TYPE (1 2= 3= 4=CEN.-PIV. 5= 6=T-G)
41 1353.0 MOVE LATERAL LENGTH (FEET)
42 2.0 mTYP(1) TYPE (I=MAIN. LINE ABOVE GROUND, Z=MAIN LINE .ELDOW ;ROU
4.3 10.0 XFET(1) FEET
44 43.0 HMROW(1) ROw NUMBER FROM PIPE ARRAY
4S 1.3 MCNT(l) CAN IL=E SIZE SE INCREASED IF NEEDED (O=YES. 1=NC)
** 46 0.0 XNML(1) IF A LATERALTHE NJMBER OPERATING CONCURRENTLY
** 47 7.0 '4TYP(2) TYPE (SEE CODES AOOVE)
** 48 0.0 XFET(2) FEET
4 .9 0.0 MROW(2) ROW NUMBER FROM PIPE ARRAY
** 0 0.0 MCNT(2) CAN PIPE SIZE nE INCREASED IF NEEDED? (0=YES. I=NC)
** 51 1.0 X.NMIL(2) IF A LATERAL. THE NUMBER OPERATING CONCURRENTLY
** 2 7.0 M TVo(3) TYPE (SEE CODES ABOVE)
** 53 0.0 XFET(3) FEET
54 0.0 :4ROW(3) ROW NUIOER FROM PIPE ARRAY
** 55 0.0 MCNT(3) CAN PIPE SIZE 3E INCREASED IF NEEDED (0=YES. 1=NO)
** 56 1.0 XN;ML(3) IF A LATERAL, THE NUMBER OPERATING CONCURRENTLY
** 57 7.0 MTYP(4) TYPE (SEE CODES AtOVE)
** S8 0.0 XFET(4) FEET
59 C0. MROW(4) ROW NUMBER FROM PIPE ARRAY
6* Q 0 .0 MCNT(4) CAN PIPE SIZE SE INCREASED IFNEEDEE7 (0=YES, 1=NO)
** .31 XNML(4) IF A LATERAL. THE NUMBER OPERATING CONCURRENTLY












Table 5. Continued


** 6 0.O SSFTY COST OF S,ETY TYPE/FOOT (N/A)
** 63 0.0 PIVOT COST OF r-IVT FOR SELF-PVOPELLED (N/A)
5* 0.0 BASE BASE -PI~E OF DRIVE UNIT AN) MO4TUR (N/A)
S65 0.0 3TRTB COST 3F TRAIL TUBES (N/A)
*" b66 0.0 TOW NUMBER OF TRAIL TUSES (M/A)
67 7.0 ANYRAV AVE'-AGE ANNUAL APPLICATION OF WATER
68 100.00 CDEP DEPTH CF WELL CASING
S69 0.0 WATER WATCR RATE -NOT CURRENTLY APPLICABLE
7U 00 JHD ROW NUMBER FROM CONTROL HEAD ARRAY
71 1.00 F'4 FLOW METER (0=NOQ.=YES)
72 1.00 "V GATE VALVE (0=NJ*1=YES)
73 1.00 YS Y-STRAINER (G=NJO,=YES)
74 1.0" CV CHECK VALVE (O=10'IO*YES)
99
//FrT, l'01 0 D3SN=UF.0001125').IPDFLT.OATA4,UNlT=SYSDA*DISP=(:4,,.CA TLG),
// ZCE= :Te( I ) )DOC3=(ECFu=vS, LqCL=-76.3LKSIE=91 12)


Table 6. Deck3 for loading data to a tape file identified as IDFLT.DATA3.



//ODECK3 -- IDFLT.OATAS TRAVELL'I.IG GUN: ..03E-TOW
//'tIRRIGATION DEFAULT DATA INSTALLATION PIROGRA:
//4 MULTIPLE DEFAULT SYSTEMS CAN CE INSTALLED USING THIS DECK. THE FILE
//* NAME MUST SE CHANGED FOR ALTERNATIVE SYSTEMS. THE FILE NUM9FR IN THE
//* EXECUTION PROGRAM. I.E. FTXXF00 SHOULD BE SET 'JP SO THAT XX=9 PLUS THE
//* THE FILE NUMBER (1 TO 6). THE JCL FOR EACH DEFAULT SYSTEM ADDED SHOULD
//* BE ADDED TO THE :(XC'JTIJNl DECK. THE MUMUER ET'.EEN 1 AND 6 CAN THEN SE
//* INSERTED ON THE 1ST DATA CARD IN COL. S. FOUR DEFAULT SYSTEMS ARE INCLUDED
// EXEC FCRTGCLE
//FORT.SYSIN 0D DFDA0030
DIMENSION XX(98) FDAG 035
11 FORMAT(14. F.0C) DFDA0040
D0 50 L=1.98 3FDA0045
QEAO(5 11) IZ.33 DFDA0050
IF(IZ.EQ.99)G3 TO 12 DFDA0055
50 XX(IZ)=eB DFDA0050
12 CONTINUE FDAOCC55
WRITE(I1)XX OFDAO070
REWINO 11
STOP DFDAC075
EMD DFDAO080
//GO.SYSIN DO 3FDAGO35
1 90.00 TACST ACRES IRRIGATED
2 6.00 ANYR ACRE-INCHCS/ACRC/YEAR
3 1.0 ACPS AVERAGE INCHES APoLIED PER APPLICATION
4 500.00 GPM GALLONS/MINUTE PRODUCED 3Y THE PUMP
5 100.00 PSIA PRESSURE (PSI) AT DISCHARGE
b +00.0 DEPTH DEPTH OF WELL
S7 50.0 LIFT DEPTH TO WATER (DYNAMIC DEPTH)
8 4.00 JJJ ROW NUMSER FROM DEVELOPMENT ARRAY
9 70.0 COL OEPTH SETTING; F COLUMN PIPE
10 6.0 I RUW NUMSER FROM COLUMN PIPE SHAFT ARRAY
11 0.0 NDWL NUMdER JF STAGES (IF 0 THE PROGRAM WILL DETERMINE)
12 0.75 PC P'JMP EFFICIENCY
12 3.0 FUEL FUEL TYPE (1=LP, 2=NG. 3=DIESEL. 4=ELECTRICITY)
14 2.0 ENGINE ENGINE TYPE (1=AUT.J 2=LIGHT IND.. -3=[NTER. IND), 4=ELE
15 0.0 EINE ENGINE ROW NUMBER (IF 0.-THE PROGRAM KILL DCTEr.'INE)
16 150.00 XAOJ(I) ALTITUDE ABOVE SEA LEVEL
17 90.0 XADJ(2) H'AXIMUM AVERAGE DAILY TEMPERATURE
18. 0.0 XADJ(3) USE OF HEAT EXCHANGER (0=N0.1=YES)
*19 1.0 XAOJ(4) ENGINE HAS ACCESSORIES (ALT..AIR CLEANER.FAN/RAO.)(1 =Y
20 1.0 XADJ(S) TYPE CF DRIVE (0=OtRrCT, 1=RIGHT ANGLE. 2=VEE--3ELT, 3=
21 0.12 SINT INTEREST RATE
22 .006 siNS INSURANCE RATE
23 4.00 LABOR LABOR COST/HOUR
**24 0.00 STAX PROPERTY TAX RATE -NOT CURRENTLY AOPLICABLE
** 25 0.0 ASSES TAX AStESS.ENT RATE-NOT CURRENTLY APPLICABLE
26 0.0 SWTAX aELL TAX PER GALLON-NOT CURRENTLY APPLICABLE
27 40.C WLLF WELL LIFE
28 12.C SOLF STAGE LIFE
29 :5.0 COLF COLUMN LIFE
30 15.0 CRLF GEAHHEAD LIFE
31 1.20 FUEL FUEL COST/GAL. OR KWH
32 7.00 SLUB CCST/GAL OF LUBRICANT
33 125*0 SVAG COST OF ABOVE GROUND VALVES
34 150.3 sVB3 COS-T OF BELOW GROUND VALVES
35 50000.00 .LLF ELECTRIC ENGINE LIFE
jo 20000.00 AULF AUTOMOTIVE ENGI E LIFE
37 3)00CO.0 XLILF LIGHT IND. ENGINE LIFE
38 40000.00 HVLF INTER. IND. ENGINE -IFE
39 11.00 SETV PSI/1000 FT. ALLOWED IN PIPE
*44 5.0 ITYPE SYSTEM TYPE (1= 2= 3= 4=C-o, S=TG, 6=TRV. GUN)
I 300.00 MOVE DISTANCE BETWEEN VA.VES (FEET)











Table 6. Continued


42 2.0 MTYP(1) TYPE (1=MAINI LINE A80VE G;ROJNO. 2=MAI;I LILE BE.LCr CROU
43; 1060.30 XFPT(1) FEET
44 42.0 MROW(1) RMJW NUiMBER FROM PIPE ARRAY
45 1.0 M'CNT(l) CAN PIP- SIZE 3E INCREASED IF 1fEEDED (0=YES. 1=NC)
*46 0.0 XNIML(1) [F A LATERAL*THE NUMBER OPERATING CONCURRENTLY
47 3.00 MTYP(Z) TYPE (SEE CODES AUJVE)
48 660.00 XtET(2) FEET
A4 39.00 MROW(2) ROW NUMeER FRCM PIPE ARRAY
50 1.00 MCNT(2) CAN PIPE SIZE 3E INCREASED IF HIEDED? (Q=YES. L=10)
*31 : XN~ML(2) IF A LATEFAL, THE NUMBER OPERATING COFNCJ.RRNTLY
52 5.3 MTYP(;) TYPE (SEE CODES Ac3VE)
53 1060.00 XFET(3) FEET
*54. 42.00 1'ROA(3) ROW NU*IOER FROM PIPE ARRAY
5S 3.0 MCNT(3) CAN PIPE SIZE SE.INCREASED IF NEEDED (G=YES. 1=NO)
**56 C.0 XNML(3) IF A LATERAL. THE lUMNER OPERATING CONCURRENTLY
**57 7.0 *A'YP(4) TYPE (SEE CODES A83VE)
k* 8 0.0 XFPT(4) FEET
k*59 0.0 .;4RoQ(4) RCW NUMBER FROM PIPE ARRAY
k*jC 0.0 MCNT(4) CAN PIPE SIZE DE I'ICEASEU IF NEEDED? (0=YES. 1=NO)
k*61 1.0 XN.L(A) IF A LATERAL, THE NUMBER OPERATING CONCURRE'NTLY
**62 0.0 SIFTY COST OF SAFETY TYPE/FOOT (N/A)
**63 0.0 PIVOT COST 3F PIVOT FOR CENTRE-PIVOT (N/A)
**64 3.0 8ASE 3ASE RICE OF DOIVE UNIT AND MOTOR (N/A)
**65 3.0 STRTB COST OF TRAIL TJOES (N/A)
X**k 3.0 TO3'. NUMBER OF TRAIL T'JBS ( /A)
67 0.00 ANYRAV AVERAGE ANNUAL AP3LICATI'JN JF WATER
63 100.00 CDEP DEPTH CF WELL CASING
**69 0.0 swATER WATER RATE NOT CURRENTLY APPLICABLE
*70 j.00 JHO ROW NUMuER FROM CONTROL HEAD ARRAY
71 1.00 FM FLOa METER (0=NO.I=YES)
72 1.00 GV GATE VALVE (0=NO,l=YES)
73 .00 Y3 -Y-STRAInEP. (0=NO.1=YES) (N/A)
74 1.00 CV CHECK VALVE (0=410.=YES)
//FT1IF001 0O0 DSN=UF.D3O;1125I.1IFLT.DATA3.UNIT=SYSDA.OISP=(tNEw.CATLG
// SPACE=(TrK,(1)) )DC a=(RECF'4=VdSLRECL=39.' LK3 IZE=9 112)



Table 7. Deck3 for loading data to a tape file identified as IDFLT.DATA6.




?,o*UCK -- IDFLT.tOA6 TRAVELLING. GUN CAaLE-TrO
Iwt04IGATjION DEFAULT DATA INSTALLATION PRFGRAM
"0 MUL.TTZPLE DEFAULT SYSTEMS CAN BE INSTALLED UstSN THIS DECK. THE FILE
//e NAME MUST DE CHANGED FOR ALTERNATIVE SYSTEMS. THE FILEP NUMBER IN T-E
//4 EXECUTION PROGRAM I.E. FTXXFOOL SHOULD BE 5E UP S THAT XX=9 PLUS THE
/t* THE FILE NUMBER (1 TO 6.) THE JCL FOR EACH DEFAULT SYSTEr AOODEn SHOULD
i// BE ADOED TO THE EXECUTION DECK. THE NUMBER BET'NEEN I AND 6 CAI TH04 BE
1* INSERTED ON THE 1ST DATA CARO IN COL. 8. FOUR DEFAULT SYSTEMS ARE LNCLJOCEI
// EXEC FCRTGCLE OFDA0030
//FORT SYS.N 00 DFDAGO035
DIMENSION XXC981 DFOA3040
LI FORMAT-I4.PFI.0) OFOAO045
D0 50 L=1.9 D OFOA005O
REAODS.1)lZBS 1DFDAO 055
IFCIZeE0.99gGO TO 12 FDAO00G
50 XXCIZ)=e OFDAO0055
123 CONTINUE DFDA0070
wRITE (LtXX,
CEWINGO I DFAGO75
STOP DFDA0080
END DFOA0035
//G.-SYSIN O0D
I 4.0c TmACST ACRES IRRIGATED
2 6.0 AMYR ACRE-I NCHESACRE/Y EAR
J t.0 ACPS AVERAGE INCHES APPLIED PER APPLICATION
4 500.00 GPK GALLONS/MlNUTE PROWJCED 3Y THE PUMP
s L1Oo00f PSIA PRESSURE (PSL) AT DISCHARGE
6 4.00.0 DEPTH DEPTH OF WELL
7 50.0 wLIFT DEPTH" TO3 AFTER (DYNAMIC OEPTHY
& 4..04 J.J' ROW NUMBER FROM DEVELOPMENT ARRAY
9 70.0 C3L 3EPTH SETTING OF COLUMN PIPE
10 6.0 L ROW NUMBER FROM COLUMN. PIPE. SHAFT ARRAY
LL 300 NBWL NUMBER OF STAGES (L 0 rTE PROGRAM WILL DETERMINE)
12 0C.75 PE PuMP' EFTC IENCY
.3 3.0 FUEL FUEL TYPE I(LP 2=4G. .OItESEL. 4=CLECTRICITY)
14 a.0 ENGINE ENGINE TYPE (I-AUTOD ZLuirT IND., 3=LNTER. IND.. 4-ELE
IS 0.0 EiNE ENGINE RW NUMBER (IF 0 O,E_PROGRAM WILL DETERMINE)
16 i50o00 XADJ(I) ALTITUDE ABOVE SEA LEVEL
17 90,0 XA3J22) MAXIMUM AVERAGE DAILY TEMPERATURE
l180 C XAOJ(C3 USE-OF MEAT EXCHANGER (0ONO*1wYES)
-, .0 XADJ(4) ENGINE HAS ACCESSORIES (ALT.-AIR CLEANER.FAN/RAO.)(l=Y
2C 1.0. XADJ(5) TYPE OF DRIVE, (0=OIRECT, 1=RIGHT ANGLE. 2=VEE-SBLT. 3=-



















Table 7. Continued


21 0.12 SINT INTEREST RATE
22 *006. SNS INSURANCE RATE
23 4.00 LABOR LABOR COST/HOUR
**24 0.00 STAX PROPERTY TAX RATE -NOT CURRENTLY APPLICABLE
**2S 0.0 ASSES TAX ASSESSMENT RATE-NOT CURRENTLY APPLICABLE
**26 0.0 SWTAX WELL TAX PER GALLON-NOT CURRENTLY APPLICABLE
27 40.0 WLLF WELL LIFE
2B 12.0 SLF STAGE LIFE
29 15.0 COLF COLUMN LIFE
30 15.0 GRLF GEARHEAD LIFE
31 1.20 FUEL FUEL COST/GAL. MCF. OR KWH
32 7.00 SLUB COST/GAL OF LUBRICANT
33 125.0 SVAG COST OF ABOVE GROUND VALVES
346 150.0 SV3; COST OF BELOW GROUND VALVES
35 50000O00 ELLF ELECTRIC ENGINE LIFE '
36 200C0.00 AULF AUTOMOTIVE ENGINE LIFE
37 30CCO.00 XLILF LIGHT IND. ENGINE LIFE
3a 40000.00 HVLF INTER* INOD ENGINE LIFE
39 11.00C SET PSI/1000 FT. ALLOWED IN PIPE
*40 6.0. ITYPE SYSTEM TYPE (1 2 e* 3m 4=C-P S5 6-TRV4 GUN)
41 300.00 MOVE DISTANCE BETWEEN VALVES (FEET)
42 2.0 MTYP(1) TYPE (1aMAIN LINE ABOVE GROUND* MAIN LINE BCLO GROUP
43 1060.00 XFET I) FEET
44 42.0 MROW(1) ROW NUMBER FROM PIPE ARRAY
45 1.3 MCNT(1) CAN PIPE SIZE BE INCREASED IP NEEDED (0-YES. I-NO)
**46 0.0 XNML(1) IF A LATERALTHE NUMBER OPERATING CONCURRENTLY
*47 3,OC MTYPT2) TYPE (SE- CODES ABOVE)
46 66C.0 XFCT(2) FEET
49 32.00 MRDO(2) ROW NUMBER FROM PIPE ARRAY
SO 1.00 MCNT(Z) CAN PIPE SIZE BE INCREASED IF NEEDED? (0YES. I1NO)
*51 L.0 XNML(2) IF A LATERAL. THE NUMBER OPERATING CONCURRENTLY
52 5.0 MTYP(3) TYPE (SEE CODES AB3VE)
53 1060.00 XFET(3) FEET
54 42.00 MROW(3) ROW NUMBER FROM PIPE ARRAY
**S5 0.0 MCNT(3) CAN PIPE SIZE BE INCREASED IF NEEDED (0YES. INO)
**a6 C.0 XNML(3) IF A LATERAL. THE NUMBER OPERATING CONCURRENTLY
**57 7.0 MTYP(4) TYPE (SEE CODES AB3VE)
**Sa 0.0 XFET(4) FEET
**59 0.0 MRDW(4) ROW NUMBER FROM PIPE ARRAY
**30 0.0 MCNT(4) CAN PIPE SIZE BE INCREASED IF NEEDED? (0-YES. l-NO)
*,61 1.0 XNML(4) IF A LATERAL. THE NUMBER OPERATING CONCURRENTLY
**02 Q.0 SOSFTY COST OF SAFETY TYPE/FOOT (N/A)
**63 0.o PIVOT COST OF PIVOT FOR SELF PROPELLED (N/A)
**~ 0.0 BASE BASE PRICE OF DRIVE UNIT AND MOTOR (N/A)
**st5 0.0 STRTB COST OF TRAIL TUBES (N/A)
*66 0.0 TOW NUMBER POF TRAIL TUBES (N/A)
67 6.00 ANYRAV AVERAGE ANNUAL APPLICATION OF WATER
68 100.00 CDEP DEPTH OF WELL CASING
t*69 0.0 WATER WATER RATE NOT CURRENTLY APPLICABLE
*O 4.00 JHD ROM NUMBER FROM CONTROL HEAD ARRAY
71 1.00 FM FLOW METER (ONOsI=iSES)
72 1.00 GV SATE VALVE (ONO---YES)
- 73 0.00 YS V-STPAINER (0-NOe1tES) (N/A)
74 1.00 CV CHECK VALVE (O0NOclYES)
99
/FTl 1FOOl 03 OSN IWP.DOOi 1259.IDFLT.DATA6.UNIT"SYSDA.*DISP( NEWICATLG)
/ / SPACEs (TRK. (I)) .DCB( RECFMmVBS LRECLa396.BLKS 12e9 112)







25

supplied information is entered in a card image file or on computer

cards according to the format given in the section on simulation (p.

7). These data are fed into the computer with appropriate Job Control

Language (JCL) cards by which the ICG program and the other above-

mentioned tape files are accessed (Table 1, lines 3, 35 to 39). The ICG

program is composed of a main subroutine and nine computational and

output formating subroutines.

In the last eight columns of each card of the original program, a

four-letter subroutine identifier is followed by a four-digit card (or

line) number (e.g., Table 8). These numbers begin at 0020 for each

subroutine and are incremented by 5. In some areas, these line codes do

not appear (e.g., MAIN0155 to MAIN0160, to MAIN0170, Table 8; INIT0210

to INIT0550, Table 9), and for Subroutine HRFIND (Table 12) the codes do

not exist. The authors have attempted to maintain this pattern in

modifying the original program, but, in most cases, incrementing by 5

was not possible (e.g., PUMP0405 to PUMP0425, Table 13), or codes were

simply left off (e.g., OTPT0215 to OTPT0310, Table 15; Table 16). Also,

sections of some subroutines have been transplanted to other subrou-

tines, retaining their original codes (e.g. FRST0225 to FRST0270, Table

15), while sections of program have been relocated within the same

subroutine, thus, breaking the numeric sequence of codes (e.g., ICST0350

to ICST0400, Table 14).

In the sequential descriptions of the various subroutines, the

procedural steps are first outlined relative to the main (control)

program (Table 8). A copy of the corresponding subroutine then follows

each outline.









26

Main Program (Table 8)



First, INAMESET is read (line 90). Then, the irrigation system of


interest and complement base are read (line 100) based on the input form


code numbers (to the variables ISYS and ICOMP, respectively) which


appear on the first data card. Consequently, the user identifies the


appropriate IDFLT and ICOMPONE (however, only one complement base


exists).


The specific user Identification (IDENT(K), K = 1,...,20) is on the


next two data cards (lines 115 to 125) and is entered on the input form


in two parts.



Table 8. Main control program for the ICG



//C*ECK4 -- IRRIGATION COST GeNeR4TOR
//*ICG CONTROLLING SUBRCUTINE
//Si EXEC FORTGCL.PARM.FORT=*NAME=IPRIG',
// PARM.LKED=*LET.LISTNCAL*
//FCRT.SYSIN C0 *
DIMENSION VC(5.5).FCt5.5).CIC5).N(5.2).CS(q).OPWLS(8.4)*TGCS(2.5) MAIN00S
DIMENSION GRHD(t11)PUMPBS(4).PIFP(50. ).CCNT(10.7),DFVLP(d.5) MAIN0030
DIMENSION ZTIT(7.8).MTYP(4).XPFT(4),MROW(4),XNML(4),MCNT(4).COEF(4MAIN0035
1) MAINO040
DIMENSION VC4(4.6),=NGIT(15.12),XMULT(4.4).VV(5).NAMC(6.4).NN(4.2)MAIN0045
1lICENT(20O.NPIPE(5.2).;GG(4.6),)ACJ(5) MAINO050
COMMON/JPASS/ JCOL.JHMOCPS(20.l0).JJJ
C TYPE OF PIPE ALUMINUM. 2=LAY-FLT HOSE, 3=PVC HARD HOSE, 4=PVC MAIN0055
C TYP C; FURL 1=LPG. 2= 3=OIFSL, 4=LLCTRIC MAINCO60
C TYPE OF SYSTEM 1= 2= 3= AIN0O65
C 4CENTRE-PIVOT. 5=HOSE-TGW TRAV. GUN. 6=CABLS-TCW TRAV. GUN MAIN0070
MCHCK=O
ISWITI=2 MA~N0075
ISWIT2=1 MAINO080
DATA BG/4iENO*/ MAIN0035
C
C READ NAME SET IN FIVE ARRAYS
READ(20)NAMENNNPIPE.EGGZTIT MAIN0090
291 CONTINUE MAINO040
C
C IDENTIFY .IRRIGATION SYSTEM AND COMPLEMENT DATA BASE
C (HENCE IDENTIFY INPUT DEFAULT VALUES AND
C DEFAULT COMPLEMENT DATA BASE)
REAO(5S270)AG.ISYS.ICOMP MAIN0100
270 FORMAT(A4.IX.213) MAINO105
IF(AG.EOQBG)GO TC 300 MAIN0110
C
C REACH IN USER-SPECIFISC IDENTIFICATION IN TWO PARTS
REAO(5.250)(IDENT(K)9K=1.10) MAINCIIS
REA0(5.250)(IDENT(K).K=11.20) MAIN0120
250 FORMAT(10A4) MAINO125
C
C INCORPORATE USER-SPECIFIED CHANGES TC INPUT DEFAULT VALUES AND
C TO DEFAULT COMPLEMENT DATA BASE
CALL INIT(GPMDEFTHWLIFTPSIA* ISWIT2.CDEP. MAIN0120
1 TGDSPE DRIVE.TACSTANYFCCL.SINT,STAX.SINS.SWTAX .SFTY. MAI:NO135
2SFUEL SLUB.tSLA0ORSDOVLPS-RTB.VAG.SVBGFUSL*.NGINEI.ITYPE.BASEMAINO140
3PIVOT.TOw.MCVEASSES.WLLFECLF.COLF.GRLF,ELLF.AULF.XLILF*HVLF, MAINO145
4PIPEGRHO.PUMPBSBOWLSENGITXMULTVC4.VVISWIT ,ACPSNBWL MTYP. MAIN0150
5XFET.MPOW.XNML.MCNT,3ETV,EINE.XADJ ICOMP,ISYS.CCNTCDVLP) MAINOI55
IF(EINE.LT.O.qG)MCHCK=
IF(EINE.LT.O.O)EINE=-EINE
IF(MCHCK.GT.I)MCHCK=1
CALL FIRST (GPMWLIFT,PSIA.P,.TACST,ANYRTOHACIN.HOUPSoHP, MAINO160
1PIPEFRICLFRICMFRICT.PSIWMTYP,XFET,MRCIWXNML.MCNT.COEF.SETV,
2MCHCK)
IF(MCHCK.EQ.1)GO TO 10
GO TO 11









Table 8. Continued


10 CALL 1RF IN (GPM..LIFT.PSIA .PE,TACST.ANYC.TDH.
1ACtN hCL.RSWHP.PIP e. FRICL. FR ICM FRICTP5 I .MTYP.XF 2MCNT.COf-.FSETVFUEL.a2NGIT.XACJ. CHCK.EINE)
11 CONTINUE
CALL PUPP (GPM CSPTH.TDHO IT SBCLSS CCL, GRHO $PU'AP.9HP CCL, SSE AIN0170
1UC SPUMES.8CWLSCPS.GRHCPUMPeS3JCOL.JJCCL NSCWL. CCST1 COST2N CCL. .A IN 0175
IFUEL.WHP.NBWL.XAOJPEOE.L LIFT) MAIN0140
CALL IRCOST (FUELLP.3HP*P-.HCURS.ACIN.SLUet.LABOR.SINToSTAXsIN'4AIN015
1S.5WTAX.SBOWLS.SCCL.SGRHO.SFPUMP.ENGINE.VC.FCCI.SFUEL SWELL ,MGVE.MAINO:tC
2DEPTHGPM.STRTDSVAGSVBG.VC4,ENGIT.XMULT.SLAPIASSES.WLLF.eCLF.CCAAIN0195
3LF.GFLFS LLF HVLF. XL IL FAULT F. VV WHO ,AMTR SP I Pr, sMLI N., AGVr GV MAIN0200
4SVALUE.I CI TYPEP.ASE*TCWTACST SSFTY.PIVCT.XHPACPS.ANYR. MTYP MAIN02C!
SXFET.MROW,XNML.EINE. IENGL.XADJ.CONT.OEVLP CDO=P.TGDS) ~~tN0210
CALL CUTPUT (ICENT.NAME ITYP',TACSTGPMANYR,HOURS.PSIA.ACIN,MA!NO215
ITOH *DEPTH WLIFT .sELL .COL NBC L. CPS JCOL JJCCL.COST 1 NCCL.CCST2. SMA IN0220
2BOWLS.SGRHDOPE, PUMS .SPUMP, GG.AMTRS,BHP.FUEL.NN.SFUEL.WHP.CCNT. MAIN0225
3JJJ.PIPE*SETV.CCEP. NPIPE.SMLIN,.AGV,8GV.$VAG.SV9G.SVALUE, DEVLP. MAIN0230
4JHO.MOVE*TCWS*.SLAPI SSFTYPIVOT.VV. IC .TOW. STRT8 BASE, SINT*. TLABCR. MAIN0235
5SINS SLU8 SWTAX FC*VC CI SCOL ENGINE S TAX.PSI N.CneFL .COEFMA*CCEF CPM AI N024 0
5 FRICL.FRICMFRICT XHP. ACPS ZT I .MTYP XPFT, MROw. XNML, INGL .'-NGI T 4 IN0245
60E.XACJ.WLLF 8CLF.CCLF*GRLF.ASSES.AULF.XLILFHVLF ELLF COEF oCHCK) MAINO250
IF(ISWIT1.NE.1) GO TO 291 MATNO?55
CALL BASEOT (CPS ISYS. I COMP IDENT GHC .PIPE .,NGI TXMUL .VC4.A N026'0
1VV.PUMPEIS eWLS.CCNT DEVLP.TGCS) MAIN02t 5
ISWIT1=2 MAIN0270
GO TO 2S1 MAIN0275
300 STCP MAIN02eC
ENO 4AIN?025
//LKED.SYSLMOD 00 OSN=UF.00011259.IRGPROG.LIB.OISP=OLD
//XLE3.SY*IN 0D *
NAME IkICitG(R






The subroutine INIT is then called (Table 8, lines 130 to 155).



Subroutine INIT (Table 9)



The identified IMCOMPONE and IDFLT are read (lines 95 to 130). For

a series of simulations, this step is skipped (line 90) if the same

complement; base and irrigation system are to be used. (Again, only one

complement is available.)

Next, user input entries are read in from data cards as

XX(1),...,XX(74), but in input-form order (lines 195 to 200). These

entries are then correspondingly initialized (lines 205 to 550), and the

corresponding input default values are replaced. Similarly for the

arrays in the complement data base (lines 565 to 1280). Finally, the

option to print out this machinery complement base is assessed (lines

1065 to 1075).





















Table 9. INIT subroutine to main control program









//*ICG SUSBOUTINE: INIT
// EXEC FCRTGCL.PARM.LKEC*LET*.LIST.NCAL'
//FORT.SSIN 00 *
SUBROUTINE INITtGPM.DEPTH.eLIFT.PSIAISWI'2.CDEP, INIT0020
1 TGOS*.P. CRIVe.TACST.ANYRCQL.SINTeSTAX.SINSeSWTAX.,SFTY INIT0025
2SFU-L.SLUB.SLABOR.tDEVLP.5TRT8.SVAG.SVBG.FUEL*ENGINE. I.ITVPE.BASE.INIT0030
3PIVOT. TOW. 4CVEASSES*WLLF BOLFCOLF.GRLF ,ELLFAULF.XLILF.HVLF, INITOO35
4PIPEGGRHJ.PUMPPeS.OCWLS.ENGIT.XMULTVC4*VV I SlWT 1ACPS.N8WL*MTYP INIT0040
5XFET.M;OW,X.4MLCNT.SETVtINE.XADOJ.CCMP*ISYS.CCNTCEVLP) INIT0045
DIMENSION MTYP(4).XFET(4),MORO(4) XNML(4),MCNT(4) INITOO50
DIMENSION XX(99).AGENCA(4 )BGENCA(13). ICCL(5).VALU( 5), NIT0055
IPIPE(50.6).GRHO(l ).PU4PBS(4),BCILS(8.4).ENGIT(IS12).XMULT(44)l. INIT060
2VC4(4.6) VV(5).XAOJ(5).CONT(10.7ODEVLP(SB.S)TGDS(2*5) INIT0065
CCMMCN/AVAPP/ANYRAVACINAVeHRSAV INIT0066
COMMCN/wATER/TCOST .SATER 1NIT0067
COMMCN/JPASS/ JCOL.JHODCPS(201O0) JJJ
COMMON/CMC/FM* GV.YS9CV
DATA EGENOA/4HCPS *4MPIPE4 MGEAR.4HPUMPS4MSTGE.4HENGI.4HMULTe4HVC4INIT0070
1 .4HCPOS 4HCONT.4HOEVL.4HTGDSe4HENL*/ INIT0075
DATA AGENDA/4HeASE.4HFILE4HMAXO.4HEXEC/ INIT0080
ISWIT2=2 INIT0085
IF(ISYS.EO.99)GO TO 300 INIT0090
C
C FIND DEFAULT COMPLEMENT DATA TAPE
ICOMT=ICOMP+20 INIT0095
IF(ICGMP.EO.) ICOMT=21 INITO100
C
C READ DEFAULT COMPLEMENT DATA
REAO( ICCMT)PIPE.GRHO.PUMPBS.BOWLS.CPSENGIT XMULT. VC4 VVCCNT. INIT0105
1 DEVLP.TGOS INITO106
REWIND ICCMT INIT0110
C
C FINC INPUT DEFAULT DATA TAPE
ISYT=ISYS+9 INTO 11
IF(ISYS.EO.0) SYTzl0 INIT0120
C
C REACH INPUT DEFAULT DATA
REAO( SYT)XX INIT0125
REMIND ISYT INITO130
51 FORMAT(I4*FIO.0) INIT0135
13 FORMAT(A4) INIT0140
300 CCNTINiE INIT0145
C
C READ CATA CARDS FOR AGENDUM BASE *FILE.MAXO. OR EXEC
31 READ(5,13)SG INIT0155
00 15 L=t14 INIT0160
IF(SG.EOQAGENDA(L)) GC TO 16 INIT0165
15 CONTINUE INIT0170
WRITE(6. 7)SG INIT0175
17 FCRMAT(1X.A4*' ILLEGAL AGENDA*) INIT0180
STOP INIT0185
16 GO TO(20.21.22.23.24).L INIT0190
C
C READ DATA CARDS FOR CHANGES TO BASE AGENCUM OR INPUT DEFAULT DATA
20 REAO(S5I) IZB INIT0195
IF(IZeEO.9999)GO TO 25 IN1T0200
XX(123=8B INITO205
GO TO 20 INIT0210
















Table 9. Continued






c
C ASSIGN NAMSS TO OR INITIALIZE INPUT ENTqi=S
25 TACST=xX(1)
ANYR=XX(2)
ANYRAV=XX(67)
ACPS=XX(3)
GPM=XX(4)
PS IA=XX(5)
OEPTH=XX(6)
WLIFT=XX(7)
JJJ=XX(3)
CDEP=XX(68)
COL=XX(9)
I=XX(101
NBWL=XX(11)
PE=XX(12)
JHO=XX(70)
FM=XX(71)
GV=XX(72)
YS=XX(73)
CV=XX(74)
FUEL=XX(13)
ENGINE=XX(14)
EINE=XX(15)
XAOJ(1)=XX(16)
XAOJ(Z)=XX(17)
XADJ(3)=XX(18)
XACJ(4)=XX(19)
XAOJ(5)=XX(?0)
SINT=XX(21)
SINS=XX(22)
SLAUO8R=XX(23)
SWATER=XX (69)
STAX=XX(24)
ASES=XX( 25)
StTAX=XX(26)
MLLF=XX(27)
BOLF=XX(28)
CCLF=XX(29)
GRLF=XX(30)
SFUEL=XX(31)
SLUIB=XX(32)
SVAG=XX(3J)
SVBG=XX(34)
ELLF=XX(35)
AULF=XX(26)
XLILF=XX(37)
HVLF=XX(38)
SETV=XY(39)
ITYPE=XX(40)
MCVE=XX(41)
MTYP( 1)=XX(42)
XFET(I)=XX(43)
MROW( 1) =XX(44)
MCNT(I)=XX(45)
XNML(1)=XX(46)
MTYF(2)=XX(47)
XFET(2)=XX(48)
MRCW(2.'=XX(49)
MCNT(2;=XX(50)
XNMLt2;=XX(51)
MTYP(3i=XX(52)
XFET(3 =XX(53)
MRO( 3)=XX(54)
MCNT(3 =XX(55)
XKML(3,=XX(56)
MTYP(41=XX(57)
XFET(4 =XX(58)
M9;0~(4 t=XX(59)
MCNT(4.=XX(60)
XNML(4.=XX(61)
SSFTY=X (62)
PIVOT=X( 63)
BASE=XX(64)
STRTa=XX(65)
TOw=XX.o6)
IF(ITYvoE.EO.4.ANO.MOVE. EQ. 0)CVE=XFET( )
GO TC 31
21 CCNTIN'J-


INIT0550
I NIT 05S









Table 9. Continued


C POSSIBLE ARRAYS- CPS3.PIPE.PHOPUP3S*.9CLS.ENGITA(MULTeVC4,VV*CCNT, INIT0560
C OEVLRTGOS INI-0561
C
C READ DATA CARDS FCR AR=AYS IN FILE AGEhOUM CR COMPLEMENT CATA OASE
45 REAC(5.13)3G INI'OSA0
IF(SG.EQ.BGF.NOA(J))GO TO 31 INITO570
DO 40 M=1.13 IN!T0575
IF(SG.EQ.BGENDA(M))GO TO 41 INIT0580
40 CONTINUE INIT0595
WRITE(6.42)SG INIT05SC
42 FORMAT(1X.'ARRAY NAME '*A4.* NOT CORRECT') INITO505
STCP INIT0600
41 CONTINUE INIT 06C5
C
C READ DATA CARDS FOR CHANGES TO ARRAYS IN FILE AGENDUM OR
C CEFAULT COMPLEMENT DATA BASE
48 REAO(5.4J)IROW.(ICCL(N),VALU(N)*N=1.5) INITO-10
43 FORMAT(I2.5(I2.FlO.0)) INIT0615
IF(IRC'.Q.99)GC TC 45 INIT0620
GO TO(1,2,3.4,5..7,d,9.10.11,12,31 ).M INIT0625
C
C REPLACE DEFAULT VALUES IN CPS ARRAY WITH USER-SPECIFIED ENTRIES
1 IF(IPOW.GT.20) GC TO 101 TNIT063C
00 46 K=1.5 INIT0625
IF(ICCL( K).GT.9) GO TO 102 I:IT0640
46 CONTINUE INIT0 45
IT=0 INIT0650
47- IT=IT+l INIT0655
IFP(IRC.OQ.0.OR.ICCL(IT).EO.0G0 TO 70 INIT0660
CPS(IfOW. ICCL(IT))=VALU(IT) INIT0665
70 IF(IT.EO.5)GO 'C 48 INI'0670
GO TO 47 INIT0675
C
C REPLACE DEFAULT VALUES IN PIPE ARRAY WITH UTEP-,PECIFIEiC ENTIRE=
2 IF(IFCW.GT.50) CC TC 101 INIT0680
00 49 K=1.ti IN:TO695
IF(ICCL( K).GT.6)GC TO 102 INI-0690
49 CONTINUE INIT0695
IT=0 INITO7CO
60 IT=IT4I INI'0705
IF(IGRCW.?.O.OR.IC L(IT).FO.0)GOC T3 71 INIT0710
PIPE(IROWICOL(IT))=VALU(IT) INIT073T
71 IF( IT.EO.5)GO TO 48 INIT0720
GO TO 60 INIT0725
C
C REPLACE DEFAULT VALUES IN GEAR (GPHO) ARRAY WITH USER-SPECIFIEC ENTRIES
3 00 61 K=1.5 INIT0730
IF(ICCL(K).GT.11)GC TO 102 INIT0735
61 CONTINUE INIT0740
IT=0 INIT0745
62 IT=IT7 1 INIT0750
IF(ICCL(IT).EO.O)GO TO 72 INIT0755
GRHC(ICOL(IT'))=VALU(IT) INIT0760
72 IF(IT.EQ.5)GO TO 48 INIT0765
GO TO 62 INIT0770
C
C REPLACE DEFAULT VALUES IN PUMP (PUMPBS) ARRAY WITH USEPR-SPECIFIED ENTRIES
4 00 63 K=1.5 INIT0775
IF(ICCL(K).GT.4)GO TO 102 INIT0780
63 CONTINUE INIT0785
IT=0 INIT0750
64 IT=IT+1 INIT0795
IF( ICCL(T).EQ.O)GC T T 73 INIT0OO
PUMPBSCICOL(IT))=VALU(IT) INITOeOS
73 IF(IT.EO.5)GO TC 48 INITO810
GO TO 64 INI7015
C
C REPLACE DEFAULT VALUES IN STAGE (BOWLS) ARRAY WITH USER-SPECIFIED ENTRIES
5 IF(;IRCIGT.8) GO TC 101 IhITO820
CO SO K=1.5 INITOP25
IF(ICOL(K).GT.4)GO TO 102 INIT0830
80 CONTINUE INI'0335
IT=0 INIT0840
82 IT=IT+l INIT%!45
IF(IROW.EO.O.OR.ICOL(IT).EQ.0)GO TO 81 INIT0850
BOWLS(IROW.ICOL(IT))=VALU(IT) INIT0855
81 IF(IT.EO.5)GO TO 48 INIT0360
GO TO 82 INIT0865
C
C REPLACE DEFAULT VALUES IN ENGI (ENGIT) ARRAY WITH USER-SPECIFIED ENTRIES
6 IF(IRCW*GT.15)GO TO 101 IN!TO70
00 83 K=1.5 INI'0T75
IF(ICOL(K).GT.12) GO TO 102 INIT:O80
83 CONTINUE INIT0a85
IT=0 iNI-090
85 IT=IT+1 INIT0395
IF(IROW.eEO.O.CPICCL(IT).EO.O)GC TO 84 INIT0900
ENGIT(IROW.ICOL(IT))=VALU(IT) INIT0905
84 IF(IT.EO.5)GO TC 48 INITOCO0
GO TO 95 INITO915











Table 9. Continued




C
C REPLACE DEFAULT VALUES IN MUL' (XMULT) ARRAY WITH USeR-SP;CCIFrIro EN-'I-S
7 IF(IROI.GT.4AGC TC 101 INIT0920
DO e6 K=1.5 INITv925
IF(ICOL(K).GT.4) GO TO 102 INTI0930
86 CONTINUE INITQ035
IT=0 INIT0940
88 IT=IT+I INIT0945
IF(IPOW.EQ.O.OR.ICCL(IT).EQ.O)GO TO 87 INITO950
XMULT(IROW.ICCL(IT))=VALU(IT) INITO955
87 IF(IT.EO.5) GO TC 48 INI'0960
GO TC 88 INIT0965
C
C REPLACE DEFAULT VALUES IN VC4 ARRAY WITH USER-SPECIFIED ENTRIES
8 IF(IRCW.GT.4)GC TC 101 N INIT0970
00 90 K=1.5 INIT0975
IF(ICCL(K).GT.6)GO TO 102 INIT09RO
90 CONTINUE INITO9S
IT=0 INIT0990
91 IT=IT+1 INIT095
IF(IROw.EQ.0.OR.ICOL(IT).EQO.) GO TO 92 INITI000
VC4(IROWICCL(IT))=VALU(IT) INITIO05
92 IF(IT.EO.5)GO TO 48 INIT1010
GC TC 91 INIT11O5
C
C REPLACE DEFAULT VALUE IN CPOS (VV) ARRAY WITH USER--PCCIFIED ENTRIES
9 DO 93 K=1.5 INIT 10;
IF(ICCL(K).GT.5) GC TC 102 INIT10'5
93 CONTINUE INIT030
IT=0 INI'1035
94 IT=IT+1 INIT1040
IF(!CCL(IT).EQ.O) GO TO 95 INIT1045
VV(;CCL(IT))=VALU(IT) INIT1050
95 IF(IT.O-.5)GO TO 48 INITI055
GO TC 94 INIT1060
C
C REPLACE CEFAULT VALUES IN CONT*ARRAY WITH USER-SPECIFIED 9RNT;IES
10 IF (1ROW.GT.10) GC TC 101 INITI1S5
DO 96 K=1.5 INI-1140
IF (ICOL(K).GT.7) GO TO 102 INIT1145
96 CONTINUE INITI150
T =O INIT1155
98 IT=IT+1 INIT1160
IF (IROW.EC.0.CR.lCOL(IT).EQO.) GO TC 97 INITIf5
CONT(IROW*ICOL(IT))=VALU(IT) INIT1170
97 IF (IT.EQ.S) GO TO 48 INIT1175
GO.TO 98 INITl18C
C
C REPLACE DEFAULT VALUES IN DEVL (DEVLP) ARRAY-WITH USER-SPECIFIED ENTRIES
11 IF (1ROw.GT.3) GO TO 101 TNITlIEE
00 120 K=1.5 INIT1190
IF (ICOL(K).GT.5) GO TO 102 INIT195
120 CONTINUE INIT 200
IT=O INITI205
122 IT=IT+1 INIT1210
IF (IROW.EO.O.CR.ICCL(IT).EO.0) GO TO 121 INIT1215
DEVLP(IROW.ICCL(IT))=VALU(IT) INIT122C
121 IF (IT.EQ.5) GO TO 48 INIT1225
GO TC 122 INIT1230

C REPLACE DEFAULT VALUES IN TGDS ARRAY WITH USER-SPECIFIEO ENTRIES
12 IF (IROW.GT.2) GC TO 101
00 123 K=1.5
IF (ICOL(K).GT.5) GO TC 102
123 CONTINUE
.IT=O
125 IT=IT + 1 INIT1260
IF (IROW.EQO.0.CRICOL(IT).E0.0) G. TC 124 IhI
TGDS(IROW ICOL(IT))=VALU(IT) INITI27C
124 IF (IT.EO.5) GO TO 48 1NIT1275
GO TO 125 INI-1280
C
22 ISWIT1=I INIT 106
C ABOVE CALLS FOR MAXIMUM OUTPUT INITI070
GO TO 31 INIT1075
23 RETU-N INITIO80
24 STOP INIT1085
101 WRITE(6,110)IROW.SG INIT1090
110 FORMAT(IX*'ROW VALUE OF *I14,1 TCO HIGH FOP ARRAY *,A4.9-OATA CARDINIT1095
1 SKIPPED.-- EXECUTION CONTINUING') INIT1100
GO TO 48 INIT1105
102 WRITE(6.111) ICCL(K).SG INIT1110
111 FORMAT(IX.'CCLUMN VALUE '*14,' TOO HIGH FOR ARRAY ',A4,'-0ATA CARDINITIII5
I SKIPPED -- EXECUTION CONTINUING') INIT1120
GO TO 48 INITI12-
END INT1I130
//LKED.SYSLMOD CO OSN=UF.00011259.IOGPROG.LI,8DISP=OLO
//LKEC.SYSIN 00 *
NAME INIT(R)





32

If input entry (15), row number from ENGI array (EINE), is entered

negative, then it is now made positive in the main subroutine (Table 8,

following line 155).

Subroutine FIRST is called from the main subroutine (Table 8, line

160 and following).


Subroutine FIRST (Table 11)


The input form has four sections which allow for four types of

distribution lines [MTYP(I), I = 1,...,4] for the given irrigation

system (ITYPE). For center-pivot (ITYPE = 4), only one such section is

active, whereas three sections are allowed for with either traveling gun

(ITYPE = 5 or 6). The reference is to lines 42 to 61 in IDFLT.DATA4,

IDFLT.DATA5 and IDFLT.DATA6, above (Tables 5-7).

If the distribution line is a main line (above or below ground) or

a lateral [MTYPE(I) = 1 or 2, or 3; line 75], a corresponding coeffi-

cient of friction loss in ft. per 1000 ft. of line is computed [COEF(I),

line 80]. The subroutine FRIC (Table 10) is invoked here, where the

computation is based on Scobeyts formula for friction loss in distribh-

tion pipe using the pumping rate (GPM), the pipe diameter

[PIPE(MROW(I),3)], and the corresponding friction loss constant

[PIPE(MROW(1),4)]:


Table 10. FRIC subroutine to FIRST subroutine of ICG



//*ICG SUBROUTINE: FRIC
// EXEC FCRTGCL.REGION.FORT=8OK.PARM.LKED=OLET*LISTNCAL'
//FCRT.SYSIN 00 *
FUNCTION FRIC(GQ.C) FR IC0020
D=0/12. FR!C00?5
IF(C.EO.)C=1. FRIC0030
V=G/(448.8*3.416*( 0/2-)*2) FqICO035
FRIC=C*Vt**.9/O**I FIIC0040
RETURN FRIC0045
ENO FRICO050
//LKED.SYSLMOO DO OSN=UF.DOO11259.IRGPRGG.LIB.DISP=CLD
//LKED.SYSIN 00 *
NAME FRIC(R)






33
This loss is compared with the maximum pressure loss allowed in the

pipe (FETV, line 85), and if excessive, the pipe size can be optionally

increased [MCNT(I) = 0] to the next larger pipe (lines 90 to 150). If

there is no larger pipe available [PIPE(MROW(I)+1,3) = 0.0], the

original pipe is retained (line 125).

If the option to increase pipe size has been invoked [MCNT(I) = 0],

and a larger pipe is selected from an available set, then a new friction

loss is computed (lines 155, 80) The cycle of friction head loss com-

parison and pipe selection is repeated until a large enough pipe is

found, or no larger pipe is available. Then the current pipe is

retained (lines 85, 125, 160).

Pipe sizes of alternate main lines or alternate laterals [MTYP(I) =

6, 5, or 4] are set to the current sizes of corresponding main lines or

laterals [MTYP(I) = 1, 2, or 3], referring to the five lines following

line 160.

Feet of total, friction loss in laterals (FRICL for MTYP(I) = 3,

line 180) and in main lines (FRICM for MTYP(I) = 1 or 2, line 185) are

computed and totalled (FRICT, line 190). These are converted to psi

(PSIL, PSIM; lines 191, 192) and the total pressure (FRICT/2.31) is

added to the pressure at discharge (or irrigation system operating

pressure)(PSIA) to obtain the required pressure at the wellhead (PSIW,

line 195). Next, feet of total dynamic head (TDH, line 200) then water

horsepower (WHP, line 205) are determined. (For traveling gun systems,

23.1 feet of extra head are added to the TDH (following line 200) to

drive the system.)

Total acre-inches of water to be applied, on the average, over the

long run (ACINAV, line 211) and short run (ACIN, line 210), and corre-







34


spending hours of operation (HRSAV, HOURS; lines 216, 215) of the sys-


tem, are calculated*


Total water charge on (short-run) water to be applied is Computed


(WCOST, line 217), but is not currently used.



Table 11. FIRST subroutine to main control program




//*ICG SUBROUTINE: FIRST
// EXEC FORTGCLPARM.LKEDOOLETLISTNCAL,
//FORTeSYSIN DD *
SUBROUTINE FIRST(GPM*WLIFT.PSIA.PE.TACST.ANYR.TDHOACINo.*URSwMP. FRSTOO20
IPIPEeFRICL*FRICM.FRICT.PSIWMTYP.XFETNMROWeXNMLeMCNTsCOSFoSETV.

DIMENSION PIPE(50.5).COEF(4),MTYP(4).XFET(4),MPOw(41)XNNL(4)MCNT(FRST0030
14)*ANS(4.3) FST3
COMMON/PSI/ PSIM.*SIL FRST0035
COMMON/AVAPP/ANYRAV*ACINAV.HRSAV
COMMON/WATEP/WCOST.SWATER FRSTO037
DATA ANS/4HABOV*4HBELO,4HLATE94HEXTRe4HE GRe4MH GR94HRAL 4HA PloFRST040
I4HOUNO4HOUNOD4H 4HPE FST4
DO 700 1=1.4 FRST0045
700 COEF(I)=0.0 FRSTO0SO
IF(MCHCK.EO.2)GO TO 730 FRSTOOS
WRITE(6.702) FST
702 FCRMAT(I1HI FRST0060
730 CONTINUE FRSTO06E
CO 701 1=1.4 FRST0070
IF(MTYP(I).EOQO.CR.MTYF(I).GT.3)GO TO 701 FPSTO075
C
C CALL SUBROUTINE 'FRIC* AS A FUNCTION OPERATION FOR MAIN LINES CR
C LATERALS ONLY
725 COEF(I)FFRIC(GPM.PIPIE(ROW(I).3).PIPE(MROW(I).4) FRST080
C
C CONVERT MAXIMUM PRESSURE ALLOWED FROM PSI TO FEET
FETV =SETV*2.31 FRST0081
C
C COMPARE FEET OF FRICTION LOSS SMITH MAXIMUM ALLOWED
IF(COEF(I).LT.FETV) GC TO 701 FRSTOO0S
C
C FRICTION LOSS EXCEEDS MAXIMUM ALLOWED PIPE SIZE CANNOT BE INCREASED
IF(MCNT(I I.S 1)ITE(6.703)(ANS(MTYP(I).L .L It3).I FRSTO090
703 FORMAT(IX.'***LARGER **3A4.' PIPE RECOMMENDED FOR DISTRIBUTION LINEFRST009S
ISECTIONO.I29* BUT NONE ALLOWED****) FRSTOI00
IF(MCNT(I).EO.1)GO TO 701 FRSTO0OS
C
C FRICTION LOSS EXCEEDS MAXIMUM ALLOWED PIPE SIZE CAN BE INCREASED
IF(PIPE(MRO(I )+1 .3).EQO.0) WRITE(6.704)(ANS(MTYP(T),L).LI,.3).IFPST0110
704 FORMAT(IX,'***LARGER *.3A4.* PIPE RECOMMENDED FOR DISTRIBUTION LINFPST0115
IE SECTION*12.' BUT NONE AVAILABLE***) FRSTO120
IF(PIPE(MROW(I)+1 ,3).EQO.0O)GD TO 701 FRST0125
C
C INCREASE PIPE SIZE
MROW(I)=MROW(I)+* FRSTO130
wRITE(6.705)PIPE(MROW(I)-1 .3),PIPE(MROW(I).3).I.J FRST0135
705 FORMAT(IX.***PIPE SIZE IS BEING CHANGED FROM *.F5s.e1 TO .FS5.1.SFRST0140
I TO PROPERLY MOVE GPM DESIRED FCR DISTRIBUTION LINE SECTIONS*'212.FRSTO145
2' ***e) FRSTOI50
C
C RECOMPUTE FRICTION LOSS ON LARGER PIPE
GO TO 725 FRST01S5
C
C IF PIPE IS NEITHER MAIN LINE NCR LATERAL CR
C IF FRICTION LOSS DOES NOT EXCEED MAXIMUM ALLOWED CR
C IF PIPE SIZE IS NOT TO BE INCREASED OR
C IF A LARGER PIPE IS NOT AVAILABLE
701 CONTINUE FRSTOI60
DO 707 1=1.3
DO 707 J=2.4
IF (MTYP(I).EO.1.ANO.MTYP(J).EQ.6) MROW(J)=MROW(1)
IF (MTYP(I).EO.2.ANC.MTYP(J).EQ*5) MROW(J)=MROW(I)
707 IF (MTYP(I).EO.3.ANhD.TYP(J).EO.4) MROW(J)=MROW(I)
FRICL-0.0 FRST0165
FRICM=-. FRST0170
00 706 I11.4 FRST0175










Table 11. Continued


C
C SCOBEY'S FOFULA FRICTION LOSS IN FEET / 1000 FSET
IF(MTYP(I).EU.3)FPICL=F=ICL4CC5F(I)*XF=T(I)/1000.0*.7 FPST0190
706 IF(MTYP(I).COQ..CR.MTYP( I). EQ.2)F IC=FRICM+CCEF(I *XFET(I)/1000.OFRST0195
C
C FRICTION LGSS TOTAL : LATERAL + MAIN LINT
FRICT=FRICL+FPICM FRST0190
C PRESSURE LCSS IN PSI / 1000 FT
PSIM=FRICM/2.31 FRST0191
PSIL=FRICL/2.31 FR3T0192
C
C PRESSURE AT WELLEEAD
PSIW=PSIA+(FRICT/2.31) FRST0195
C
C TCTAL DYNAMIC HEAC
TDH=(2.31rcSIw)%*ILIFT FRST020C
C
C 10 PSI EXTRA HEAC TO CRIVE TRAVELLING GUN SYSTEMS
C IF (ITYPE.GT.4) TOH = TOM + 23.1
C WATER HORSEPOWER
WMP=(TCH*GPM)/3960.0 FRST0205
C ANNUAL ACRE-INCHES ON FARM : SHCRT--UN
ACIN=TACST*ANYR FRSTO210
C ANNUAL ACRE-INCHES ON FARM : LCNG-RUH
ACINAVATACST*ANYRAV FRST0211
C HOURS OF LASCUR Ch FARM : SHCPT-CUN
HOURS=452.5/GPM*ACIN FRST0215
C g
C HCURS OF LABOUR GO FARM : LCNG-RUN
HRSAV =452.5/GPM*ACINAV FRST0216
C
SC CHARGE UN *ATER PRCCUCEO
bCOST=SWAT:F*ACIN FPSTOPt7
RETURN FRST0275
ENO FRST0280
//LKED.SYSLMOD 00 DSh=UF.00011259.IRGPRCG.LIB.OISP=CLO
//LKED.SYSIN 00 *
NAME FIkST(R)



Subroutine HRFIND is called from the main subroutine (Table 8,


following line 160) if EINE had been entered as negative. (Otherwise,


subroutine PUMP is called-Table 8, following line 160, and lines 170 to

180).



Subroutine HRFIND (Table 12)



The brake horsepower is obtained for an engine selected from the

engine (ENGI) array on the basis of the value of EINE and fuel type

(FUEL). A derating factor (DERATE), is adjusted for altitude [XADJ(1)],

temperature [XADJ(2)], and whether a heat exchanger is used [XADJ(3) =


1.0] in place of a radiato. -nd fan. A drive efficiency (DE) is


selected on the basis of the type of drive [XADJ(5)1. The water horse-

power. (WHP) is calculated from: the, brake, horsepower (PHP) of. there













selected engine, the derating factor (DERATE), the drive efficiency

(DE), and the given pump efficiency (PE).

A pumping rate (GPMI) is computed as a function of this water

horsepower (WHP), anA the previously computed total dynamic head

(TDH). If the computed pumping rate (GPMI) exceeds the given pumping

rate (GPM2 = GPM) by 1 percent or more, then GPM2 is equated to GPM1 +

0.80 (GPM1 GPM2). If GPM1 is less than GPM2 by 1 percent or more,

then GPM2 is equated to GPM1 + 0.20 (GPM2 GPM1). Otherwise, the

given pumping rate is retained. If GPM2 cannot be retained and is re-

evaluated, as indicated above, then the subroutine FIRST is recalled

(Table 11) and the "new" given pumping rate is incorporated in itera-

tively recomputing friction loss (Table 10) and optionally selecting

larger piping (Table 11, lines 90 to 155). A new wellhead pressure

(PSIW, Table 11, line 195) is obtained and also a new total dynamic head

(TDH, Table 11, line 200 and following).

The program returns to subroutine HRFIND (Table 12) where a "new"

computed pumping rate (GPM1) is calculated from the previous WHP

(obtained from the brake horsepower of the selected engine: see above)

and the new TDH. The above comparison of GPM1 with GPM2 is made a

second time. Thirteen more iterations are allowed for if GPM1 does not

fall within 1 percent of GPM2. If GPM1 does fall within 1 percent of

GPM2 at some iteration, or, after all 15 iterations, the current value

of GPM2 is retained.








37

Table 12. HRFIND subroutine to main control program





//*ICG SUBRCUTINE: HRFINO
// EXEC FCRTGCL.PARM.LKEO='L5T.LIST.NCAL'
//FORT.SYSIN 00 *
SUBROUTINE HRFIN3(GPMowLIFT.PSIA.PE.TACST.ANYP.eTM.ACIN.HOURS. WHP,
IPIPE.FRICL.FRICMFP.T.PSI W,MTYP.XFET.MRCW.XN L.MCKT.CCEF.SETV,
2FUEL.ENGIT.XACJ,MCHCK.FINE)
DIMENSION PIPE(50,6).CC5F(4).MTYP(4),XFET(4),MDOW(4 ).XNML(4),
1MCNT(4) ANS(4,3).ENGIT(15.12),XAOJ(5)
ICNT=O
MCHCK=2
WRITE(6.16)
16 FORMAT(tIX.SX.'TUH',XHOUQS'.s5X. GPMI',6X,'GP42*,7X,'WHpe 7X.eRMP
t*,7X.*PHP')
C
C ITERATION COUNT : 15 ALLOWED
15 ICNT=tCNT*+
IF(ICNT.GT.1)GC TC 12
GPM2=GPM
12 CONTINUE
IRw=EINE
IF(FUEL.EQ.1)ICL=4
IF(FUEL.EQ .2 )CL=4
IF(FUEL.EC.3)ICL=8
IF(FUEL.EQ.4)ICL=1
C
C SELECT BRAKE HCRSEPOWER TO BE USED SASFD ON ZNGINF ROW NUMBER (ZINE) GIVEN
C ANO FUEL TYPE (FUEL)
PHP=ENGIT(IRW.ICL)
C
C ASSESS DERATING FACTOR BASED CN FUEL TYPE. ALTITUDE AND TEMPEFATUPE
OERATE=1.0
IF (FUEL.EQ.4.0) GO TO 11
IF (FUEL.EQ.2.0) OERATE=1.00
OEPATE=OERATE-(.XAOJ(1)/10000.)*3.0
XY=XAOJ(2)-60.
XY=XY/I0.
IF(XY.LT.O.0)XY=0.0
CERATE=CERATE-XY/100.
IF(XAOJ(3).EQ..0)CERATE=DERATE+0.05
11 BHP=PHP*OEPATE
C
C ASSESS DRIVE EFFICIENCY BASEC ON TYPE CF DRIVE
DE=1.0
IF(XADJ(5).EQ01.O)DE=0.97
IF(XAOJ(5).EO.2.O)CE=O.95
IF(XAOJ(5).E0.3.C)CE=0.80
C
C COMPUTE WATER HORSEPOWER BASFC CN DESIRED ENGINE: SIZE,
bPHP=HP*E*FE
C
C COMPUTE PUMPING RATE (VARIES lITH TOM)
GPMt=MHP*3960./TCH
WRITE(6.18)TDHHCURS.GPM 1,GrM2,WHPC-P,PI-P
18 FORMAT(IX,7F10.3)
C
C COMPARE COMPUTED PUMPING PATE WITH GIVZN PUMPING PATE
IF(GPMI.GTe(GPM2+0.01*GPM2))GG TO 3
IF(GPM1.LT.(GPM2-0.O01GPM2))GC TO 2
C
C RETAIN CURRENT *GIVEN PUMPING RATE'
GPM=GPM2
RETURN
C
C REEVALUATE 'GIVEN PUMPING RATE*'
2 GPM2=GPM1+0.2(GPM2-G;PM1)
GG TO 4
3 GPM2=GPMt+0.8*(GPMl-GPM2)
A4 CONTINUE
C
C ITERATION MONITOR : 15 ALLOWED
IF(ICNT.GT.15)GO TC 20
C RECALL SUBRCUTINE 'FIRST' : A NEW TDO IS GENERATE
CALL FIRST (GPM2.HLIFT.PSIIAPETACSTeANYPTDHMACIN.HCURSwHP,
IPIPS.FRICLFRICMeFR ICT.PSIWMTYP.XFETMRCWXNMLMCNT*COEF. SETV
ZMCHCK)
GO TO 15
20 wRITE(6.21)
21 FORMAT(1XX'TOO MANY ITERATIONS THE SYSTEM CAPABILITY GPM IS THE
IONE USED IN THE CONTINUING EXECUTION')
C
C RETAIN FINAL CURRENT 'GIVEN PUMPING RATE'
GPM=GPM2
RETURN
END
//LKED.SYSLMOD 00 DSN='JF.00011259IRCGPPOG.LIS.DISP=CLO
//LKED.SYSIN DO *
NAME HRFIND( )






38

Subroutine PUMP is called from the main subroutine (Table 8, line

170 to 180).


Subroutine PUMP (Table 13)


A maximum production rate of 1600 gpm is set, thus allowing for

eight 200-gpm ranges, accomodated by three pumpbase sizes (lines 40 to

65). Within each range, the number of !required stages (NBOWL; e.g.,

line 75) is estimated based on TDH and dynamic head per stage. Should

the column size [CPS(I,2), where I, associated with CPS, is the row

number from the CPS array] be larger than the pumpbase in the 200-gpm

range corresponding to the estimated number of stages (NBOWL), then the

first larger 200-gpm range will be selected where the corresponding

pumpbase size will equal CPS(I,2) (e.g., lines 76, 77).

If the user specifies the number of stages (NBWL), and if this

differs from the estimated number (NBOWL) by more than one, then NBOWL

is used (e.g., lines 78 to 83). Otherwise, NBWL is used in the program

(e.g., line 84).

The cost of stages ($BOWL; e.g., lines 85 to 106) is assessed by

adding to the cost of the first stge [BOWLS(*,1)], the cost of all

additional stages [BOWLS(*,2) (NBOWL-1) or BOWLS(*,2) (NBWL-1)]

The depth setting of the column pipe (COL) must be at least 20 feet

deeper (lines 385 to 393) than the pumping depth to vater (WLIFT). COL

is adjusted to be a multiple of 20 feet with (lines 395 to 407, 411), if

necessary, an additional 10 feet (lines 415, 421). The cost of the

column ($COL, lines 410, 415, 420) is based on the number of 20-foot

sections (NCOL), any necessary 10-foot section, and the corresponding

unit costs of column pipe [CPS (1,6), CPS(I+10,6)].








39

The strainer and suction pipe costs are obtained directly from the


CPS array [CPS(I,8), CPS(I,9), line 445].


Drive efficiency (DE) is determined from XADJ(5)(lines 450 to 465)


and brake horsepower (HP, line 470) is calculated from WHP using PE and

DE. The cost of the gearhead ($GRHD) is selected on the basis of HP,


from the GRHD array (lines 480 to 525).

The pumpbase cost ($PUMBS, lines 535 to 550) is based on pipe


diameter [CPS(1,2)][and shaft diameter (CPS(I,4)) if CPS(I,2) is no

greater than six inches].

The total cost of pumping system ($PUMP) is the sum of the costs of


stages, column pipe, strainer and suction pipe, gearhead, pumpbase (line


560).



Table 13. PUMP subroutine to main control program



//*ICG SUBROUTINE: PUMP
// EXEC FCRTGCL.PEGICN.FORT=80KPARM.LKED=*LETLISTNCAL*
//FORT.SYSIN 00 *
SUBROUTINE PUMP(GPC.DEPTH.TDHI ,tSOWLSCCL.sCPHD.SOUMP.HP.COL. STSPUMP0020
1UC.sPUMBS.OCWLS.CPS.GRHDPUMPOS.JCOLJJCCL.N8CWLCCST1,CCST2.NCCL.PUMP0025
IFUELWHP NOiWLXACJ.PFODE.LIF") PU'PO030
DIMcNSION BCLS(8.4).CPS(20.10).GRH0(11),PUMPBS(4)eXADJ(5) PUMP00.5
C MAXIMUM GAL/MIN IS 1600 PUP00O40
N=INT(GPM)/200 PU'P0045
A=AnCD (GPM.200. ) PUMDOOfEC
IF(A.GT.0.0)N=N+1 PUMP0055
IF(N.GT7.)GO TO 25 oUMP0060
GC TC(1 2.3.4.5.6.7,8),N PUMP00C5
C COMPUTE COST OF BCWLS PUMP0070
C
C 0 STAGES TO PUMP NCT MORE THAN 200 GPM THROUGH 6-INCH DUMP BASE, EACH
C STAGE TC LIFT 20 FEET.
I NBOWL=,'DH/20 PUMP0075
C
C LARGER COLUMN PIPE SIZE REQUIRES DIFFERENT PEP-STAGE LIFT
IF (CPS(I.2).EQ.6.) GO TO 4 PUMP0076
IF (CPS(I.2).'Q.10.) GO TO 6 PUMP0077
C.
C ACCEPT USER-REQUESTED NUMBER CF STAGES IF WITHIN 1 OF ESTIMATED NUMBER OF
C STAGES. OTHERWISE. USE ESTIMA.TrD NUMBER OF STAGES
IF ((NBWL..EQO) .C;.( ( NwL.GT.0) AND. (NBOWL-1 .Ls.NNWL).AND.(NBWL.LEPUrMP0078
1.NBCWLI))) GO TO 101. PUMP0379
WRITE(6.110)NeWL PUMPOO80
110 FCRMAT(IX.*WARNING: *.110.' IS AN INEFFICIENT NUMBER OF STAGES. ANPUMP0081
1 ADJUSTMENT WILL BE MAOE.') PU-P0082
t10 NeOWL = NBOCL- t PU'P0083
IF ((NeNBL.GTe0).ANO.(NBOWL-1.LE.NaWL) AND. ( NBWL.LENBOL+1) ) NBOWLPLM".00a4
1=NBWL-1
C
C COMPUTE COST OF STAGES : COST OF FIRST STAGE PLUS COST OF ALL ADDITIONAL
C STAGES
COSTt=BOWLS(I.1) PUMP0085
CCST2=BOCLS (12) PUMP0090
IF(CPS(I 4).EQ.1.25)COSTI=BCWLS( ,1 ) PU4POOS5
IF(CPS(I.4).EQ.I.25)COST2=BObLS(1.2) PU.PO 100
sCWL=(NBGWL*CCST2+COSTI) PURP01O05
NBOWL=N806L+ 1 PUMOO106
C FINO HORSEPCWER REQUIRED PUMo0110
GO TO 10 PUP0115








40

Table 13. Continued


C
C NUMBEP OF STAGES TC PUMP 200+ 400 GPu THROUGH 6-INCH PUMP BASE.
C EACH STAGE TC LIFT 28 FEET
2 NBOWL=TOH/28 PUuo0120
IF (CPS(I.2).EO.e.) GC TO 4 PUIPO121
IF (CPS(I.2).EO.IO.) GO TO 6 PU'O0122
IF ((NBWL.EO.0 ). CR .((NBWL.GT.0).ANO. (NBOWL--1LE.N8WL).ANOD (NSWL.LPU'JMPO122
1.NBCWL+1))) GO TC 201 PU".PO Z4
WRITE(6.110)NBML PUMPO125
201 NB8tL = NBOL-- I PlMP012e
IF ((NBWL.GT.0).ANO.(N80WL-1.LE.NoWL).AND.(NB'L.LE.NBCWL+t)) NeOWLPUMP0129
1=NBWL-
CCST1=BOWLS (2.1)
COST2=BOWLS(2,2)
IF(CPS(1.4).Ea.1.25)COSTI=BOWLSt2.1) PlMP0140
IF(CPS(I.4).EQ.1.25)CCST2-=CWL5 2,2) PUMP0145
BO0WL=(Nai3CGL*COST2+COST ) PUu0m01
NeBOL=NBOWL+t ",'J"10 I
GO TO 10 PU.AIFES
3 NtdObL=TOH/42 PUMRP0160
C
C NUMBER OF 3T4GFS TC PUMP 400+ o30 GPM THROUGH 6-INCH PUMP BASE.
C EACH STAGE TC LIFT 42 FEET
IF (CPS(I.2).EO.P8. GO TO 4 PU-POII
IF (CPS(I.2).EQ.10.) GO TO 6 PUMP016?
IF ( (NBWL. EO.0) .C ( NB 'L.GT.0 ) .AN ( NBCWL-I .LE.NBWL) .AND. (NBWL .L EPUMP 0163
I.Na8GWL ))) GO TO 301 CUuM01'~4
PRITE(6.110)NtWL PUMPOI0 5
301 NBOL = NBCWL- 1 PUMP016
IF ((NBWL.GT.0).A4NO.(NL3OL-I1.LE.N9WL).AND.(NB9WL.LE.NRCWL+1)) NEOWLPUM:P0169
I=NBL-1
COSTI=ROWLS(3. 1 PUMP0170
COST2=BGWLS(3.2) PUMP0175
SBOCL=(NBOGL*CCST2+COST1) PUMP010
N80WL=NBOCL+1 PUMP 0I
GC TC 10 PU'AP0185
C
C NUMBER OF STAGES TO PUMP 600+ 00 GPM THROUGH 8-INCH PUMP BASE.
C EACH STAGE TO LIFT 42 FEET
4 NBOWL=-TDH/42 PUMP0190
IF (CFS(I.2).EQ.10.) CO TO 6 PUMP 92
IF ((NBWL.EO.O).CP.((NeWL.GT.0).ANO.(NBOtL-1.LE.N8WL).AND.(N8%L.LEPU4POtq
l.NBOL+1))) GO TO 401 PUMPO194
WRITE(6.110)NOWL PUMPO195
401 NBOWL = NBCUL- I PUMP 0198
IF ((NBaL.GT.O).ANC.(NBOWL-1.LC.NBWL).ANO.(NBWL.LE.NBCWL+1)) NBCWLPUMP0199
I =NBWL-1
COSTI=BOWLS(. 1) PUMP0200
COST2=BOWLS(4.2) PUMP0205
SBOWL=(NROWL*COST2+CCST1) PUMPO010
NBOWL=NBOWL+1 PUMP 0211
GO TO 10 PUMP0215
C NUMBER OF STAGES TC PUMP 800+ 1000 GPM THROUGH 8-INCH PUMP BASE.
C EACH STAGE TC LIFT 60 FEET PU 22
5 NBOWL=TDH/60 PUMP022
IF (CPS(I.2).0O.10.1 GO TO 6 PUMP0221
IF ((NBWL.EQ.O).C. ((NeWL.GT.0).ANO.(NBCWL-I.L.N-IL).ANO.(N6WL.LEPUMPO??2
1.NBGWL+1))) GO TC 501 PUMP0224
WRITE(6.110)NBWL PUMP0225
501 NBOIrL = NBOWL- I PUMP0228
IF ((NBWL.GT.0).ANO.(NBOWL-I.LE.N9WL).AND.(NBWL.LE.NBCWL+I)) NBOCLPUMP0229
I=NBWL-1 PUP 02o 0
CCST1=BO-8LS(5.1) PUMPO23
COST2=BCWLS(5.2) PUMP0235
IF(CPS(I.4).EQ.1.94)COSTI=BOWL-(5.1) PUMPO240
IF(CPS(I.4).EO.1.94)CCST2=BCWLS(5.2) PUP0245
SBOL=(NBCtWLCOST2+COSTI) PUMP0250
NBOWL=NBOWL+1 PUMP0255
GO TO 10 PUMP02S5
C NUMBER OF STAGES TO PUMP 1000+ 1200 GPW THROUGH 10-INCH PUMP BASF.
C EACH STAGE TO LIFT 64 FEET
6 NBOWL=TDH/64 PUMP0260
IF ((NBeWLEO.0).OR.((NBWL.GT.0).ANO.(NBOWL-1.LEs.NBWL).ANO. (NBWL.LEPUP0263
1.NBCWLL+1))) GO TC 601 PUMP0265
WRITE(61 10)NBWL PUMP0265
601 NBOWL NBOWL- I PUMP0268
6 IF ((NBWL.GT.0).NC. (NBOWL-- .Le.NBWL).AN. (NBSL.LE.NBOWL+I)) NBOWLPUMP0269
1=NB8L-1 PUP0270
COST 1=BOWLS (6. 1) PUMP0275
CCST2=BCOLS (6.2) PUMP02 7
IF(CPS(I.4).EOQ.194)COST1=0C1LS(6l.) PUM~ 02
IF(CPS(I.4) Q. 1.94)COST2=-lOiWLS(6 .2) PUMPO2S0
SBOWL=(NOCWL*CCST2+COST1) PUMP0290
NBOWL=N80CL+1 PUMP0295
GO TO 10










Table 13. Continued


C
C NUMBER OF STAGES TC PUMP 1200* 1400 GPM THROUGH- 10-INCH PUMP BASE,
C EACH STAGE TO LIFT 64 FEET
7 NBOSL=7TH/64 PUM00300
IF ((NBWL.O.0) .C;.((NeWL.GT.0).AND.(NBOWL-tLES.NBWL).ANO.(NBWL.LEPUMPO303
1.NBCWL+1))) GO TC 701 PUMPO204
WRITE(6,110)NaWL PUMP0305
701 NBOWL = NBCWL- 1 PUMP0308
IF ((NBWL.GT.0).ANO.(NBOWL-l.LS.NSWL).ANO.(NBWL.LE.NBOWL+i)) NDOWLPUMP030S
1=NBWL-1
COST1=80WLS(7.1) PUMP0310
COST2=BOWLS(7.2) PUMP0315
IF(CPS(I .4) .1 .4)COST1=3CWLS(7.1) PUMP0320
IF(CPS(I.4).Q.1i.94)COST2=BOWLS(7*.) PUMPO325
SHOIL=(NHOtL*COST2+COST1) PUMP0330
NeCOL=NHOtIL+ PUMP0331
GO TC 10 PUMP0335
C
C NUMBER OF STAGES TO PUMP 1400+ 1600 GPM THROUGH 10-INCL PUMP eASE.
C EACH STAGE TO LIFT 54 PET
8 NBOmL=TOH/54 PUMP0340
IF ((N~WL.EC,.0).CR.((NSWL.GT.0).ANO.(NRCWL-1.LE.Ne*L).AND.(NCWL.LEPU'.P0342
I.NBCWL+l))) GO TC 501 PUMP0344
WI TElt.11J )NBwL PUMP0345
801 NBOWL = NBChL- 1 PUV'Oo48
IF ((NEBL.GT.O).AND.(NBWL-1.LE.NdL).AN.NBWL.LE.NBOLI)) NOCWLPUVP0349
1=NB8L-1
COST1=6OWLS(8.1) PUMP0350
CCST2=eOWLS(a*2) PU'A0355
IF(CPS(I.4).Oa.I.04)CCSTI=BGWLS(8.1) PUMPO360
IF(CPS(I .4).EQ.194)COST2=CLLS(S .2) PUMP0365
S80WL=(NBOWL*COST2+COST) PUMP0370
NBOWL=NBOWL+1 PIMP0371
GO TC 10 PU'P 0375
C COMPUTE CCLUMNPIPEAND SHAFT COST PU1PO380
C
C ADJUST COLUMN PIPE TC RE 20 FEET DEEPER THAN DEPTH TC WATER (WLIFT)
10 IF(CCL.EO.0.)GC TC 11 PUMP03e5
XXCCL CCL-20. PU"P03P6
IF (XXCCL.GE.wLIFT) GC TO 12 PUMP03E7
WRITE(6.20)CCL PU'P0388
20 FORMAT(1X.*'ARNING:DEPTH SETTING OF COLUMN PIPE ('.F10.0.P FIET) PUtIP03S9
ITO0 SHALLOW.') PUuP03O0
11 CCL = LIFT + 20. PUMP0391
WRITE(6.21)COL PUMP0392
21 FORMAT(IX.'CEPTH SETTING CF COLUMN PIPE :ESET TO'.F10.0.' FE6T.*) PUiMP03g3
C
C DETERMINE NUMBER OF 20-FOOT SECTIONS
12 XCCL=CCL/20. PUMP03qJ
NCOL=XCOL PUMP0400
A=AMOC(COL.20.) PUMP0405
IF (A *GT. 0.0) AX = A 10.0 PUMPO406
IF (AX.GT. 0.0) NCOL = NCCL + 1 PUMO0407
C
C COMPUTE COST CF 20-FCOT SECTIONS
13 SCOL=NCCL*CPS(I,6) PUMP0410
C
C COMPUTE LENGTH OF 20-FOOT SEC'ICNS USED
COL = NCOL 20. PUMD0411
C
C COMPUTE COST CF 10-FOOT PIPE IF NEEDED PUDO0415
IF ((AX.GT.O.).CR.(A.EQO.0.0)) GO TO 14
SCOL = SCOL + CPS(I+10.6) PUMP0420
C
C EXTEND COLUMN PIPE LENGTH BY t0 FEET, IF NEEDED
COL = COL + 10. PUMP0421
14 JCCL=I PUP04 25
JJCCL=O PLMP0430
IF ((AX.LE.0.0).AND.(A.GT.0.d)) JJCOL=I
C
C COMPUTE STRAINER AND SUCTION COST PU"P0440
15 SSTSUC=CPS(I.8)+CPS(I,9) PUMP0445
C
C ASSESS DRIVE EFFICIENCY BASED ON TYPE OF DRIVE
DE=1.0 PUMP0450
IF(XAOJ(S).EO.1.0)DE=0.97 PUMP0455
IF(XACJ(5).EO.Z.0)DE=0.95 PU'P0460
IF(XACJ(5).EO.3.0)CE=0.80 PUMP0465
C
C COMPUTE (NON-0ERATED) BRAKE HORSEPOWER
HPW=HP/(PE*OEJ PUMP0470
C
C COMPUTE GEAFHEAD COST PUMP0475
IF(HP.GE.375)SGRHD=GRHD(11) PUMP0480
IF(HP.LT.375)sGPHO=GQHD(10) PUMP0485
IF(HP.LT.275)SGRHO=GRHD(9) PUMP0490
IF(HP.LT.200)SGRHD=GRHO(8) PUMP0495
IF(HP.LT.150)SGPHO=GRHD(7) PUM0500
IF(HP.LT 125)SGRHO=GRHD(6) PUP05S01
IF(HP.LTI.00)$GRHD=GRHD(5) PUYP0505
IF(HP.LT.80)SGRHC=GRHC(4) PUMP0510
IF(HP.LTi60)SGRHO=GRHO(3) PUMPOS15
IF(HP*LT 40)SGRHC=GRHO(2) PUP0520
IF(HP.LT.20) GRHC=GRHC(I) PUMP0525










Table 13. Continued

C
C COMPUTE PUMP BASE COST PUMP0530
IF(CPS( 2).LE.10 )sPUMBS=PUMPe (4) P. MP0535
IF(CPS( 1.2).LE.a)SPUM.S= PUMPOS(3) PUMP0540
IF (CPS( I. 2).LE.6.AND.CPS( ,4 ).GL-. 1. 5)PUMS=PUwPS(2) PUMPO45
IF(CPS( 1.2) .L=.6.ANC.CPS( I ).LT.1.5)IPUM9S=PU4MPS (1) PUMP0550
C
C COMPUTE TOTAL WELL COST PUMP0555
SPUMP=SROWL +SCCL+sSTSUC*'SGRHO+PUMtlHS PUMPOS60
RETURN PUMPO565
25 WRITE(6.26)GPM PUMP0570
26 FORMAT(IX.'GALLONS PER MINU'5 SET AT '*F10.1, WHICH IS ABOVE 'H PUMP0575
t MAXIMUM OF 1600 ALLCWtD*) PU405S80
STCP PUMP0585
END PUMP0590
//LKED.SYSLMOO DC 3SN=UF.C0011259.IRGPROG.LIB, ISP=OLD
//LKEDOSYSTN DD *
NAME PUMP(R)




Subroutine IRCOST is called from the main subroutine (Table 8, line

185 to 210).


Subroutine IRCOST (Table 14)


A derating factor (DERATE) is computed, based on altitude [XADJ(1),

line 125], temperature [XADJ(2), lines 130 to 145] and the use of a heat

exchanger [XADJ(3) = 1.0] in place of a fan and radiator (line 150).

BHP (= HP, Table 13, line 470) from the previous subroutine is derated

(Table 14, line 160).

The user specifies the desired engine type or motor by FUEL and

engine or motor size by EINE (e.g., lines 165 to 175). Optionally, the

program uses FUEL (e.g., line 165) and the derated brake horsepower

(XHP) to select the appropriate engine or motor type and size, respec-

tively (e.g., lines 180, 185). (This selection is constrained (e.g.,

lines 180 to 210) by the availability of the required power unit of size

just greater than XHP.) The total cost of power unit (AMTR$) comes

directly from the ENGI array and includes the cost of any complementary

device such as a control panel for an electric motor (e.g., line 215).

Power unit average variable costs [VC(3,*)] are computed for fuel







43
(line 310), lubrication (line 315), repairs (lines 325, 326) and labour

(line 330).

Pump average variable costs are assessed for repairs only [VC(2,3),

line 340].

The number of above- (AGV) and/or below-ground (BGV) valves needed

are computed for any main lines specified [MTYP(I) = 1, 2, 5 or 6] in

the four input sections (lines 366 to 371). The center-pivot system has

no valves (lines 366, 371). The costs of main line piping (line 375),

valves (lines 385, 390), control head (following line 390 to line 402)

and total main line assembly (line 395) are computed.

The- cost of lateral distribution lines [MTYP(I) = 3 or 4] are

computed appropriately for the various systems (lines 400 to following

line 650). The distribution system average variable costs on- repairs

[VC(4,3)] are computed differently for center-pivot (line 600) than for

other irrigation systems (following-line 650). System average variable

costs on labour [VC(4,4)] are computed alike for all systems (line

660). (Currently, lines 435 to 510 and 610 to 650 are not functional.)

There are no well average variable costs [VC(1,*) = 0.0, line 105].

The cost of piping used for laterals ($LAPI) is computed commonly

for all systems; but does not apply to the center-pivot system' (lines

665 to 680).

Depreciation on materials (line 690), then main lines above- and/or

below-ground are computed (lines 710 to 765). The system average fixed

costs [FC(4,*)] on depreciation, tax, insurance and interest are com-

puted (lines 775, 790, 795, 800, respectively).

The development cost of drilling and casing the well is computed

($WELL, following line 800 to 817), then the well average- fixed costs








[FC(1,*)] are computed on depreciation, tax and interest (lines 820,

825, 835, respectively). Insurance does not apply [FC(1,3) = 0.0, line

8301.

The pump average fixed costs [FC(2,*)] and power unit average fixed

costs [FC(3,*)] are computed on depreciation, tax, insurance and inter-

est (lines 845 to 905).

(Currently, no fixed costs on tax are computed [FC(*,2) = 0.0,

lines 790, 825, 850, 895].)

For the well, pump, power unit and distribution system respec-

tively, the average variable costs are sub-totalled [VC(I,5) line 925],

and total variable costs (TVC(I,J), line 930] are computed and sub-

totalled [TVC(I,5), line 931]. The 'total acreage' variable costs

[TAVC(I,J), line 932] are computed and sub-totalled [TAVC(I,5), line

933]. Similarly for sub-total average fixed costs [FC(I,5)], total

fixed costs [TFC(I,J)], the sub-total thereof [TFC(I,5)], total acreage

fixed costs [TAFC(I,J)] and the sub-total thereof [TAFC(I,5)]-see lines

935, 941, 942, 943, 944, respectively.

The average variable costs are totalled [VC(5,J), line 955] for

each of fuel, lubricants, repairs, labour. Similarly for total

[TVC(5,J), line 956] and total acreage [TAVC(5,J), line 957] variable

costs, respectively.

The total acreage fixed costs are totalled [TAFC(5,J), line 958]

for each of depreciation, tax, insurance, interest. Similarly for total

[TFC(5,J), line 959] and average [FC(5,J), line 960] fixed costs,

respectively.

From the subtotals computed above for the irrigation system com-

ponents, three corresponding sets of total costs are generated [TC(I),

TTC(I), TATC(I), lines 962, 963, 964, respectively].





















A cumulative investment cost [CI(5)] is computed from well cost,

pump cost, engine or motor cost, distribution system cost (lines 970 to


990). Investment costs per acre [CIA(I)] are also computed (line 992).



Table 14* IRCOST subroutine to main control program



//*ICG SUBROUTINE: IRCCST
// EXEC FORTGCL.FARM.LKEDaOLET1LIST NCAL*
//FORTESYSIN 00 *
SUBRCUTINE IRCOST( FUEL hP .P.HOURS ACIN.SLUB LABOR SI NT STAX .INI CSTO0020
ISSWTAXeSBCWLS.SCCL.SGMHOSPUPF ENGINE.VCFCCCI. SFUELs$WELL MOVE. CST0025
2DEPTH.GPM.STRTBSVAG.SVBG.VC4.ENGITeXMULT.SLAPI .ASSES,WLLF BCLFCCI CST0030
3LF. G;LF ELLF HVLF.XLIL F*AULFVV WHP *A4TRS PIPFS LINE AGV.eGVe ICS70035
4SVALUE .IC .ITYPE BASE.TOWTACST. SFTYPIVOT.XHP ACPS ANYR.MTYP. ICSTOOAC
SXFET,MROW*XNML.EINE.IENGL.XAOJ.CONTOEVLP.CDEPTGOS) ICST0045
DIMENSION MTYP(4).XFET(4)eMROW(4).XNML(4).XADJ(5) CH(5S ICSTO050
DIMENSION VCIS.5)oFC(5.5).CI(5).PIPE(50*6)*VVS().VC4(4.6) ICSTO055
DIMENSION ENGIT(I15I2).XMULT(4.4)COCNT(107s?)OEVLP(8 5)*TGOS(2.5) ICSTO060
COMMON/JPASS7 JCCL.JHO.CPS(20.10).4JJ
COMMON/AVAPP/ANYPAV ACINAVHRSAV ICSTOO
COMMON/TOTES/TVC(5.5) TFC(5.5).)AVC(5.5).TAFCCS.S),TCIS).TTC(S). ICST0062
I TATC(51)CIA(5t.SCONHO ICST0063
COMMON/CHO/FM.GV YS*CV
COMMON/GUN/sGUN
XFEET=0.0 CST0065
SVALVEO* 0 ICST0070
SMLINE0. 0 ICST0075
AGVO0.0 ICSTO080
BGV=O.0 ICSTOO8S
00 10 I=195 ICST0090
TCtI) 0. ICST0091
TTC( I )0. ICST0092
TATC(I)=0. ICST0093
CIA( I)0. ICST0094
CO 10 J=l.5 ICST0095
FC(tIJ=0. ICSTO100
TFC( IJ)=0. ICSTI011
TAFC(I J)0. ICST1 02
TAVC(I J) =0. ICSTO103
TVC(I.J)=0. ICSTOI04
10 VC(I.J)wO. ICST0105
C
C NO DERATE FOR FUEL TYPE
DERATEU=.0 ICST0120
IF (FUEL*Eo.4.01 GO TO 11
C
C DERATE FOR ALTITUDE : 3! PER 1000 FT
DERATEODERATE-(XACJ(I)/100000.0 *3o0 IC ST0125
C,
C. DERATE FOR TEMPERATURE : IX PER 10 DEGREES ABOVE 60 DEGREES F
XY-XAOJ(2)-60. ICSTOI30
XY-XY/O0. ICST0135
IF(XY.LT*0.0)XYV0.0 ICST0140
DERATE=OERATE-XY/100. ICST0145
IF(XAOJ(3).E. 1.0 ERATEODERATE+0.05 ICST0150
C
C OPERATED BRAKE HORSEPOWER
11 XMPSBHP/DERATE ICSTOIO
C
C SELECT ELECTRIC ENGINE AS REOLESTED BY USER
IF(FUEL.NE.4.0O GO TO 190 ICST0165
IF(EINE.NE.0.0)II=EINE ICSTOI70
IF(EINE.NE.0.0)GO TO 221 ICST0175
C
C OPTION : SELECT ELECTRIC ENGINE BASE ON DERATED BRAKE HORSEPOWER
00 220 11=1.15 ICSTOt80
IF(XHP.LE.ENGIT(II.1)) GO TO 221 ICSTOIe5
220 CONTINUE TCST0190
227 WRITE (6.222) XHP ICST0195
222 FORMAT(IX,*ENGINE OF SUFFICIENT HORSEPOWER ICST0200
1 NOT AVAILABLE HORSEPOWER REQUIRED *.F8.2) ICST0205
STOP ICST0210
22": ANTRA*ENGIT(t II2)*ENGIlT11.3) I CST0215
BHMPENGIT( I 1,1 ICST0216-











Table 14. Continued


C
C SELECT LP OR NATURAL GAS ENGINE A3 REQUESTED BY USER
190 IF(FUFL.NE. .3.ANC.FUEL.NE.2.0)GC TC 101 ICST0220
IF(EIN:.NE.0.3) I=EINE ICST0O25
IF(EINE.NE.0.O)GO TO 226 ICS~0230
DO 225 11=1.15 ICST0235
C
C OPTION : SELECT L OU: NATURAL GAS ENGINE BASED ON CERATED ERAKE HCFSrPnWFR
IF(XHP.LE.CNG.7(II.4)) GO TO 226 ICTTO240
225 CONTINUE ICST0245
GO TO 227 ICSTSO50
226 AMT;S=ENGIT(II,5)+ENGIT(II.6) ICSTO255
BHP=ENGIT(11.4) ICSTO256
C
C SELECT DIESEL ENGINE AS RFOUESTED BY USER
101 IF(FUEL.NE.3.0) GC TC 102 -ICST0260
IF(EINE.NE.0.0O)I=EINE ICST0265
IF(SNENE.N..0)GO TO 229 ICST0270
DO 228 II=1.15 ICST0275
C
C OPTION : SELECT DIESEL ENGINE BASED ON DERATLD BRAKE HCRZEPCWER
IF(XHP.LE.ENGIT(II.8)) GO TO 229 ICST02R0
228 CONTINUE ICST0285
GO TO 227 ICST0290
229 AMTRS=ENGIT(II,9)+ENGIT(II.10) ICT0O'95
8HP=ENGIT(II.3) ICST029S
102 CONTINUE ICSTO300
IFUE=FUEL ICST0305
C
C COMPUTE MOTCP VARIACLE COSTS CN FUEL, LUBRICATICNt REPAIRS LABOUR
VC(3.1)=(B-P*XMULT(1,IFUE)*HOURS*SFLEL)/ CIN IC3T0310
VC(3.2)=(.02*HOURS+XMLL(2. IFU5)*aHP*HCURS*SLUB)/&CIN ICST0315
VC(3.3)=(XMULT(3. IFU2)*HOURS*BHP)/ACIN ICST0225
IF (IFUE.tQ.4) VC(2.3)=(XMULT(3.IFUE)/ACIN) ICFT0326
VC(3.4)=(XNULT(4.IFUE)sHOURS*SLAC0R)/ACIN ICST0330
C
C COMPUTE PUMP VARIABLE CCSTS Ch FEPAIPS. CNLY
150 VC(2.3)=(.5*sPUMP/3O0000.0)*HOUS/ACIN ICST0340
C COST OF MAIr LINE ICST0345
C
C COMPUTE NUMBER OF ABOVE/BELOW GROUND VALVES FOR MAIN LINES IN EACH OF 4
C INPUT CISTIBUTICN SECTIONS USEC. (CENTRE PIVOT HAS NO VALVES AND
C ONLY I DISTRIBUTION SECTION NEEDED.)
IVAL=O
JVAL=0
00 300 I=1 4 ICST0350
50 IF(MOVE.EQ.0)MOVE=1 ICST0705
IF(MTYP(I).EQ.3.CR.MTYP(I).EQ.4.0R.MTYP(I).Q.7)GO TO 300 ICST0355
IF(XFET(I)EQO.0.0)GC TC 300 ICST0360
IF(MTYP(I).EQ.2.CR.MTYP(I).EO.S) GO TO 298 ICST0365
IVAL=IVAL+0.5XPFET(I)/FLOAT(MOVE)
AGV=IVAL
IF (ITYPE.EQ.4) AGV = 0. ICST0366
GO TO 299
298 JVAL=JVAL+0.5+XFET(I)/FLOAT(MCVE)
BGV=JVAL
IF (ITYPE.EQ.4) BGV = 0. ICSTO371
C
C COMPUTE COST OF MAIN LINES) PIPING
299 SMLINE=SMLINE+XFET(I)*PIPE(MROW(I).5) ICSTO375
300 CONTINUE ICST0380
C
C COMPUTE TOTAL COST OF ALL VALVES USED
SVALVE=AGV*SVAG+EGV*SVBG ICIT0385
SVALUE=SVALVc ICST03qC
C
C MATCH SELECTED ROWS FROM (CONT) AND (CPS) ARRAYS
IF (CCNT(JHC.1).SG.CPS(JCCL.2)) GO TO 230
DO 310 JHO=1.10
310 IF(CONTIJHOI.).EO.CPS(JCOL.2)) IJHD=JHO
WRITE (6,350) IJC
350 FOPMAT(lIX" UNITS SELECTED FOR CONTROL HEAD ARE NCT COMPATIBLE WIT
SM LINE SIZE*./I1X.'CORRECTLY SIZED UNITS ARE FOUND IN RCW '.It.
S* OF (CONT) ARRAY')
GO TO 231
230 IJHO=JHO
C
C DETERMINE THE USAGE CF : FLOW METER. GATE VALVE. Y-STRAINEPR CHECK VALVE
C FCF THE CONTROL HEAD.
231 CH(J)=0.0
00 232 J=1.5
232 CH(J) = CCNT(IJHO.J)
IF (FM.EQ.O*) CH(2)=CONT(IJHOe2)*0. ICST0391
IF (GV.EQ.G.i 'H(3)=CCNT(IJHD.3)*0. IC5T0392
IF (YS.EO.O.) CH(4)=CONT(IJHO,4)*0. ICST0.393
IF (CV.EQ..0) CH(5)=CCNT(IJO".5)*0. ICST0394
C COMPUTE COST OF CONTROL HEAD
SCGNHO=0*0
DO 42 J=2.5 ICST0401
42 SCONHO = SCONHO + CH(J) ICST0402











Table 14. Continued


C
C COMPUTE CCST CF PAIN LINES) : PIPING ANZ VALVES AND CONTROL HEAD
C (=CCST CF MAIN LINE AND CONTPCL HEAD FCR CENTFE-PIVCT)
SMAIN=SVALVF+SIL INE + SCONHO ICSTO395
XXLAT=0.O ICSTO400
SLAT=0.0 ICST0405
DO 201 I=1.4 ICST0410
IF(MTYP(I).LT.3.CP.M'YP(I).GT.4) GO TO 301 ICST0415
XXLAT=XXLAT+PIPE(MPaOw(I)5)*XFET(I)*XNML(I) ICST0420
301 CONTINUE ICST0425
C
C COMPUTE COST OF LATE=AL SYSTEM
GO TC(1.2.3.4,5,6).ITYPE ICST0430
C HANO MCVE ICST0435
1 SLAT=XXLAT ICST0440
GO TO 100 ICST0445
C SIDE MCVE ICST0450
2 DO 302 I=1,4 ICST0455
IF(MTYP(1).LT.3.OR.MTYP(I).GT.4) GO TC 302 ICST0460
SLT-=FLAT<+(ASECXFET(I)PIPE(MROt(I)5))*XNML(1) ICST0465
302 CONTINUE ICST0470
GO TO 100 IC3T0475
C 'SIDE MOVE TOW ICSTO480
3 TOWS=TCW*STRTB ICSTO0485
00 303 1=1.4 ICST049C
IF(MTYP(I).LT.3.CR.4TYP(I).GT.4) GO TC 303 ICST0495
SLA=$LAT+(XFETC(IIPIPE(MFOW(I)*5)+TOW$+ASE)*XN4L(I) ICST0500
303 CONTINUE ICTO0505
GO TO 100 ICST0510
C SELF PROPELLEC ICST0515
4 IC=I ICSTO520
IF(TACST.LE.39.0)GO TC.9 ICST0525
IC=2 ICST0530
IF(TACST.LE.70.0)GCTC 9 ICST0535
IC=3 ICSTOS40
IF(TACST.LE.105.0)GO TO 9 ICST0545
IC=4 ICST0550
IF(TACST.LE.132.0)GO TO 9 ICST0555
IC=5 ICST0560
IF (TACST.GT.160.0) GC TO 111
GO TO 9
111 WRITE(6.12)
12 FORMAT (7X.*O10 MANY ACRES TO EFFICIENTLY IRRIGATE WITH THIS SYSTEM
SM AND WITH THC DEFALLT VALUES CG THE INPUT FCPM AND IN THE'/.I1SX,
S'MACHINERY COMPLEMENT.*)
STOP
9 EXETT=0.0 ICST05~
DO 304 1=1.4 ICST5O70
IF(MTYP(I).LT.3.CR.MTYP(I).GT.4)GO TO 304 ICST0575
XFEET=XFEET+XFFET() ICST05e
304 CONTINUE ICST0585
SYSTS=VV( C)+SMAINSSF'Y*XFEET+PIVOT, ICST0590
SLAT=SYSTS-(SMAIN+SSFTY*XFEET) ICST05S5
C
C CCMPUTE SYSTEM VARIABLE COSTS ON REPAIRS CENTRE-PIVOT SYSTEM
VC(4,3)=VC4(3.4)*SLAT*(HOURS/HSAV)/ACIN ICSTO600
JGO TC 110 ICST0605
C SURFACE SYSTEM ICSETO10
5555 00 305 1=1.4 ICSTO615
IF(MTYP(I).LT.3.CP.MTYP(I).GT.4) GO TO 305 ICST0620
SLAT=SLAT+XFET(I)*PIPE(MROW(I),5) ICST0625
305 CONTINUE ICST0630
VC(4,3)=(VC4(3.5)* SLAT*HCURS)/ACIN ICST0635
GO TO 110 IC3T0640
6666 SLAT=XXLAT
GO TO 100 ICST0650
C TRAVELLING GUN
5 CONTINUE
6 IC=1
IF (TACST.LE.30.0) GO TO 13
IC=2
IF (TACST.LE.50.0) GO TO 13
IC3
IF (TACST*LE.70.0) GO .TO 13
IC=4
IF (TACST*LE.90.0) GO TO 13
IC=S
IF (TACST.GT.110.0) GO TO 111
13 CONTINUE
GO TO (55.55555.55,55.66).ITYPR
C
C TRAVELLING GUN: HCSE-TOw
55 SLAT=XXLAT+TGDS(1,IC)
SGUN=TGCS (1. C)
GO TC 100
C TRAVELLING GUN: CABLE-TOW
66 SLAT=XXLAT+TGCS(2.IC)
SGUN=TGDS(2 IC)
GO TO 100










Table 14. Continued


C
C COMPUTE SYSTEM VARIABLE COSTS ON REPAIRS ANY SYSTEM EXCEPT CENTRE-PIVOT
100 VC4t.3)TACST*VC(3t ITYPE)*(MHORS/HRSAV)/4ACIN
C
C COMPUTE SYSTEM VARIABLE COSTS ON LABOUR ANY IRRIGATION SYSTEM
110 VC(4,4)ATACST*VC4(4.1TYPE)*SLABOR/ACIN*(ANYP/ACPS) ICST0660
C
C COMPUTE COST OF PIPING USED IN ANY SYSTEM (C-FOR CENTRE-PIVOT)
SLAPI=0.0 ICST0665
00 306 1=1.4 ICFT0670
IF(MTYP(I).LT.3.CR.MTYP(I).GT.4) GO TO 306 ICSTO675
SLAPI=SLAPI+XFET(I)*PIPE(MROW(I)e5)*XIML(I) ICSTO680
306 CONTINUE ICST0685
C COMPUTE SYSTEM FIXED COSTS ICSTO695
C COMPUTE DEPRECIATION ON LATERAL SYSTEM
DEPL=SLAT/VC4 (IITYPE)/ACIN ICST060O
C COMPUTE MAIN LINE DEPRECIATION ICST0700
DEPML=0.0 ICST0710
DO 307 1=1.4 ICST0715
IF(XFET(I).EQ.0.0)GO TC 307 ICSTO720
C
C COMPUTE DEPRECIATION ON MAIN LINE'ABOVE GROUND
IF(MTYP(I).EQ.1.CR.MTYP(I)*E*.6) GO TO 608 ICST0725
GO TO 308 ICST0730
608 DEPML=DEPML+ ((PIPE(MROW(I)5)*XFET(I)+SVAG*AGV + SCCNHD )/ ICST0735
1PIPE(MROW(I)61) )/ACIN ICST0740
GO TO 307 IC5T0745
C
C COMPUTE DEPRECIATION ON MAIN LINE BELOW GROUND
308 IF(MTYP(I).EO.2.OR.MTYP(I)*EG.5)GO TO 607 ICST0750
GOTO 307 ICST0755
607 DEPML=CEPML+ ((PIPE(MROW(I).5)*XFET( I)SVBG*BGV + SCONHO )/ ICST0760
IPIPE(MROW(I).6))/ACII ICST0765
307 CONTINUE ICST0770
C
C COMPUTE SYSTEM FIXED COSTS ON DEPRECIATION
FC(4. 1)DEPL+DEFML ICST0775
IF(ITYPE.EQ.4)GO TO 70 ICST0780
C
C COMPUTE TOTAL COST FOR ANY SYSTEM EXCEPT CENTRE-PIVOT
SYSTSSLAT+SMAIN ICST0785
C
C COMPUTE SYSTEM FIXED COSTS ON TAX, INSURANCE* INTEREST
70 FC(4.2 =SYSTS*ASSES*sTAX/ACIN *ICST0790
FC(4.3)=SYSTS* SINS/ACIN ICST0795
FC(44)=SYSTS*.5*SINT/ACIN ICSTO800
C
C MATCH SELECTED ROW FROM (DEVLP) ARRAY WITH WELL DIAMETER
IF (DEVLP(JJJ.1).EQ.(CPS(JCOL.2)+2.)) GO TO 233
DO 311 JJJ=1.8
311 IF (DEVLP(JJJ.l).EQ.(CPS(JCOL.2)+2.)) IJJJ = JJJ
WRITE (6.351) IJJJ
351 FORMAT((HO.'DEVELCPMENT COSTS FCR WELL ARE NOT COMPATIBLE WITH WELICS
1L SIZE.'/IX,* CORRECT COSTS ARE FOUND IN ROW '**I1t CF (DEVLP) ARRICS
2AY.)
GO TO 234
233 IJJJ1JJJ
C
C COMPUTE COST OF DRILLING WELL AND CASING WELL
234 SDRILL=DEPTH*DEVLP (IJJJ2) ICST0815
SCASE=CDEP*DEVLP( IJJJ3) ICST0816
$WELL-SORILL+SCASE ICSTOS17
C
C WELL FIXED COSTS ON DEPRECIATIONC TAX. INTEREST (NO INSURANCE) ICST8O10
FC( I< )=SWELL/(ACIN*WLLF) ICSTO820
FC( .2)=(GPM*SWTAX)/ACIN ICSTO825
PCl (13J* ICST0830
-.I. IAAaSELL**.S.*sINMT/ACIN _CST0835
C PUMP FIXED COSTS ON OEPRECIATION, TAX. INSURANCE. INTEREST ICSTO840
FC(2. I)=BOWLS/(ACIN*BOLF)+(SCOL+SSTSUC)/(ACIN*COLF) ICST0845
1 (SGRH+SPUM8S /(ACIN*GRLF) ICST084C
FC 2.2 )=PUMP*ASSES*STAX/ACIN ICSTO850
FC(2.3)=SPUMP*SINS/ACIN ICST0855
FC(2.4)=SPUMP.5*S INT/ACIN ICSTO860
C
C ENGINE OR MOTOR FIXED COSTS ON DEPRECIATION. TAXe INSURANCE. ICST0865
C. INTEREST ICSTO866
IENG=ENGINE ICST0870
IF(IENG.EO.3)FC(3.I)=AMTRS/H1HLF*MRSAV /ACIN ICST0875
IF(IENG.=0.2)FC(3.1)=AMTRS/XLILF*HRSAV /ACIN ICST0880
IF(IENG.EQ.I)FC(31 )=AMTS/AULF** RSAV /ACIN ICST0885
IF(FUEL.EO.4.)FC(31I)=AMTRS/ELLF*HRSAV /ACIN ICST0890
FC(3.2)=AMTR*STAXEASSES/AC IN ICSTOP95
FC(3.3)=AMTPS*SINS/ACIN ICST0900
FC(3.4)=AMTR$S-5*sINT/ACIN IOST0905
C COMPUTING TOTALS ICSTO910
DO 20 1=14. ICST0915
00 20 J=1.4 ICST0920









49
Table 14. Continued


c
C ACCUMULATE AVERAGE VARIAELE COSTS (VC) FCR EACH OF W!LL. PUMP. MOTCK. SYSTEM
VC(I 5)=VC(I15)+VC(I.J) ICST0925
C
C COMPUTE TO'AL VARIABLE COSTS (TVC) OF FUEL. LUBRICATION, REPAIRS. LASOUR
C FCR EACH CF WELL. PUMP, MCTOR. SYSTEM
TVC(I.J)=VC(I.J)*ANYR ICSTO930
C ACCUMULATE TVC FOR EACH OF WELL* PUMP, MOTOP. SYSTEM
TVC(I.5)=TVC(I.5)+TVC(IJ) ICST0931
C
C COMPUTE *TOTAL ACREAGE* VARIAeLF COSTS (TAVC) OF FUEL. LUOFICATICN, REPAIRS,
C LAeCUP FOR EACH OF WELL, PUMP. .VCTCR, SYSTEM
TAVC( IJ)=TVC(ItJ)*TACST ICST0932
C
C ACCUMULATE TAVC FCR EACH CF WELL. PUMP. MOTCR. SYSTEM
TAVC(I.5)=TAVC(I,5)+TAVC(I9J) ICST0933
C
C ACCUMULATE AVERAGE FIXED COSTS (FC) FOR EACH OF WELL* PUMP, MOTOR, SYSTEM
FC I.5)=FC(I.5)+FCI J) ICSTO9.5
C.
C COMPUTE TOTAL FIXEC COSTS (TFC) OF CEPRECIATION, TAX. INSURANCE, INTEREST
C FCP EACH OF hELL. PUMP, MCTCR, SYSTEM
TFC(I.J)=FC(I.J)*ANYR ICSTO941
C
C ACCUMULATE TFC FOR EACH CF WELL. PUMP, MOTOR. SYSTEM
TFC(1.5)=TFC( 15)+TFC(I J) ICST0942
C
C COMPUTE 'TOTAL ACREAGE' FIXED COSTS (TAFC) OF DEPRECIATION, TAX. INSURANCE.
C INSURANCE FOR EACH OF WELL. PUP, M'OTCR. SYSTEM
TAFC(IJ)=TFC( I.J)TACST ICST0943
C
C ACCUMULATE TAFC FOR EACH OF WELL. PUMP. MCTCR. SYSTEM
20 TAFC(I.5)=TAFC(I.5)+TAFC( ,J) iCST0944
00 30 J=1.5 ICST0945
00 30 1=1.4 ICST0950
C
C ACCUMULATE VC. TVC ANO TAVC OF FUFL. LUBRICATICN, REPAIRS, LASOUR
VC(S5J)=C(5.J)+VC(I.J) ICST0955
TVC(S*J)=TVC(5.J)+TVC(I.J) ICSTO956
TAVC(5.J)=TAVC(5eJ)+TAVC( IJ) ICST0957
C
C ACCUMULATE FC. TFC 4AN TAFC OF CEFRECIATION. TAX. INSURANCEe INTEREST
TAFC(S5J)=TAFC(5.J)+TAFC(IJ) ICST0958
TFC(5.J)=TFC(5,J)+TFC(I.J) ICST0959
30 FC(5.J)=FC(5eJ) FC(IJ) ICST0960
00 40 1=1.5 ICSTO961
C
C COMPUTE AVERAGE TCTAL CCSTS (TC) FROM VC ANO PC FOR EACH OF WELL. PUMP,
C MOTOR. SYSTEM
TC(I)=VC(I.5)+FC(I.5) ICST0962
C
C COMPUTE TOTAL COSTS (TTC) FROM TVC ANC.TFC FOR EACH CF WELL, PUMP, MOTOR,
C SYSTEM
TTC(I)=TVC(I.S)+TFC(I.5) ICSTOq63
C
C COMPUTE 'TOTAL ACREAGE' TOTAL CCSTS (TATC) FROM TAVC ANC TAFC FOR HACH OF
C WELL. PUMP, MOTCR, SYSTEM
40 TATC(1)=TAVC(I.5)+TAFC(I.5) ICSTO094
C
C ASSESS INVESTMENT COSTS FOR WELL, PUMP. MOTOR, SYSTEM ICSTO965
CI(1)=SWELL ICST0970
CI(2)=sPUMP ICSTO975
CI(3)=AMTRI ICST0980
CI(4)=SYSTS ICST09E5
C
C. COMPUTE INVESTMENT COSTS FOP IRRIGATION SYSTEM
C (OR 'TOTAL ACREAGE' INVESTMENT COSTS)
CI(5)=SWELL+SPUMP+AMTRS+SYSTS ICSTQ090
00 41 1=1.5 ICST0991
C
C COMPUTE INVESTMENT COSTS PER ACqE
41 CIA(I)=CI(I)/TACST ICST0992
IENGL=II ICST995
RETURN ICST100C
END ICST1005
//LKED.SYSLMOD DO OSN=UF.00011259.IRGPROG.LIBS ISP=CLD
//LKEO.SYSIN DO *
NAME IRCCST(0)





Subroutine OUTPUT is called from the main subroutine (Table 8,


lines 215 to 250).











Subroutine OUTPUT (Table 15)



Following an initial page of any warnings or messages, the first


output page, headed "System Requirements, Characteristics, and Costs" is


printed in six sections. These sections, called The Farm, The Well, The


Pump, The Engine, The Control Head, The Distribution System, provide


information both from the input form and computed by the ICG. The user


Identification and type of irrigation system are also printed as head-


ings.


The Distribution System section differs among irrigation systems


(lines 455 and following).



Table 15. OUTPUT subroutine to main control program




// EXEC FORTGCL.REGION.FORT=O0K PARM. LKEO='LE-TLIST.NCAL*
//FCRT.SYSIN 00 *
SUBROUTINE CUTPUT(IDENT.NAMEITYPE.TACST.GPM.ANYR*HCURS.PSIA.ACINOTPT0020
I TH.DEPTH.WL FT. WELL *COL.NBCWL.CPS.JCOL.JJCOL*CCST1.NCOL,COS.2 $OTPT0025
28CWLS SGPHDO P, SPUMBS.SPUMP =GG ,.MTRS. HPFUEL. NN.SFUEL WHO, CCNT. 0 P 70030
3JJJ.PIPE.SETV,CDEP. NPIPE.SMLINE.AGVBGV SVAG. SVBG. VALUE. OEVLP OTPT0035
4JHOMOVE*TOwSSLAPISSFTYPIVOTVV, IC.TOWTRTB,3ASE.SINTSLAECR. OTO'0040
5SINSSLUH.SfTAX.FC.VC.CI.SCOL.ENGINE. SAX.PSIWCOEiL,COEFMACCEFMBOTPT0045
5,FRICL.FRICMFRICT,XHPACPSZTIT,4MTYPXFETMRCWXNML IENGL*ENGIT. OTPT0050
6CEXADJWLLFEBOLF*COLFGRLFASSES,AULF XLILF .HVLF FLLF.CCEF.MCHCK)MAINO250
DIMENSION CCNT(10.7).COEF(4 ).DEVLP(8.5
COMMON/PSI/ PSIMPSIL
CCMMON/AVAPP/ANYRAV.ACINAV.HRSA OTP'0056
COMMCN/'ATE1/W CCST, Sw ATER OTPT0057
COMMON/TOTES/TVC(5,S),TFC(5,5)*TAVC(5.5),TAFC(55),TC(5).TTC(5). OTPTOOS0
1 TATC(5),CIA(5),sCONHO OTPT0059
COMMCN/GUN/TGUN
DIMENSION ZTIT(7.f).MTYP(4).XFET(4).MPCW(4).XNML(4) OTPT00E0
DIMENSION IDENT(20).NAME(6,4),CPS(20.10),.GG(4.6).NN(4,2).PIPE(50,OTPT0065
15).NPIPE(5.2) VV(5).FC(5.6).VC(5.6),CI(S) OTPT0070
DIMENSION ENGIT(15,12).XADJ(5) OTPT0075
DIMENSION ZZ(5).YY(5) OTPT000
WRITE(6.100) OTPTO005
100 FORMAT(1HI 12(/).T58.' UNIVERSITY OF FLORIDA ',/1x, T59 IW IGATIOTPT0090
ICN COST PROGRAM#) OTPT0095
wRITE(6.101)(IDENT(K),K=I110).(NAME(ITYPFoK).K=1.4) OTPT0100
101 FORMAT(7X.10A4,T1004A4*, SYSTEM') OTPTO105
WRITE(6.102)(IDENT(K).K=l1.20) OTPT0110
102 FORMAT(7X,10A4) OTPT0115
WRI T(6.30Q) OTPTO120
300 FORMAT(1X ,T48.'SYSTEM REQUIREMENTS CHARACTERISTICSAND COSTS' ) OTPT0125
wRITE(6,301) OTPT0130
301 FORMAT(IMO.T68a.THE FARM*) OTPT0135
WRITE(6.302)HOURSTACST*ANYR OTPT0140
302 FCRMAT(IX.12X,'HOURS OF OPERATICN:*,FIO.2,14Xe*IRRIGATEO ACRFS:*.F
S10.2.6X" INCHES APPLIED PER ACRE:'.F10.2)
WRITE(6.306) HFSA ,*TDHOACIN OTPT0160
306 FCRMAT(IX, 7X,'AVERAGE HOURS CPERATION:',F10.2.
111X.'TOTAL CYN1MIC HEAD:' .F10.2.4X.TOTAL ACPE-INCHES APPLIED:*.
SF10.2)
WRITE (6,30e)SLAOOR.SINS.ACPS
308 FORMAT(1dX.'LAECR COST/1R:'.FI0.2.15X*'INSURANCE RATE:',
SF10.3.2X.' INCHES PER APPLICATTION:',FO.2)
WRITE(6.407) SINT
407 FORMAT(IX.57X,'INTEREST RATE:*.F10.2)














Table 15. Continued





WRI T(6,304) OTPT O 5
304 FCRMAT( 1HOT68.'THE WELL') OTPT0170
WRITE(6.305)DEPTH.WLIFTDEVLP(JJJ.2) CTPT0175
305 FORMAT(IHO20X.'9ELL OEPTH:*,F10.I19X,*DEPTH TO WATER LEVEL: 'F1O.0TPTOl10
11.llX.'DRILLING CCST/FCOT:' F10.2)
WRITE(6.408) DEVLP(JJJ. I)CDeP.CEVLP(JJJ.3) ,LLF .SVLL
408 FORMAT(21X,'WELL DIAM.:',F10.2.9XECEPTH OF WELL CASING:'*FIO.2.
113X*.CASING COST/FCOT:'IF10.2./53X,'YEARS OF WELL LIFE:',FIO.2.
214X.'TOTAL WELL CCST:',FI0.2)
IRITE(6.307) OTPT0210
307 FGRMAT(lHO.T68*'THE PUMP'/) OTPT0215
WRITE(6.799)GPM.PE.PS IA
799 FORMAT(IX.12X.'GALLONS PER MINUT':*,F10.2.14X.
S'PUMP EFFICIENCY:*,FO1.2,2X.'PFESSURE (PSI) AT CISCHARGE:',FIO.2)
WRITE (6.800) COL.NBCWL.CPS(JCCL,2).JJCOL.CCST1ICPS(JCOL.3)
800 FORMAT(8x,*CEPTH SETTING COL. PIPE:'.F10.2.13X.'NUM8SR OF STAGES:'
1.110 .16X.'PIPE DIAMETER:*.F10.2./10X.*' EXTRA.10-FT SECTICh:'.
2110.10X.*COST OF FIRST STAGE:'.F10.2.16X9'TUOE DIAMFTER:',F10.2)
WRITE(6.801) NCCL.COST2.CPS(JCCL.4).CPS(JCOL+10 6).SBOWLS. GRHD
801 FOPMAT(1SX,'. 20-FT SECTIONS:'I10 .O 4X'COST PER ACCITIONAL STAGE
1:'.F10.2.1 5X.SHAFT OIAMHTER':',F10. 2/9X COST PER 10-FT SECTION:'.
2FIO0.215X,.COST CF STAGES:*FIO0.2.16X.'GEARHEAD COST:',FI0.2)
*RITE(6.802) CPS(JCOL 6). CPS( JCCL. ). SPUW8S CCL.CPS(JCOL 9 ), PUMP
802 FORMAT(9X.'COST PER 20-FT SECTICN:*,F 10.2.16X,'TRAINER CCST:',
IF10.2.16X.*PUMPAASE COST:'.FI0.2./IAX.' COST OF COL. PI.-:*.P10.2,
212X.'SUCTIGN PIPE COST:',F10.2, I14XTCTAL PUMP CCST:' *FI.2)
wRITE(6.803) CCLF.ECLF.GRLF
b03 FO;MAT(13X.'YEARS CF CCL. LIFE:'.F10.2* OX.'YEA'FS OF STAGE LIFE:',
FI10.2,7X,'YEARS CF GEARHEAD LIFE:*,FIO.2)
WRITE(6. 314) OTPT0310
314 FORMAT(IHO,65X,'THE ENGINE') OTPT0315
ICB=ENGINE OTPT0320
IFUC=FUEL
WRITF(6,S10) (EGG( IC9L).L= 1.6 ).A-TRSE.(NN(IFUG.K) K= 12).SFUEL
I WHP
810 FORMAT(/7X.6&4.2qXe'ENGINF COST: ,F10.2,13X. OR:Vt EFFICIENCY: '
IF10.2./7X.2A4.' FUEL ,.36X.'FUEL COST/UNIT: ',F1O. 2,13X.*WAT. HMORS
2EPOWER:' F10.2)
WRITE(6.812) SLUB*XHP
812 FCRMAT(1X.24X.28X.'LUBRICANT COST/GAL:',F10.2, X.
1rCONTINUOUS eRAKE HP EOUICEC:' ,F10.2)
IF (IFUG.CC.4) GO TO 103
IF(XACJ(4).FO.1.0)WRITE(6.601) 0TPT0375
601 FORMAT(IH+,oX.'ENGINE HAS ALT.. AIR CLEANER 1) OTPTO380
103 IF(FUEL*.Q.4.0)IG=1.0 OTPT0385
IF(FUEL.EQ.2.0.CR.FUEL*EEQl.0)IG=4.0 CTPT0390
IF(FUEL.SQ.3.0)IG=8.0 OTPT03Sc
WRITE(6.814) ENGIT(IENGL. G)
814 FORMAT(87X.*CONTINUOUS BRAKE HP USE':*FP10.2)
IF(ENGIN=.EO.1.0)W;ITE(6.60S)AULF OTPT0425
IF(ENGINE.CQ.2.0)WRITE(6,605)XLILF OTPT0430
IF(ENGINE.FO.3.0)WRITE(6,605)HVLF OTPTO435
IF(IFUG.EO.4)WRWITE(6,605)FLLF OTPT0440
605 FORMAT(1H+,50X.'HOURS CF CNGINE LIFE:*,F10.0) OTPT0445
IF (IFUG.CQ.4) GO TO 104
IF(XACJ(3).EQ.1.0)WRITE(6,602) OTPT0415
IF (XADJ(3).EO.0.0) WRITE (6,603)
602 FORMAT(1H+.2X 'ENGINE H4S HEAT EXCHANGER') OTPT0420
603 FCRUAT(1H+.6X.'ENGIN- HAS RADIATOR AND FAN')
104 IF(XACJ(5).RO.0) WRITE(6.820) XAOJ(1),XADJ(2)
IF(XACJ(5).FQ.1) WRITE(6.821) XA3J(1),XADJ(2)
1F(XACJ(5).EQ.2) WRITE(6,822) XAOJ(1),XA3J(2)
IF(XAOJ(S).EQ.3) WRITE(6.823) XAOJ(1).XACJ(2)
820 FCRMAT(7X.'OIRECT DRIVE ',39X.'ALTITUOE:*,F10.2.8X,
1'MAX. AVG. CAILY TEMP.e:*.FI.2)
821 FORMAT(7X.'(IGHT-ANGLE DRIVE*,39X.'ALTITUOE:'qF10,2,eX,
1'MAX. AVG. DAILY TEMP.:',F10.2)
822 FORMAT(7Xe'V-BELT DRIVF ',39X.*ALTITUDE:',F10.2,eX
ISMAX. AVG. DAILY TEMP.:',F10.2)
823 FORMAT(7X,'FLAT OELT ODIVE *,39X,'ALTITUDE:',F10.2.8X,
I'MAX. AVG. DAILY TEMP.:'*F10.2)
WRITE(6.701)
701 FORMAT(/1X.T64.'THE CONTROL HEAD*)
WRITE(6.702) CCNT(JHD,3),CONT(JHC.2) SCONHO
702 FORMAT(/13X.'COST CF GATE VALVE:',F10.2
st1X,'COST OF FLCW METEP:*F10.2.
SOX.'TOTAL CONTROL HEAD COST:',PIO02)
WRITE(6.703) CCNT(JH0.5) .CONT(JhD,4)
703 FORMAT(12X.'COST OF CHECK VALVE:' .FIO2.
S11X.'COST OF Y-STRAINER:*'F10.2 )











52



Table 15. Continued





WRtTE(6.317) T0PT0450
317 FORMAT(IHO.59Xe'THE DISTRIBUTION SYSTEM$) OTPT0455
Il=PIPEIMRCW( t )t2) OTPT0505
900 IF (ITYPE.EO.4) GC TC 901
12=PIPE(MROW(2).2)
13=PIPE(MOW(3),2)
IF (MTYP(1).EO.1e) GO TO 910
WRITE(6.9053 MOVE.SV8G.SETV.BGV.$VALUE.SGUN
905 FORMAT (/10X.'DISTANCE BETWEEN -ETS:*IIIt02X**CCST PER BELCW GROUND
SO VALVE:'F1O0.2.4X.'LOSS ALLOWED (PSI/00OFT):'.F10.2./7X,1' OF BE
SLOW GROUND VALVES:,FIO0.2.15X.'COST CF VALVES:*.F10.2. 8X,*COST OF
S GUNsCART.REEL:'=F10.2)
GO TC 915
910 WRITE(6.911)MOVE.SVAG.SETV.AGV.SVALUE
911 FORMAT (/10X.'OISTANCE BETWEEN SETS:'.II02X.'COST PER ABOVE GRCUh
SO VALVE:*.FIO.2.4X.'LOSS ALLOWIC (PSI/100FT):'.F10.2,/7X.*# OF AB
SOVE GROUND VALVES:*.F10.2.15X.COST CF VALVES:*9FIO.2)
915 WRLTE(6.916)
916 FORMAT (/21X.'SECTION ONE*'25X.'SECTION TWO.I23X.*SECTION THREE*)
WRITE(6.917)
917 FORMAT (21X.'-----------'.25X..---------- ,23X-.----------- )
WRITE(6.920)(ZTIT(MTYP(1).K).K=1.8) (ZTIT(MTYP(3).K)*.K-=18)
920 FORMAT (3X,8A4,21X,'FLEXIBLE HOSE*'21X.8A4)-
WRITE(6.21l)(XFET(I),I=1.3)
921 FORMAT (14X.'PIPE LENGTH:*.F10.2.18X.* OSE LENGTH:*P FI0.2.18X
S*PIPE LENGTH:*FIOt.2)
WRITE(6.922)PIPE(MROW(1) .3)PIPE(MRCW(2)3),PIPE(MrOW(3).3)
922 FORMAT (12X,*PIPE DIAMETER:.F10.2.16X.SHOSE DIAMETER:*.Fl 0.2.
Sl6X. PIPE DIAMETER:' F10.2)
WRITE(6.923)(NPIPE(I.tK).K=1.2) (NPIPE(12.K).K=1.2),
S(NPIPE(13.K).K=t.2)
923 FORMAT (12X.'PIPE MATERIAL:*=2X,2A4.20X.*HOSE TYPE: *2X.2A4.
Sl6X*,PIPE MATERIAL:*92X92A4)
wRITE(6.924)PIPE(MROW( 1)5).PIPE(MROW(2).5) PIPE(MRW( 3) .5)
924 FORMAT (IIX.'PIPE COST/FOOT:'.F10.2.15X*'HOSE COST/FOOT:'*FI0.2.
1SX.*PIPE COST/FCOT:'.FIO.2)
WRITE(6.925)SMLINEsSLAPI
925 FORMAT (IIX.'MAIN LINE COST:*.FI0.2.20X.*HOSE COST:*.FI0.2)
WRITE(6*930)(COEF(1),1=1.2)
930 FORMAT(ItHO6X,FRICTION LOSS IN FT/1000 FT FOR MAIN LINE AND HOSE.
S RESPECTIVELY:*'2X.2F10.2)
WRITE(6.931)PSIM*PSIL
931 FORMAT(IHO06X'*TOTAL FRICTION LOSS IN PSI FOR MAIN LINE ANO HOSEs R
RESPECTIVELY :'.2X.2F10.2)
WRITE(6.932)PSIWPSIA
932 FORMATI(HO,6X**PRESSURE IN PSI REQUIRED AT WELLHEAD AND DISCHARGE.
S RESPECTIVELY:*.2X.2F10.2)
GO TO 720
901 WRITE(6,710)(ZTIT(MTYP(1),K),K=1.8).(NPIPE(I.K),K=1.2).MOVE
710 FCRMAT(/7X,8A4.19X.'PIPE MATERIAL:' 2X.2A4
15SX.'LATERAL LENGTH:'O110)
WRITE(6,711) XFET(tI)PIPE(MROWt(1)5).VV(IC)
711 FORMAT(20X,'PIPE LENGT-h:*,FlO2.
S15X.PIPE CCST/FCOT:' F10.2.
S3Xe.COST OF DIST. SYST. PROPER:.sFIO02)
WRITE(6.712) PIPE(MRCW(1) 3),.MLINE.SETV
712 FORMAT(18X.'PIPE DIAMETER:**F10*2
515X.'MAIN LINE CCST:*.F10.2.
S3X., LOSS ALLOWED (PSI/1000FT): .Fl0.2)
IF(MCHCK.EO.2)GO TO 720
707 FORMAT(/IX,5OX.*DISTRIBUTION SYSTEM SUMMARY') FRST0225
WRITE(6.708) COEF(I) FRST0230
708 FORMAT*IHO.6X.'FPICTION LOSS IN FT/1000 FT FCR MAIN LINE FIRST
1 : .2X.4F10.2) FRSTO
WRITE(6.709)PSIM FPSTO245
709 FORMAT(IHO.6X.ITOTAL FRICTION LCSS Ih PSI FOR MAIN LINE FRST0250
I :* 2X.2F10.2) FRSTO
WRITE(6.713)PSIW*PSIA FRSTO260
713 FORMAT(IHOo6X. PRESSURE IN PSI PEQUIPED AT WELLHEAD AND CISCHARGE*FRST0265
I RESPECTIVELY:* 2X,2FI0.2) FRST0270
720 CONTINUE
CALL SEASON(VC.FC.CI)
RETURN OTPT0930
END OTPT0935
//LKED*SYSLMOD 00 OSN--UF.CO011259 IRGPROG.LIB DISP=OLD
//LKED.SYSIN OD *
NAME OUTPUT(R)









53


The subroutine SEASON (Table 16) is called from the OUTPUT sub-


routine (Table 15, following line 270). All economic information (vari-


able, fixed and total costs and investment costs) are presented by


transposing the cost arrays generated in subroutine IRCOST (Table 14).




Table 16. SEASON subroutine to OUTPUT subroutine of ICG


//*ICG SUBRCUTINE: SEASON
// EXEC FORTGCL.REGION.FC 90K.PAtA.LKSO= SLST.LrT.NCALO
//FCAT.SVSIN CD *
SUBFOUTXNE SEASCN(VC*FC#CI)
DIONSCON VC(5;51).FCC5 5)c(q9)
COnMMCNWTOTES/TV C 55) .TC(5.5).TAVC(5.5).TAFC(5,5).TCCS).TTC(5)
I TATC(5) C. IA(5)CCSHD
REAL*8 DATE
CALL SYSDAT(CATS)
WRIT-(6*415)
415 FOR4AT(I'1)
*R1-9 (6.416)
416 F0RMAT(12(/)937X.'S E A S 0 N A L C 0 S T S F 0 F I Q q I
SA T 1 0 N')
WRITE(h 38)C AT
38 FOZMAT(54X.IPERFC;E0C CN '.A81)
WRITE(6.417)
417 PORMATC7X. 11*('-))
wAITE(6.418)
418 FORMAT(IIXO'TYPE ANO'.29X.I' Y S T E M C C M P C K E N T 3')
WAXTE(6.419)
419 FOIMAT(I1X ,'SCURCE OF'.1IXa'-')
WRITE(6.420)
420 FORMAT(13X,'C0STS'.19X.I'WLL'.16X.sgUMP'.11X,.MoTCR CA ENGINE'.?
S9OISTRI8UTICN'.9X,'TCTAL')
WRITE(6.417)
WRITE(b.423)
423 FORMAT(/6X.0 VAR1AeLF CCSTS'/6X' -----------
WRITS(6,424) (VC(.l)9X=1,5)
WRITE(6&524) (TVC(X.1).1=1#5)
WRITE(69624) (TAVC(I.1).1=i.S)
wR1TE(6.425) (VCCI.2).I=1.5)
WRITE(6*52S) (TVC(r.2).I=1.5)
WRITE(6.625) (TAVC(I.2).1=1.5)
WRITE(6,426) (VC(C13)91=1.5)
WAITE(6,526) (TVC(I.3).&11.5).
WRITE(6.626) (TAVCCI.3)#I=1.5)
WRITE(69427) (VC(I,4)91=1,5)
WRITE(6.527) CTVC(I*4) 1=1.5)
WRIrE(6.627) (TAVC(1.4).=1 .5)
WATEC6(42 8) (VC(I.5)9I=1.5)
WRITE(6952B) (TVC(I.5).1=1.5)
wRITE(b.628) (TAVC(1.Sl.1=1.5)
WRITE(69429)
WRITE(69430) (FC(I.1).11t.5)
WRITE(6.630) (TAFC(I91)*1=1*5)
WRITE(69431) (FCCI.2).I=195)
WAITE(b,531) CTFC(I.2).I=1.5)
WAITE(&,631) (TAFCCI.2).I=1.5)
WRITE(69432) (FCC1.3).1=1.5)
WRITE(69532) (TFCCI3)91=1*51
WRITE(6.632) (TAFC(I.3).1=1.5)
WAITE(69433) (FC(I94)9I=1,5)
WRITE(69532) (TFC( 141.1=1.5)
voITEC6.633) (TAFC(Is4).1=1,5)
WRITE(6.434) (FCC195).1=1.5)
WRITEC69534) CTFCCX.5)9I=1.5)
WRITE(6#634) (T&FC(I,5).I=1.5)
WRITE(69435) CTCT)91=195)
WRITE(69535) (TTC(I)qI=1*5)
VR1Q 7 (' .635) (TATC(1) 11.5)
424 FCRWAT(dX.'FLEL (s/At/S)'.t3X.Fi.2.4(F20.2))
524 PCRMiATkdXo (s/A/3) '.8X*1'1.2.4(F20.2))
624 FCMAWT'*X,* (S/3) 9*8X9FII.2*4(F20.2)I
425 FCPMAT(/8X.*LU6P1CANTS (S/AI/S)'.2X.FlI.2.4(FZO.2))
525 FORMATt.9X. (S/A/e) #2XqFIj.2q4(F20.2))
o25 FCRMATk8X.' (3SI) 9.2X9FI1.2,4(F20.2))
426 F0r-MATI/8X.'FEPAIRS (S/AI/S)*.5X.FrII.2.4(F20.2)
526 FCR'4AT(8X. (i/A/S) *.5X.F11.2.4(F20.2))
626 FCRMAT(8X.' (S/3) ,5X.F1I.2.4(F220.2))
427 FORMAT(/8X. 'LA2R (S/AI/S)' *7X.FI .7.4(F20.2))
527 FORMAT(8X.' (I/A/S) ',7X*FA1.2.4(F:20.2))
627 FCQRMAT(8X' (3/S) '.7X.FII.2.4(F20.2))
429 F0PMATt/8X*'SL8TCTAL (s/AI/S)'.4X.F11.294CF20.2).'**)
528 FORMAT(aX.' (I/A/S) 0.4X.F1 .2.4(F20.2))
628 FORMAT~bX,' (S/S) *.4X.F1I.2,4(F20.2))
429 FCRN4AT(/6X.' FIXED CCSTS'/6X.'-------------)'


OTPT0053
OTPTOOSQ


G









X.











Table 16. Continued



430 FORMAT(SX*eDOPQECIATION (S/AI/S)'.F1I.2.4(F20.2))
530 FORMAT(8X,* (s/A/S) *F 11.2.4(F20.23)
630 FORMAT(SX.* (s/S) *,FI.2.4(P20.2))
431 FORMAT(/X. 'TAXES (S/AI/S) *7X.F11.2.4(F20.21)
531 FCRMAT(SXe* (S/A/S) *t7X.Flt.2.4(P20.2))
631 FORMAT(SXe' (S/5) *.7XF11.2.4(F20*2))
432 FORMAT(/8X 'INSURANCE (S/AI/S)* .3X.F1.2.4(F20*2))
532 FCRMAT(8X*' (S/A/S) '.3X.Fll.2.4(F20.2))
632 FORMAT(SX'9 (S/S) *,3X.F11.2.4(F20.2))
433 FORMAT(/dX9'INTEREST (S/AI/S)*e4X.FIl.2.4(F20.2))
533 FORMAT(SX0' (S/A/S) *.4X.FP1.2.4(F20.2))
633 FORMAT(B8X9 (s/S) 4X.FII.2,4(F20.2))
434 FORMAT(/aX#'SUBTCTAL (S/AI/S)I,4X.F1I.2.4(F20.2))
534 FORMAT(SX.* (S/A/S) *.4X.FI.2,4(F20.2))
634 FORMAT(8X' (S/S) 04X.FI .2.4(F20.2))
435 FORMAT(/6X TOTAL COSTS (S/AI/S)*.F13.2,4(F20.2))
535 FORMAT(6X* ---------- (S/A/S) .F13.*2.4(F20.2))
635 FORMAT(6X.* (S/S) *,F13.2*4(F20.2))
WRITE(6437) (CIA(I)1l=1.5)
437 FORMAT(/6X.e INITIAL INVESTMENT(S/A))'.FIO.24(F20.2))
WRITE(6.438) (CI(I) I1=1.5
438 FORMAT(6X.* ---------------(S). F12.2.4(F20.2))
*RITE(6.417)
RI TE(6.440)
440 FORMAT(6X.* THIS IS ALSO THE ADDITIONAL OR MARGINAL COST CF APP
SLAYING ONE MORE ACRE-INCH OF MATER* GIVEN PRICES SUBMITTED.')
WRITE(6,441)
441 FORMAT(6X.* (S/AI/S) = DOLLARS PER ACEE-INCH PER SEASON.*
1/6X.' (S/A/S) = COLLARS PER ACRE PER SEASON',
2/6X.' (S/SI = OCLLARS PER SEASON)
END
//LKED.SYSLMO DO D OSNUF.00011259.IPGPROG.LIB.OISP=OLD
//LKEO.SYSIN DO *
NAME SEASON







If maximum output (i.e., a printing of the machinery complement

base) is not desired (Table 8, line 255), the program returns to the

point on the main subroutine in order to read the next data card (Table

8, line 95). Either a value for ISYS (recall that ISYS identifies which

IDFLT data set is being requested,) or, the value 'END*' for AG is read

(Table 8, lines 100, 105). The former will initiate another simulation

for whichever irrigation system is selected and for whatever data has

been correspondingly provided. The latter terminates use of the ICG at

the current simulation (Table 8, line 110).

If the user wishes to have all the output (Table 11, line 1065 and

Table 8, line 255), the subroutine BASEOT is called from the main sub-

routine (Table 8, lines 260, 265).












Subroutine BASEOT (Table 17)



A listing of the machinery complement data base is made. This is


headed: "Machinery Complement" (lines 40, 45). The user Identification


and codes for the current irrigation system and machinery complement are


also printed (lines 50 to 65). The arrays printed contain user-speci-


fied changes or additions. Each array is correspondingly and paren-


thetically identified by the subagenda CPS, GEAR, PUMP, STGE, CONT,


PIPE, DEVL, ENGI, MULT, VC4, CPDS and TGDS.



Table 17. BASEOT subroutine to main control program


//*ICG SUBROUTINE: 3AEOT
// CXEC FCRTGCLREGICN.FORT=80K.PA ;M.LKED= LET LIST"NCAL'
//FCRT.SYSIN 00 *
SUBRCUTINE BASEOT (CPS.ISYS. ICOMP.IDENT.GRHDOPIPRCeNGITXMLLT.VC4.8SC-0020
IVV*PUMPBS.BCWLS.CCNTCeVLP.TGCS) BSCT0025
DIMENSION CPS(20.10).IDENT(0O),GPHO(11). PIPE(50.6).EhNGT(15.12). ESOT0030
IXMULT(4.4)*VC4(4.6).VV(5).PUMPSS(4),0BWLS(8,4).CONT( 10,7), 0S'T0035
2DEVLP(8,5).TGDS(2.5) BSCTO036
WRITE(6,100) .SCT0040
100 FORMAT(IHlt12(/).56X.*MACHINERY COMPLEMENT') BSrT0045
RITE(6.1 01)(IDENT(K),K=1,10),ISYS BSCT00O0
101 FORMAT(//6X.I0A4,65X.'SYSTEM TYPE'.13) ESCT0055
WRITE(6.102)(IDOET(K),K=11,20). :COMP BSCY0060
102 FORMAT(6X.10A4.59X. CCIMPLEMENT NUMBEER13) BSCTOOEC
WRITE(6.103) eSCT0070
103 FORMAT(//IX,25X.*(CPS)*,21X,*COLUMN PIPE AND SHAPT OATA*) BSOT0075
iRITE(6.104). BSOT00e
104 FORMAT(/75X,'SMAFT'*14X.*SUCTIOtI) 80 B 0085
WRITE(6. 05) BSCTOOIO
105 FORMAT (1X,25X .*PI 'E 6X,*TUBE"*5Xw SHAFT',6X. 'PIPE* X, LIST*4X *B SCTO095
IFRICTION*'2X,'STRAINER*'4X.'PtPE') BSCTOI00
WRITE(6.106) 8SCT 105
106 FORMAT(1X.23X ,CIAMETER*.2X .OIAMETER'.2X. 'DIAMETER' X, *LNGTH.58 SOTCI 10
IX.'PRICE'6X.'LCSS'.6X.'COST',6X,9CCST') BSOTO115
WRITE(6.107) BSC+0120
107 FORMAT(IX. IX,.RCW/COL'*T28,*2'.T38,*3*,T48.'4,Tee,'5'.T6Sp,*6',T7BSCT0125
18*.7',T8a.'8*8T98.*9*) BSOT010
WRITE(6.170)(CPS(1.L).L=2.9) ESOT50135
170 FORMAT(6X*420 FT' *3X.*1*,5X.8F10.2) BSOT010
00 108 K=2.10 BSOT0145
108 WRITE(6.109)K. (CPS(*L) .L=2,9) ES~0 Ot50
109, FORMAT(IX.12X.I2.5X.8F10.2 B507T0155
WRITE(6.171)(CPS(11L),L=2,9) BSCT01,O
171 FORMAT(6X.'0O FT' .2X.1'*I,5Xe.'10.2) aSCT-0165
00 172 K=I2?20 BSCT0170
172 WRITE(6.109)K (CPS(K.L).L=2.9) BSCT0175
WRITE(6.110) 8SOT0180
110 FORMAT(/1HO25X.'(GEAR)*'22X,'GEAPREAD CCSTS') BSOT0185
WRITE(6.112) BCT0200
112 FORMAT(/8X.'BRAKE HP'e6X.'<20'. 5X 20-39 *SX,'40-59' ,5X ,60-79' *SXBSCT0205
1.'80-Q9 *.3X,*100-124'3X125-149*.3X'*150-19q',X*200-274*, BSOT0210
23X.'275-374'.6X.'>374') SOT0211
WRITE(6.113) 80s00215
113 FCRMAT ( 1X.22X 1 9X *2*'9X.*3' 9X *4' 9Xe*5* X,*6* 9Xe'7',SX *9' 3S5T0220
1g9X.'9*'8X,*10O'.eXll') 85GT0225
WRITE(6.I114)GRHO BST00230
114 FORMAT(LX,11X. CCST**11F10.2) 85070235
WRITE(6,115) BSOT0240
S15 FORMAT(/1HO.2SX,'(PUMP)*,21X. 'COSTS OF PLMPBASES') eSO'P0245
WRIT-(6.116) 8SOT0250
116 FORMAT( 1HO.26X.'COLUMN PIPE DIAMETERa .4X 6- INCH' 4Xe *5-iN.;;' 4X, 'SOT0255
18-INCH'*2X.*10-INCH') BSOT0260
WRITE(6,117) SOTC26.
117 FORMAT(IX.32X,'SHAFT DIAMETER*,5X*1.5.eX,'*ALL'*7X,*AL830T0270
IL') 9SCT0275
SwRITE(6.119) SSO3T0280
*RITE(6, 18)PUFFBS OSOT0285
118 FORMAT(1X.42X.CCST'.4FI0.2) DSCTO?90
119 FCRMAT(1X,53X, 1' X. *2*,9X. *3'9X. *41 BSOT02q-








56
Table 17. Continued




WRITE(6,120) SSOT03C3
120 FOPMAT(/1HO,25X.*(STGE) *. 25X.'STAGE CCSTS') RSOT0305
WRITE(6.121) 8SCT0310
121 FORMAT( IHO. 1 X .PUMPBASEO' 5X. 'GALLONS, .7X. O SHAFT* ,9X. PI ST* .-2X, 'ABS T031F
ADDITIONAL') eSCT0316
WRITE(6,122) RSCT0325
122 FORMAT(1X.21X.*SIZE*.7X.*/MINUTE,8X,*SIZE*,9X.*STAGE.5X. 'STAGE')350T0330
WRITEt(6123) 850T0340
123 FORMAT(IX,39X,'ROW/CCL*'16X,'*1*9X*.2') S9070345
WRITE(6,124)RCWLS( 1 1).3CWLS( 2) BSOT0350
124 FORMAT(IX,20X.'6-INCH*,7X.' 200*.4X.,'1* 4X,' ALL **3X.2F10.2) 3SCT0355
WRITE.(6.125)8CGtLS(2, 1).80W LS( 2,2) 39CT0365
125 FCRMAT(IX.33X,' 400',4X,'2*.4KX. ALL '*3X.2F10.2) BSOT0370
WRITE(6.126)OOLS(3.1 ),80aLS(3.2) 50T0860
126 FORMAT(IX.33X.' 600.4X.*3',5X.'ALL*' 5X,2F10.2) SCTO0395
WRITE(6.127)80LS(4.1).8WLS( 4.2) SOT0395
127 FOPMAT(IX,20X,'8-INCH',7X.' 800 ,4X, '4*,X,'ALL'.5X.':.-'.) SOT70400
WRITE(6,128)901LS( 5 .).I8LS(5,2) BSGT0410
128 FORMAT(IX.33X.'10000'.4X.5'.4X.* ALL *.3X.2F10.2) 8SOTO415
WRITE(6.12) BOWLS(6.1). PCWLS(6.2) 93CT042'?
129 FORMAT(IX.19X.' 10-INCH',7X. 1200*4X.'*6*4X,' ALL *.3X.2FO1.2) PS0-0430
WRITE(6.130)80WLS(7. 1 ).PlOLS(7.2) BSGT044
130 FORMAT(1X.33X.*1400 .4X.'7' *.4X ALL *.3X.2F10.2) 95CT0445
WRITE(6,131 )8WLS(Pe.1),.CCWL( 8.2) GC7T0455
131 FORMAT(IX.33X.*1600.4X,'8*"4X. ALL ',3X.2F10.2) BSCTO460
WRITE(6.232)
232 FORMAT(IH1.12(/),26X,'(CCNT)*'25Xo*CONTROL HEAO')
WRITE (6.233)
233 FORMAT(/27X.'PIPE*.12X.'FLOW*.12X.*GATE*.13X.*Y-e,13X.
S'CHECK',/25X,*DIAMETEF'.10XX.'METER'.11X,.VALVE'*,X.'STRAINR'.,
SIOX 'VALVE*)
WRITE(6.236)
236 FORMAT(14 X. *OW/COL' ,8X,*1*' 15X2' X.' 15X,'3 ,15X.'4',15X.'5 )
DO 235 J=1.6
WRITE(6.234) J.(CCNT(J.K).K=1.5)
234 FORMAT(t6X.I I7X.5(F8.2.8X))
235 CONTINUE
ARITE(6.132) SOT0470
132 FORMAT(// .25X.'(PIPE)*l.9X,'PIPE CCSTS AND PARAMETERS') 850T0475
WRITE(6.133) B5CT0480
133 FORMAT(1HO.67X.*FPTITICN*) SOTO485
WRITE(6.134) BSOT0490
134 FORMAT(IX.56X.'DIAMETER'.5X*,LOSS ,5X* COST/ ,3X, *EXPECTED) SOT0495
WRITE(6.135) 8SOTOS0
135 FORMAT(IX.49X. 'TYPEX.3XINCHES) .*CCOSTANT.4X.'FOOT'.GSCT0505
16X, LIFE ) 3SCT0510
WRITE(6.136) BSOT0515
136 FORMAT( X.40X,.'RO'/COL' .4X. 2 *,X 3 9X. 4 '9X, S'*,X. 6' ) BSOTOSPO
WRITE(6.177)(PIPE(21,L).L=2.6) BOCT0565
177 FORMAT(1X.10X,' ALUMINUM HIGH PRESSURE LINE'*3X.*21',5F10.2) 85OT0570
DO 178 K=22.30 8ST0575
178 WRITE(6 138)K. (PIPE(K.L).L=2.6) BSOTOS80
WRITE (6.179) (PIPE(31,L).L=2.6)
179 FORMAT(1X.IOX.* LAY-FLAT HOSE'*17X.*31*,5F10.2)
00 180 K=32.33
180 WRITE (6.138) K.(PIPS(K.L),L=2.6)
WRITE (6.185) (PIPE(36.L).L=2,6)
185 FORMAT (IX.1OX,* PVC HARD HOSE'.17X',36*.5FI0.2)
00 186 K=37.40
186 *RITE (6.13e) K.(PIPE(KL),L=2,6)
WRITE(6.183)(PIPE(41IL).L=2,6) C G00625
183 FORMAT(IX.10X.* PLASTIC (PVC) PIP r,12X.,41*,5F1I0.) 8SOTO630
DC 184 K=42.50 8SCT0635
184 WRITE(6.138)K (PIPE(K.L).L=2.6) SC'-0640
138 FORMAT(1X.40X.I3,5F10.2) OSOT0645
WRITE(6.2e5)
285 FORMAT(//26X. (CEVL) *,23X.'WCLL-OEVELCPMNT DATA')
WRITE (b.26)
286 FORMAT(/36X,* WELL *,9X, *'ILLING'.9X.' CASING'.
S/40X. *IAMETERI IOX, *COST/FT' IIX,*COST/FT')
WrIT (6.289)
289 FORMAT(28X.'ROW/CCL'.ax.'1' .17X,'2.17X.'3*)
DO 287 J=1*5
287 WRITE(6.288) J.(CEVLP(J.K).K=I,3)
288 FORMAT(30X.I1.6X.3(F3.2.10X))
WRITE(61239) "SPT0650
139 FORMATl(HI.12(/).25X. (ENGI)'.23X, 'ENGINE FIXED COST CATA') BSCT0655
WRITE(6,1403 BSCTO660
140 FORMAT(IH0.43X.ELECTRIC*.19X, LP '.1*X.'OIESEL') BSCT066S
WRITE(6.141) BSC'0670
141 FORMAT(IX34X.26('- ).4X,16(*- ),4X,16(*-*)) 8SOT0675
WRITE(6.142) BSSrT3680
142 FORMAT(IX.J4X,. ORSE- '.5X,'MOTOR ,3X.'CONTROL* 4X. HORSE-' ,5X *MOTEBS:0685
IOR10 4X.,HORS2-',5X.'MCTCR*) SOTO590
WRITE(6.143) 8SCT0695
143 FORMAT(IX,35X.*POWER*,6X.'COST*.5X,'PANCL*.5X*.POWER,'6X*,'COST'5XBS3T0700
II.PCWER' ,6X.'CCST') 8SOT0705
WRITE(6,144) BSrCT710
144 FORMAT( X,26X.'ROW/COL*,4X,*1l',X,'2'2*.9X. 3',9X,4e,9X.'5.9X*.8*.' OeT0715
19X, '9) B0SCT0720
DO 145 K=l,13 85CT0725
WRITE(6.146)K, (ENGIT(KL),L=1.5),ENGIT(K,8) .ENGI'rT ,9) 85CT0730
145 CONTINUE BOT00735
146 FOQMAT(IX,26X. I3,1X.7F10.2) BS.T0740












Table 17. Continued


WRITE(6.147) /BSCT0745
WRIT=(6b148) B50T0755
147 FORMAT(/IHO,25X.'(MULT)'.20X.'ENGINE VARIABLE CCST DATAI) BSCT0750
148 FORMAT(1HO.68X.'LP*.3X.' ',2X.'CIESEL'.3X.' LECTrIC') eSCT0760
WRIT"(6 149) BSOT0765
149 FORMAT(1X.57X,'CWO/CCL' 5X.'1'.9Xe.'2'9Xe'3* .9A.4') BSCT0770
WRITE(6,150)(XMULT(1,K),K=t 4) 8SCT0775
150 FORMAT(IX.26Xe'UNITS FUEL/HORSEPOwIR-HOUR **'*2X,'1'2X.4 BSCT0780
1F10.4)
WRITE(6.151)(XMULT(2.K).K=1.4) BSCT0785
151 FCRMfT(IX.24X .'GALLONS LUBRICANT/HORSEPOWER-HOUR' .2X.'2',2XBSCT7190
1.4F10.4) BSOT0795
WRITE(6.152)(XMULT(3.K).K=1,4) BSCT0800
152 FORMAT(IX.31X.'REPAIRS/BRAKE HP-HOUR **'2X .e3',3X.4F10.5) 80-O805
WRITE(6,153)(XMULT(4.K),K=1.4) BSCT081C
153 FORMAT(IX.26X.'LA3OR CN ENGINE PER HCUR CF USE'*2X.'4*.2X.4F10.4) 8SrTT815
WRITE(6.1501)
1501 FORMAT(IHO,47X.**, LP.OIFSEL FUEL UNITS : GALLONS')
WRITE(6.1502)
1502 FCRMAT(IX,7X.'***ELECRICITY UNITS : KWH')
WRITE(6.1503)
1503 FORMAT(1IX4eX.'* ELECTRIC : R.PAIRS/ANNUM')
WRITE(6.154) 8OT0820
154 FOR'AT(H1O./.25X. (VC4)*'22X'*CISTRI1UTION SYSTEMS CATA') 6SOTO025
WRITE(6.155) BSCT0820
155 FORMAT(1H0,54X,* *.6X,' '.6X.,' '4X.'CENTER-'ISX, BSCT0835
srTRAVELING GUN')
WRI TE(6.156) BSCTOP40
156 FOR4AT(IX.54X.' .6X.' *,X. *'3X.' PIVOTT .3X.*HOSE-83CTOS45
ITOW .2X. CA0LE-TCW ) BSOTO850
WRI T(6.157) B8CT085
157 FORMAT(IX.43X.*OW/COL.5SX.*1,9X,2*,9X.3* 9X,4'4,9X,5'.9X.e6*)S3'TO60
WRITE(6.158)(vC4(t.K).K=1,6) BSCT065
158 FCRMAT(IX.24X.*LIFE CF 0IST. SYST.*'2X.'1'.2X.6F10.2) BSCTO870
WRITE(6.15G)(VCA(3.K).K=1.6) BSCTO875
159 FORMAT(1X,25X. REPAIRS(3SE B!LOW)', 2X.*3'*2X,6F10.2) 8SOTOr80
WRITE(6.160)(VC4(4,K).K=1,6) BSOTO885
160 FORMAT(IX.16X. HOURS LA90R/ACKE/.RRIGATION'.2X.*4'*2XbFlO.4) ESCT0690
161 FORMAT(IHO*.JXe'SURFACE REPAIR COEFFICIENT=REPAIR./CIST. 3YST. VALBV5C0900
IUE/HCUR') 850T0905
*RITE(6.162) BSCTg0910
162 FORMAT(/1X.50X.'CENTER-PIVOT REPAIR COEF= REPAIRS/DIST. SYST. VALUSSC'0915
IE/Y=AR' ) BSOTO
WRITE(6. I63) SCT0925
163 FORMAT(1X.SOX.'ALL OTHER REPAIR COEF=AEPAIRS/ACAE/YEAR*) BSOTO930
WRITE (6164 ) 8SOT0935
164 FORMAT (/I nO.25Xe' (CPOS) .14X 'CCSTS CF CENTER-PIVOT CISTPIBUTION Sa3CT0O40
IVSTEMS') BSO0O<45
WrI TE(6.165) 8 ST0950
1.65 FO4RAT(IHO0T30.*ACRES COVEREO*,'X.~'<40 ,5X. 40-70*.5X.'71-105'.3X. eSTOQS5
I 10a-132 ,3X.' 133-160') 5BO'0960
lRITE (6.190) BSOT09S5
190 FORMAT( IXT30,21X'*1'.9X'2* ,SX*,'3' 9X,*'4 9X,'5') BSOT0970
WRITE(6.166)(VV(K),K=1.5) BSCT0975
166 FORMAT(1X.36X. CCST'"3X.5F10.21 8SOT09e0
WRITE(6.187)
187 FORMAT( /1HO0.25X,(TGOS)'.14X*.COSTS OF TRAVELING GUN DISTRIBUTION
1 SYSTEMS )
WRITE(6.188)
188 FORMAT(1HO.T30,'ACRES COVERED'a8X'*<30*'5X.*30-50'.SX.
1'51-70'.5X.'71-90'.SX.'91-110')
WRITE'(6.a19)
189 FORMAT(IX.T30,S~.'ROW/CCL*.6X.'1*'9X.'2*'9X.'31g'9X. 4e 9Xe*5')
tRITE(6.173) (TGOS(1.J).J=ls.5
173 FORMAT( 1X28X,'* ISE-TOW' 2X.'1e3X.5PF.2)
WRITE(6.174) (TGDS(2.J).J=1,5)
174 FORMAT(IX.27X.'CABLE-TOW*,2X,*'2.3XSF 102)
RETURN 9ST00985
END BSOT0990
//LKED.SYSLMOD 00 DSN=U,.00011259.IRGPPOG*LIBe0ISP=OLD
//LKED.SYSIN 00 *
NAME BASEOT(P)






The program returns to that point in the main subroutine which is


described above when maximum output is not desired (Table 8, lines 275,


95).







58

NATURE AND SEQUENCE OF THE TECHNICAL COMPUTATIONS


The sequence of computations given is developed directly from the

ICG program, but with the focus on the three current irrigation sys-

tems. The symbols and abbreviations closely match those used in the

program itself, and each is defined when it first appears. The term

'LATERAL' is synonymous with 'HOSE' for the traveling gun system. With

respect to the array names of the machinery complement, the subagenda

have been used: CPS, GEAR, PUMP, STGE, CONT, PIPE, DEVL, ENGI, MULT,

VC4, CPDS, TGDS, in place of: CPS, GRHD, PUMPBS, BOWLS, CONT, PIPE,

DEVLP, ENGIT, XMULT, VC4, VV, respectively.

The computations begin with subroutine FIRST (Table 11) and con-

tinue, in sequence, through subroutine IRCOST (Table 14). The objective

is to describe each mathematical operation, as it appears, in the ICG.

1.0 Distribution System Lines Types Main Lines, Laterals

[MTYP(1) INPUT (42) 1 or 2; MTYP(2) = INPUT (47) 3,

controlled by ICG for hose]:


Friction Loss per 1000 feet


1.1 DI(I) PIPE[MROW(I),3]/12.0 feet, I = 1,2.

DI(I) Diameter for distribution system Ith pipe (main line or

hose), in feet.

MROW(I) INPUT (44, 49): Row number from PIPE array for

distribution system Ith pipe.

PIPE[MROW(I),3] = Diameter in inches of pipe selected for Ith

pipe line from PIPE array.






59
GPM
1.2 V(I) = 448.8 [DI(I)/2]= fps, I = 1,2

V(I) = Water velocity in Ith pipe line type, in feet per

second.

GPM = INPUT (4): Gallons per minute (gpm).

1 gpm 448.8 g-sec ft-3 min-(based on 1 ft3 = 7.48 gal; 1 min

= 60 see).

1.3 COEF(I) PIPE[MROW(I),4] V(I)1.9 ft/1000 ft, I = 1,2.
DI(I)1.1

COEF(I) = Friction loss, in feet, per 1000 feet of pipe line

type I.

PIPE[MROW(I),4] = Friction loss constant of pipe selected for

Ith pipe line type.


Larger Pipe Selection


1.4 FETV = SETV 2.31 ft/1000 ft.

FETV = Maximum head of pressure loss in ft/1000 ft allowed in

pipe selected.

SETV = INPUT (39): Maximum head of pressure loss in psi/1000

ft allowed in pipe selected.

1 psi = 2.31 ft of pressure head.

1.5 If COEF(I) > FETV and pipe size is allowed to increase [MCNT(1

and/or 2) = INPUTS (45 and/or 50) = 0] and a larger size

is available [PIPE(MROW(I)+1,3) A 0.0], then COEF(I) is

recomputed for this next size, and the iteration (step

1.5) is repeated;







60
or, (i) if COEF(I) < FETV, then step 1.6 is initiated;

(ii) after sufficient iterations when COEF(I) < FETV, then step
/
1.6 is initiated;

(iii) otherwise [MCNT(1 and/or 2) = 0 and PIPE(MROW(I)+1,3) =

0.0, or MCNT(1 and/or 2) = I], step 1.6 is initiated.

1.6 MROW(3) = ROW(1) for MTYP(3) = 6 or 5 as MTYP(1) = 1 or 2,

respectively.

MROJ(3) = INPUT (54): Row number from PIPE array for traveling

gun system alternate main line, and controlled by MROW(1).

MTYP(3) = INPUT (52): Traveling gun distribution system alter-

nate main line, if used.


Cumulative Friction/Pressure Loss


1.7 FRICM = FRICM + COEF(1) XFET(1)/1000.0 feet.

FRICM Friction loss, in feet, for operating main line above/

below ground.

XFET(1) = INPUT (43): Length of main line pipe, in feet.

COEF(1) XFET(1)/1000.0: Scobey's formula for operating main

line friction head loss, in feet.

1.8 FRICL = FRICL + COEF(2) XFET(2)/1000.0 .75 feet.

FRICL = Friction loss for lateral line (hose), in feet.

XFET(2) = INPUT (48): Length of hose, in feet.

COEF(2) XFET(2)/1000.0: Scobey's formula for hose friction

head loss, in feet.

0.75 = Cozroction factor.







61
1.9 FRICT = FRICL + FRICM feet.

FRICT = Total head of friction loss, in feet, for the distribu-

tion system.

2.1 PSIM = FRICM/2.31 psi/1000 ft.

PSIM = Pressure loss in operating main lines, MTYP(1)=1 or 2.

2.2 PSIL = FRICL/2.31 psi/1000 ft.

PSIL = Pressure loss in operating laterals, MTYP(2)=3.

3.1 PSIV = PSIA + (FRICT/2.31) psi.

PSIW = Wellhead pressure in pounds per square inch.

PSIA = INPUT (5): Pressure at final opening (pivot for center-

pivot system; gun for traveling gun), or, irrigation

system operating pressure.


Total Dynamic Head


4.1 TDH = 2.31 PSIW +-WLIFT feet.

TDH Total dynamic head, in feet.

WLIFT = INPUT (7): Pumping depth of water, in feet.

4.2 TDH = TDH + 23.1 feet.

(Based on 10 psi extra for traveling gun systems.)


Water Horsepower


5.1 WHP = (TDH GPM)/3960.0 whp.

WHP = Water horsepower generated by system.

1 hp = 3960 gpm per ft head of water

(btavd on 1 hp = 33,000 ft-lb/min and 1 gal water = 8.326 Ib).









Water Volume Applied


6.1 ACIN = TACST ANYR ac-in.

ACIN = Total acre-inches applied in the current year, or in the

short run.

TACST = INPUT (1): Total acres to be irrigated.

ANYR INPUT (2): Acre-inches applied per acre in the current

year (short run).

6.2 ACINAV = TACST ANYRAV ac-in.

ACINAV = Total acre-inches applied on the average, or in the

long run.

ANYRAV = INPUT (67): Acre-inches applied per acre on the

average (long run).


System Use rime


7.1 HOURS (452.5/ GPM) ACIN hrs.

HOURS = Hours of irrigation system use per year short run.

1 ac-in hr-1 = 452.5 gpm (based on 1 ac = 43,560 ft2, 1 ft3 =

7.48 gal and 1 hr = 60 min).

7.2 HRSAV (452.5/GPM) ACINAV hrs.

HRSAV = Hours of irrigation system use per year long run.

The program enters into steps 8 through 13 if the row number from the

engine array, INPUT (15), is entered negative. Otherwise, the sequence

continues at step 14.









Power Unit: Sizing, Derating


8.1 PHP = ENGI(IRW,ICL) hp.

IRW = EINE = INPUT (15): Row number from ENGI array.

ICL Column number from ENGI array determined by FUEL INPUT

(13) (Fuels 1, 2: Same ENGI column).

PHP Continuous brake horsepower provided by ENGI(IRW,ICL).

9.1 DERATE = 1.00, initially.

DERATE = Engine derating factor.

9.2 DERATE = DERATE [XADJ(1)/100000.0] 3.0.

XADJ(1) = INPUT (16): Altitude in feet above sea level.

(3% derate.per 1000 ft above sea level.)

9.3 XY = (XADJ(2) 60.0) "F.

XADJ(2) INPUT (17): Maximum average daily temperature (OF).

(XY is made 0.0 if temperature is below 60F.)

9.4 DERATE = DERATE (XY/10.0)/100.0,

(1% derate per 10F above 600F.)

9.5 DERATE = DERATE + .05.

[5% prorate if heat exchanger used (XADJ(3) = INPUT (18) 1.0)

in place of fan and radiator.]

10.1 BHP = PHP DERATE.

BHP Brake horsepower as per derated continuous brake horse-

power specified.









Derived Water Horsepower


11.1 DE = Drive efficiency, XADJ(5) = INI

XADJ(5) = 0 (Direct), DE =

XADJ(5) = 1 (Right-Angle), DE =

XADJ(5) = 2 (V-Belt), DE =

XADJ(5) = 3 (Flat Belt), DE =

12.1 WHP = BHP DE PE hp.

WHF = Derived water horsepower from

PE = INPUT (12): Pump efficiency.


?UT (20):

1.0,

0.97,

0.95,

0.80,


Type of drive.




initially.


engine specifications.


System Capacity-Pump Production

13.1 GPM1 = WHP 3960.0/TDH gpm.

GPMI = Derived pump production based on required TDH.

13.2 Identifying GPM = INPUT (4) as GPM2, then if:

GPM1 > GPM2 + .01*GPM2, then GPM2 GPM1 + .8*(GPM1 GPM2)
(i)
GPM1 < GPM2 .01*GPM2, then GPM2 = GPM1 + .2*(GPM2 GPM1)

and the computations of COEF(I) through TDH are repeated

(steps 1.2 to 4.1). The above comparisons are made again

and if either one holds, the iteration is repeated. This

affords GPM2 to change. After a maximum of 15 iterations,

or when

(ii)GPM2 .01 GPM2 GPM1 GPM2 + .01 GPM2,

the current value of GPM2 is retained and re-identified as

GPM.








Stages: Count, Sizing, Cost


14.0 N 1 2 3 4 5 5 7 8 8

LIFT/STAGE 20 28 42 42 60 64 64 4 -

PUMPBASE 6 '6 6 8 8 10 10 10

N = Row number from STGE array.

LIFT/STAGE Average feet of lift expected from each stage in

stage assembly.

PUHPBASE = Diameter of pumpbase, in inches.

14.1 N GPM/200 (rounding up, if necessary).

If N > 8, 1600-gpm limit is exceeded and program ter-

minates.

14.2 NBOWL TDH/(LIFT/STAGE) = Number of stages required.

14.3 Pumpbase size is matched to column pipe size (CPS(I,2) inches,

where I = INPUT (10): Row number from CPS array). If a

larger pumpbase size must be used (to match CPS(I,2)),

then the smallest value of N, for that larger pumpbase

size, is chosen. Otherwise, the current value of N is

retained.

14.4 NBOWL NBOWL 1, otherwise (NBOWL = 0, or NBWL > 0 and NBWL <

NBOWL 1 or NBWL > NBOWL + 1). NBOWL now excludes the

first stage and is, therefore, the number of additional

stages in the assembly (c.f. steps 14.2, 14.6).

14.5 $BOWL (NBOWL COST + COST1).

$BOWL Total cost of stages used in stage assembly.

COST2 = STGE(N,2) = Cost of each additional stage from STGE

array.






66

COST1 = STGE(N,1) = Cost of first stage from STGE array.

14.6 NBOWL = NBOWL + 1 = Total number of st..ges used in assembly.


Column Pipe: Length, Cost


15.1 COL = WLIFT + 20 feet, if COL > 0. and COL-20. WLIFT, or if

COL 0.

COL = INPUT (9): Depth setting of column pipe, must exceed

WLIFT by 20 feet.

WLIFT = INPUT (7): Pumping depth to water, in feet.

15.2 NCOL = COL/20 (= minimum integer, incremented by 1 for

remainder larger than 10).

NCOL = Number of 20-ft sections of column pipe.

15.3 $COL = NCOL CPS(I,6).

$COL = Total cost of 20-foot pipe sections used.

I = INPUT (10): Row number from CPS array.

CPS(I,6) = List price of a 20-ft section of pipe selected by

row I of CPS array.

15.4 COL = NCOL 20. feet = Total length of 20-foot pipe sections

used.

15.5 $COL = $COL + CPS(I+10,6), if COL/20 has a remainder less than

or equal to 10.

$COL = Total cost of adequate column pipe for well.

C?S(I+10,6) = List price of 10-ft pipe similar to 20-ft pipe of

row I of CPS array.

15.6 COL = COL + 10. feet = Total length of adequate column pipe for

well.








Strainer, Suction Pipe: Cost


16.1 $STSUC = CPS(I,8) + CPS(I,9).

$STSUC = Total cost of strainer and suction pipe for column.

CPS(I,8) = Cost of strainer for pipe of CPS array row I.

CPS(I,9) = Cost of suction pipe for pipe of CPS array row I.


Gearhead: Selection, Cost


17.1 Recall drive efficiency computations, step 11.1.

18.1 HP = WHP/(PE DE) hp.

HP = Continuous brake horsepower developed.

19.1 $GRHD = GEAR(H).

$GRHD = Cost.of gearhead unit based on brake horsepower.

GEAR(H) = Hth GEAR array entry appropriate to value of HP (step

18.1).


Pumpbase: Cost


20.1 $PUMBS = PUMP(D).-

$PUMBS = Cost of pumpbase based on column pipe and

eters [CPS(I,2) and CPS(I,4), respectively].

PUMP(D) = Dth PUMP array entry appropriate to

CPS(I,2) and CPS(I,4).


Pump Assembly: Investment


21.2 $PUMP = $BOWL + $COL + $STSUC + $GRHD + $PUMBS.

$PUMP = Total investment on pumping system.


shaft diam-



values of








Power Unit: Selection, Investment


22.1 Recall Steps 9.1 to 9.5 on DERATING.

23.1 XHP + BHP/DERATE hp.

XHP = Continuous brake horsepower needed.

BHP = Continuous brake horsepower developed (= HP, step 18.1;

contrast step 10.1).

24.1 EINE = INPUT (15): Row number from ENGI array.

ENGI(II,K): IIth row, Kth column respectively define size and

type of power unit from ENGI array.

II = 1,..., 15; K = 1, 4, 8 determined by FUEL value.

If, for all K = 1, 4, 8, and EINE = 0, and:

(i) XHP > ENGI(II,K) for all II, the program terminates;

(ii) XHP ENGI(II,K) for some II, then step 25.1 is initiated;

or, if, for all K = 1, 4, 8, and EINE # 0, then II = EINE,

and step 25.1 is initiated.

25.1 AMTR$ = ENGI(II,K+1) + ENGI(II,K+2).

AMTR$ = Total cost of power unit.

= EINE, if EINE > 0 as specified;
II
= 1,..., 15 by iteration, if EINE = 0 as specified.

ENGI(II,K+1) = Cost of power unit.

ENGI(II,K+2) = Cost of control panel.

26.1 BHP = ENGI(II,K) = Continuous brake horsepower used.


Power Unit: Variable Costs


27.1 VC(3,1) = [BHP MULT(1,IFUE) .* HOURS $FUEL)/ACIN $/ac-

in/season.







69

VC(3,1) = Power unit average variable cost for fuel, per

season.

IFUE = FUEL = INPUT (13): Fuel type used.

MULT(1,IFUE) = Units fuel consumed per hp-hr from MULT array.

$FUEL = INPUT (31): Fuel cost per unit volume.

27.2 VC(3,2) =(.02 HOURS + MULT(2,IFUE) BHP HOURS $LUB)/ACIN

$/ac-in/season.

VC(3,2) = Power unit average variable cost for lubricants, per

season.

0.02 = 2 cents per hour of use for grease.

MULT(2,IFUE) = gal. lubricant/horsepower-hour from MULT array.

$LUB = INPUT (32): Cost/gallon of lubricant.

27.31 VC(3,3) = [MULT(3,IFUE) HOURS BHP)/ACIN $/ac-in/season, for

IFUE # 4.

VC(3,3) = Power unit average variable cost for- repairs, per

season.

MULT(3,IFUE) = Repair cost/horsepower-hour from MULT array.

27.32 VC(3,3) = [MULT(3,IFUE)/ACIN] $/ac-in/season, for IFUE = 4.

MULT(3,4) = Repair cost per year for electric motor.

27.4 VC(3,4) = [MULT(4,IFUE).* HOURS $LABOR]/ACIN $/ac-in/season.

VC(3,4) = Power unit average variable cost for labor, per

season.

MULT(4,IFUE) = Labor cost per hour of engine use from MULT

array.

$LABOR = INPUT (23): Wage rate, $/hr.








Pump: Variable Cost


28.1 V(;(2,3) = (.5 $PUMP/30000.0) HOURS/ACIN $/ac-in/season.

VC(2,3) = Pump average variable cost for repairs, per season.

0.5 $PUMP = Average pump investment.

30000.0 = Expected life of pump in hours.


Main Line Valves: Count


29.1 For above ground main lines [MTYP(1,3) = INPUTS (42,52) = 1, 6]

of line length XFET(I) # 0.0, 1=1,3:

AGV = AGV + XFET(I)/MOVE valves (= 0 for center-pivot).

AGV = number of above ground valves, rounding off correctly.

MOVE = INPUT (41): Distance between sets or valves.

29.2 For below ground main lines [MTYP(1,3) = 2, 5] of line length

XFET(I) A 0.0, 1=1,3:

BGV = BGV + XFET(I)/MOVE valves (= 0 for center-pivot).

BGV = Number of below ground valves, rounding off correctly.


.Main Line Pipe: Cost


29.3 For all main lines:

LINEE = $MLINE + XFET(I) PIPE[MROW(I),5], 1=1,3.

$MLINE = Cost of all maln line pipe.

PIPE[MROW(I),5] = Unit cost of pipe from PIPE array.


Main Line Valves: Cost


29.4 $VALVE = AGV $VAG + BGV $VBG.

$VALVE = Total cost of all valves used.








$VAG = INPUT (33): Unit cost of above ground valves.

$VIG = INPUT (34): Unit cost of below ground valves.


Control Head: Cost


29.5 Control head sizing (CONT(JHD,1) inches, where JHD = INPUT

(70): Row number from CONT array) is matched to the

selected column pipe size (CPS(JCOL,2) inches, where JCOL

= I = INPUT (10)), where JHD is variable.

29.6 CH(J) = CONT(JHD,J), J=1,...,5, and

CH(J) = CONT(JHD,J) 0., J=2,...,5, respectively, if:

FM = INPUT (71) = 0: no flow meter used,

GV = INPUT (72) = 0: no gate valve used,

YS = INPUT (73) = 0: no Y-strainer used,

CV = INPUT (74) = 0: no check valve used.

CONT(JHD,J), J=2,...,5: Cost of control head units: flow

meter, gate valve, Y-strainer, check valve, respectively,

of size determined by JHD.

CH(J), J=2,...,5: Cost of respective control head units which

are desired for use.

29.7 $CONHD = $CONHD + CH(J).

$CONHD = Total cost of control head units used.


Main Line Assembly: Investment


29.8 $MAIN = $VALVE + $MLINE + $CONHD.

$MAIN = Total cost of main lines, control head and valves.








Hose/Laterals: Investment


30.00 Fcr all laterals [MTYP(2) = 3 implicity]:

ITYPE = INPUT (40): Type of irrigation system.

KXLAT = XXLAT + PIPE(MROW(2),5) XFET(2).

$LAPI = $LAPI + PIPE(MROW(2),5) XFET(2) (this computation is

made before step 31.1).

XXLAT = $LAPI = Cost of lateral (hose) pipe used.

30.10 For center-pivot irrigation systems [ITYPE=4]:

30.11 SYST$ = CPDS(IC) + $MAIN.

SYST$ = Center-pivot distribution system investment cost.

CPDS(IC) = Cost of center-pivot distribution system proper,

appropriate for TACST acres, from CPDS array.

IC = Column, determined by TACST value, of CPDS array.

30.12 SLAT = SYST$ $MAIN.

SLAT = CPDS(IC) = Cost of center-pivot distribution system

proper.

30.13 VC(4,3) = VC4(3,4) $LAT (HOURS/HRSAV)/ACIN $/ac-in/ season.

VC(4,3) = Center-pivot distribution system average variable

cost for repairs, per season.

VC4(3,4) = Center-pivot distribution system proper repair cost

per unit system proper value per average year from VC4

array.

HOURS/HRSAV = Distribution system usage of current year rela-

tive to average year.

30.20 For traveling gun irrigation systems [ITYPE = 5 (hose-tow), 6

(cable-tow)]:






73

30.21 SLAT = XXLAT + TGDS(ITYPE,IC).

$LAT = Total cost of lateral distribution system.

TGDS(ITYPE,IC) = Cost of gun, cart and reel, appropriate for

ITYPE irrigation system and TACST acres, from TGDS array.

IC = Column, determined by TACST value, of TGDS array.

30.22 $GUN = TGDS(ITYPE,IC).


Distribution System: Variable Costs


30.23 VC(4,3) = TACST VC4(3,ITYPE) (HOURS/HRSAV)/ACIN $/ac-

in/season.

VC(4,3) = Distribution system average variable cost for

repairs, per season.

VC4(3,ITYPE) = Distribution system repair cost per acre per

year from VC4 array.

30.3 For all laterals:

VC(4,4) = [TACST VC4(4,ITYPE) $LABOR/ACIN] [ANYR/ACPS]

$/ac-in/season.

VC(4,4) = System average variable cost for labor, per season.

VC4(4,ITYPE) = Hours of labor per acre irrigated, under system

identified by ITYPE, from VC4 array.

ACPS = INPUT (3): Average acre-inches applied per set.


Distribution System: Fixed Costs


31.1 DEPL = $LAT/VC4(1,ITYPE)/ACIN $/ac-in/season.

DEPL = Lateral syst-m average fixed cost for depreciation, per

season






74

VC4(1,ITYPE) = Life of lateral system of irrigation system

identified by ITYPE, from VC4 arra:, in years.

32.1 For above ground main lines [MTYP(#1,3)= 1, 6] of line length

XFET(I) # 0.0, I = 1,3:

DEPML = DEPML + [PIPE(MROW(I),5) XFET(I) + $VAG AGV +

$CONHDJ/PIPE(MROW(I),6)/ACIN $/ac-in/season.

DEPML = Main lihe system average fixed cost for depreciation,

per season.

PIPE(MROW(I),6) = Expected life of pipe identified by row

MROW(I) from PIPE array, in years.

32.2 For above ground main lines [MTYP(#1,3) = 2, 5] of line length

XFET(I) # 0.0, I = 1,3:

DEPML = DEPML + [PIPE(MROW(I),5) XFET(I) + $VBG BGV +

$CONHD] /PIPE(MROW(I),6) /ACIN $/ac-in/season.

33.1 FC(4,1) = DEPL + DEPML $/ac-in/season.

FC(4,1) = Distribution system average fixed cost for deprecia-

tion per season.

33.2 FC(4,3) = SYST$ $INS/ACIN $/ac-in/season.

FC(4,3) = Distribution system average fixed cost for insurance

payable, per season.

SINS = INPUT (22): Insurance rate.

33.3 FC(4,4) = SYST$ .5 $INT/ACIN $/ac-in/season.

FC(4,4) = Distribution system average fixed cost for interest

payable per season.

SYST$ .5 Average distribution system investment.

$INT = INPUT (21): Interest rate.









Distribution System: Investment


34.1 SYST$ = SLAT + $MAIN for all systems.

SYST$ = Distribution system investment cost.


Well: Investment


35.1 Well-development sizing (DEVL(JJJ,1) inches, where JJJ = INPUT

(8): Row number from DEVL array) is matched to selected

well size (CPS(JCOL,2) + 2. inches), where JJJ is vari-

able.

35.2 $DRILL = DEPTH DEVLP(JJJ,2).

$DRILL = Cost of drilling well.

DEPTH =,INPUT (6): Depth of well, in feet.

JJJ = INPUT (8): Row number-fromwDEVL array.

DEVLP(JJJ,2) = Drilling cost- per- foot, for- wellof:diameter set

by JJJ.

35.3 $CASE =-CDEP DEVLP(JJJ,3).

$CASE = Cost of casing well.

CDEP = INPUT (68): Depth to which well is cased, in feet.

DEVLP(JJJ,3) = Casing cost per foot for well of diameter set by

JJJ.

35.4 SWELL = $DRILL + $CASE.

$WELL = Well investment cost.









Well: Fixed Costs


36.1 FC(1,1) = $WELL/(ACIN WLLF) $/ac-in season

FC(1,1) = Well average fixed cost for depreciation, per season.

WLLF = INPUT (27): Years of well life.

36.2 FC(1,4) = $WELL .5 SINT/ACIN $/ac-in/season.

FC(1,4) = Well average fixed cost for interest payable, per

season.

SWELL .5 = Average well investment.


Pump: Fixed Costs


37.1 FC(2,1) = $BOWL/(ACIN BOLF) + ($COL + $STSUC)/(ACIN COLF) +

($GRHD + $PUMBS)/(ACIN GRLF) $/ac-in/season.

FC(2,1) = Pump average fixed cost for depreciation, per season.

BOLF = INPUT (28): Years of stage life.

COLF = INPUT (29): Years of column pipe life.

GRLF = INPUT (30): Years of gearhead life.

37.2 FC(2,3) = $PUMP $INS/ACIN $/ac-in/season.

FC(2,3) = Pump average fixed cost for insurance payable, per

season.

37.3 FC(2,4) = $PUMP .5 $INT/ACIN $/ac-in/season.

FC(2,3) = Pump average fixed cost for interest payable, per

season.

$PUMP .5 = Average pump investment.









Power Unit: Fixed Costs


38.1 HVLF 3

FC(3,1) = AMTR$/ XLILF* HRSAV/ACIN $/ac-in/season, for IENG = 2
AULF 1
ELLF 4

FC(3,1) = Power unit average fixed cost for depreciation, per

season.

HVLF = INPUT (38): Hours of intermediate industrial engine

life.

XLILF = INPUT (37): Hours of light industrial engine life.

AULF = INPUT (36): Hours of automotive engine life.

ELLF = INPUT (35): Hours of electric motor life.

IENG = ENGINE = INPUT (14): Engine type.

38.2 FC(3,3) = AMTR$ $INS/ACIN $/ac-in/season.

FC(3,3) = Power unit average fixed cost for insurance payable,

per season.

38.3 FC(3,4) = AMTR$ .5 $INT/ACIN $/ac-in/season.

FC(3,4) = Power unit average fixed cost for insurance payable,

per season.

AMTR$ .5 = Average power unit investment.

For steps 39 to 44, Irrigation system component I = 1 for well,
2 for pump,
3 for power unit,
4 for distribution
system,

Cost source J = 1 for fuel,
2 for lubricants
3 for repairs,
4 for labor.






78

Average and Total Fixed, Variable and Total Costs


39.1 VC(I,5) = VC(I,5) + VC(I,J) S/ac-in/season.

VC(I,5) = Subtotal of average variable costs per season, for

irrigation system component I.

VC(I,J) Jth source of average variable cost per season for

irrigation system component I.

40.1 TVC(I,J) = VC(I,J) ANYR $/ac/season.

TVC(I,J) = Jth source of total variable cost per season, for

irrigation system component I.

40.2 TVC(I,5) = TVC(I,5) + TVC(I,J) $/ac/season.

TVC(I,5) = Subtotal of total variable costs per season, for

irrigation system component I.

41.1 TAVC(I,J) = TVC(I,J) TACST $/season.

TAVC(I,J) = Jth source of total acreage variable cost for

irrigation system component I.

41.2 TAVC(I,5) = TAVC(I,5) + TAVC(I,J) S/season.

TAVC(I,5) = Subtotal of total acreage variable cost for irriga-

tion system component I.

42.1 FC(I,5) = FC(I,5) + FC(I,J) $/ac-in/season.

FC(I,5) = Subtotal of average fixed costs per season for irri-

gation system component I.

FC(I,J) = Jth source of average fixed cost per season for

irrigation system component I.

43.1 TFC(I,J) = FC(I,J) ANYR $/ac/season.

TFC(I,J) = Jth source of total fixed cost per season, for

irrigation system component I.






79

43.2 TFC(L,5) = TFC(I,5) + TFC(I,J) $/ac/season.

TFC(I,5) = Subtotal of total fixed costs per season, for irri-

gation system component I.

44.1 TAFC(I,J) = TFC(I,J) TACST $/season.

TAFC(I,J) = th source of total acreage variable cost for

irrigation system component I.

44.2 TAFC(I,5) = TAFC(I,5) + TAFC(I,J) $/season.

TAFC(I,5) = Subtotal of total acreage fixed cost for irrigation

system component I.

For steps 45 to 50, in addition to I,J associations specified for steps

39 to 44, source J = 5 = subtotals for cost Types (Variable, Fixed)

computed in steps 39 to 44.

45.1 VC(5,J) = VC(5,J) + VC(I,J) $/ac-in/season.

VC(5,J) = Subtotal of average variable costs per season, from

source J.

46.1 TVC(5,J) = TVC(5,J) + TVC(I,J) S/ac/season.

TVC(5,J) = Subtotal of total variable costs per season, from

source J.

47.1 TAVC(5,J) = TAVC(5,J) + TAVC(I,J) $/season.

TAVC(5,J) = Subtotal of total acreage variable costs from

source J.

48.1 TAFC(5,J) = TAFC(5,J) + TAFC(I,J) $/season.

TAFC(5,J) = Subtotal of total acreage fixed costs from source

J.

49.1 TFC(5,J) = TFC(5,J) + TFC(I,J) $/ac/season.

TFC(5,J) = Subtotal of total fixed costs per season, from

source.J.








50.1 FC(5,J) = FC(5,J) + FC(I,J) $/ac-in/season.

FC(5,J) = Subtotal of average fixed costs per season, from

source J.

For steps 51 to 52, in addition to I,J associations specified for steps

39 to 44, and J associations specified for steps 45 to 50, component I =

5 = totals for irrigation system (all components) computed in steps 45

to 50.

51.1 TC(I) = VC(I,5) + FC(I,5) $/ac-in/season.

TC(I) = Average total cost for irrigation system component I,

per season.

51.2 TTC(I) = TVC(I,5) + TFC(I,5) S/ac/season.

TTC(I) = Total cost per season for irrigation system component

I.

51.3 TATC(I) = TAVC(I,5) + TAFC(I,5) $/season.

TATC(I) = Total acreage cost for irrigation system component I.


Investment Costs


52.1

52.2


CI(I) = Investment cost for irrigation system component I.

CIA(I) = CI(I)/TACST $/ac.

CIA(I) = Investment cost per acre for irrigation system com-

ponent I.








References


d'Almada, Philip J., Gary D. Lynne, and Allen G. Smajstrla. User's
Manual for the FARM Systems Lab Irrigation Cost Generator. Food and
Res. Econ. Dept., Econ. Info. Rpt. 157, Agr. Exp. and Coop. Ext.
Serv., IFAS, Univ. of Fla. Gainesville. January 1982.

Harrison, Dalton S. and Rush E. Choate. Selection of Pumps and Power
Units for Irrigation Systems in Florida. Dept. Agr. Eng., Agr. Ext.
Serv. Cir. 330, IFAS, Univ. of Florida, Gainesville. February 1969.

Harrison, Dalton S. and Allen R. Overmann. Handbook of irrigation
Tables and Useful Formulas. Fla. Coop. Ext. Serv. Cir. 434, IFAS,
Univ. of Florida, Gainesville. 1977.

Kletke, Darrel D., Thomas R. Harris, and Harry P. Mapp, Jr. Irrigation
Cost Program Users Reference Manual, Oklahoma State University.
Oklahoma Agr. Exp. Stn. Res. Rpt. p-770, Oklahoma State University,
Stillwater, May 1978.

Peterson, Mark and C.F. Cromwell, Jr. Irrigation Cost and Return Analy-
sis: Annual Operating Costs. Sci. and Tech. Guide, Univ. of Mis-
souri, Columbia Ext. Div., Columbia, July 1973.




University of Florida Home Page
© 2004 - 2010 University of Florida George A. Smathers Libraries.
All rights reserved.

Acceptable Use, Copyright, and Disclaimer Statement
Last updated October 10, 2010 - - mvs