19 lines
872 B
Text
19 lines
872 B
Text
C *--> FROM COMMON.MODUHG
|
|
CHARACTER*8 UHGOPN
|
|
COMMON /MODUHG/MDTUHG,NDTUHG,IOPUHG(2,20),JDTUHG(3,20),
|
|
* MVLUHG,NVLUHG(20),UHGVAL(20,100), UHGOPN(20)
|
|
C
|
|
ckwz MDTUHG: Maximum mods allowing for UHGCDATE(20?)
|
|
ckwz NDTUHG: number mods upto 20
|
|
ckwz IOPUHG: identifier ??????
|
|
ckwz JDTUHG(1,mod number): start date include hour (in time.h tm format)
|
|
ckwz JDTUHG(2,mod number): valid date include hour
|
|
ckwz JDTUHG(3,mod number): end date include hour
|
|
ckwz MVLUHG: Maximum number of ordinates for a UHGCDATE mod(100?)
|
|
ckwz NVLUHG(mod number): Number of ordinates for each UHGCDATE mod.
|
|
ckwz UHGVAL(mod number,mod value index): Mod ordinates
|
|
ckwz UHGOPN: Basin or Operation Name? (defined twice???)
|
|
|
|
c*******UHGCDATE FORMAT************
|
|
c .UHGCDATE MMDDYYHHZ MMDDYYHHZ MMDDYYHHZ
|
|
c identifier values [/opname]
|