Specifications

38
'CR1000 Program for the GlacioBasis GEUS AWSs rev. 1.4M (23/03/2008).
'Written by Michele Citterio, GEUS, Copenhagen.
SequentialMode
'*******************************************************************************
'******** WHEN CONFIGURING A NEW ZACK-STYLE AWS, YOU DON'T NEED TO EDIT ANYTHING
'*******************************************************************************
Const AppendInstantaneous = True
Const HoursInstantaneous = 3' in hours 3
Const RemoteReconfig = False'unfinished, don't set True
Const BeginOfSummer = 90' in days
Const BeginOfWinter = 305' in days
Const ScanRate = 600'600 ' in sec (can't be shorter than 15 + 2*TxTimeout + 60)
Const MemSaveRate = 1'2 'in numebr of scans. This is both the averaging and the
Const SummerTxRate = 6'1 'in numebr of scans. This is both the averaging and the
Const WinterTxRate = 18'4 'in numebr of scans (=1440). This is both the averagin
Const SummerGPSrate = 3'1 'in number of scans (in this revision it must be an in
Const WinterGPSrate = 18'1 'in number of scans (in this revision it must be an i
Const SummerTableBuffer = 72
Const WinterTableBuffer = 24
Const DiagnosticsRate = 24'(=36) in hours
Const TermStringSz = 8' no. of thermistors in the thermistor sting
Const LoBattThre = 11.5' the threshold in V for Low_Batt to be set (entering pow
Const LoBattResHyst = 0.5 'the hysteresis in V above LoBattThre for resetting Lo
Const FastScanReps = 10 'how many times to run Measure routine in fastscan mode
Const FastScanRate = 20 'how often to run the Measure routine when in fastscan m
Const GPSType = "N" 'use 'G' for Garmin, 'N' for the one integrated in the NAL I
Const AdvanceFanStart = 2 'in number of FastScans. How much in advance of the sc
Const AdvanceGPSstart = 120'20'in sec. Increase!!
Const TxStringMaxLen = 420 'may be increased with future releases of the Iridium
Const TxMaxInitAttempts = 3' max 3, more doesn't make any sense and the wasted t
Const TxTimeout = 30 ' in sec, before the Tx sub times out. If service becomes a
Const SnowheightSR50address = 1' SDI12 address
Const AblationSR50address = 0' SDI12 address
Const GarminWarmup = 3' in seconds (doesn't mean it will then output a fix, but
Const SR50Warmup = 3' in seconds
Const HygroClipWarmup = 4' warm-up time needed by the HygroClip module after pow
Const NT1400Warmup = 5' time required for the pressure transmitter before it is
Const GarminBaudRate = 1200' Damn Garmin!!!!! Some units come preset at 1200 bau
'*******************************************************************************
'******** WHEN CONFIGURING A NEW ZACK-STYLE AWS, YOU DON'T NEED TO EDIT ANYTHING
'*******************************************************************************
Public WinterDataTerminator As String *3
Public SummerDataTerminator As String *3
Public InstantDataTerminator As String *3
Public DiagnDataTermninator As String *3
Public TxAllowed As Boolean
Public FanPowerDueForSwOff As Boolean
Public TableInstantaneousString As String * 100
Public TxPowerDueForSwOff As Boolean
Public GarminInitOk As Boolean
Public ConfigFile_H As Long
Public ConfigArrayIT
'Public DiagInfieldWarning As Boolean'check for it not being set before field de
Public NGPSFLAG As Boolean
Public GGPSFLAG As Boolean
Public LoggerOSrev
Public TimersUnit
Public TimersUnitMult
Public Diag