WSPC06660

• File Number: 8283.100
• Description: Colorado River Computer Models - Colorado River Simulation System - Reclamation - CORSIM
• State: CO
• Basin: Colorado Mainstem
• Water Division: 5
• Date: 8/12/1994
• Author: Ray R Bennett
• Title: CRSM Porting
• Water Supply Pro - Doc Type: Report/Study

tJjH52

. The original program was renamed and saved as MHYDRO,BUR. The ported
program was broken into 40 separate subroutines (Attachment 1) using the
FORTRAN utility CUTSUB,FOR. Note functions were also broken out as
separate subroutines to assist in implementing a revision control procedure on a
work station version of MHYDRO.l Also, of the original subroutines provided
two, FETCH and FILNAME, were associated with the CYBER intrinsic mass
storage and were deleted from the ported version,

. Input and output file names were revised, Attachment 2 presents the data file
and naming convention adopted for this application, Attachment 3 presents the
flow of input and output files, Note the original files I, 5 and 6 were replaced
with files 11, 14 and 13 respecitviely fo convience to assist inporting to a
workstation. Also the path designation (CRSS/DAT/*,*) is used for some input
files,

. A new subroutine OPENMH.FOR was developed to simplifY the editing and
renaming of input files and their storage properties, This subroutine is called by
the main program, MHYDRO,FOR, and reads Attachment 2 as input.

. Compiling and Linking batch files were developed to assist in the porting
process, Note, the ported model is stored in directory CRSS/LR/MHYDRO while
the objective files are stored in directory CRSS/LR/OBJM,

. Common blocks were removed from each subroutine to simplifY the designation
of character types. They are reinserted into each subroutine during the compiling
process by using the INCLUDE command,

. Data statements were revised, For example:

OLD
DATA (A=IOO,O)

NEW
data all 00,0/

. End of file designations were revised, For example:

OLD
READ(5,100) X
IF(EOF(5).EQ.1))GOTO 1

NEW

read(5,100,end=l) x

2