Morning everybody,
Can we help me!
I have a few problem with my program,
My datalogger will not load my program.
I would like to put 7 cs616 , 6 T108C and 1 BF3 on the mulplexer AM16/32. And I have: 1 cs215, 1 windvane, 1 anemometer, 1 raingauge, 1 cnr1 on the cr1000.
This is the programme :
'CR1000
'Declare Variables and Units
Dim LCount_23
Public BattV
Public TRHData(2)
Public WS_ms
Public WindDir
Public Rain_mm
Public VW(7)
Public PA_uS(7)
Public CM3Up
Public CM3Dn
Public CG3Up
Public CG3Dn
Public CNR1TC
'Public CNR1TK
'Public NetRs
'Public NetRl
'Public Albedo
'Public UpTot
'Public DnTot
'Public NetTot
'Public CG3UpCo
'Public CG3DnCo
Public DiffV(2)
Public T108_C(6)
Alias TRHData(1)=AirTC
Alias TRHData(2)=RH
Alias DiffV(1)= Diff1
Alias DiffV(2)= Diff2
Units BattV=Volts
Units WS_ms=meters/second
Units WindDir=degrees
Units Rain_mm=mm
Units PA_uS=uSec
Units CM3Up=W/m^2
Units CM3Dn=W/m^2
Units CG3Up=W/m^2
Units CG3Dn=W/m^2
Units CNR1TC=Deg C
'Units CNR1TK=K
'Units NetRs=W/m^2
'Units NetRl=W/m^2
'Units Albedo=W/m^2
'Units UpTot=W/m^2
'Units DnTot=W/m^2
'Units NetTot=W/m^2
'Units CG3UpCo=W/m^2
'Units CG3DnCo=W/m^2
Units AirTC=Deg C
Units RH=%
Units Diff1=mV
Units Diff2=mV
Units T108_C=Deg C
'BF3 1mV = 1micromol*m-2*s-1; 1mV=0.5 W*m-2
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,1,Min,10)
Average(1,BattV,FP2,False)
Average(1,AirTC,FP2,False)
Sample(1,RH,FP2)
Average(1,WS_ms,FP2,False)
Sample(1,WindDir,FP2)
Totalize(1,Rain_mm,FP2,False)
Average(1,CM3Up,FP2,False)
Average(1,CM3Dn,FP2,False)
Average(1,CG3Up,FP2,False)
Average(1,CG3Dn,FP2,False)
Average(1,CNR1TC,FP2,False)
'Average(1,CG3UpCo,FP2,False)
'Average(1,CG3DnCo,FP2,False)
Average(1,VW(1),FP2,False)
Average(1,VW(2),FP2,False)
Average(1,VW(3),FP2,False)
Average(1,VW(4),FP2,False)
Average(1,VW(5),FP2,False)
Average(1,VW(6),FP2,False)
Average(1,VW(7),FP2,False)
Average(1,Diff1,FP2,False)
Average(1,Diff2,FP2,False)
Sample(1,T108_C(1),FP2)
Sample(1,T108_C(2),FP2)
Sample(1,T108_C(3),FP2)
Sample(1,T108_C(4),FP2)
Sample(1,T108_C(5),FP2)
Sample(1,T108_C(6),FP2)
EndTable
'Main Program
BeginProg
Scan(30,Sec,1,0)
'Default Datalogger Battery Voltage measurement BattV
Battery(BattV)
'CS215 Temperature & Relative Humidity Sensor measurements AirTC and RH
SDI12Recorder(TRHData(),7,"0","M!",1,0)
'03101 Wind Speed Sensor measurement WS_ms
PulseCount(WS_ms,1,1,2,1,1.25,0)
If WS_ms<0.01 Then WS_ms=0
'03301 Wind Direction Sensor measurement WindDir
BrHalf(WindDir,1,mV2500,1,1,1,2500,True,0,_60Hz,355,0)
If WindDir>=360 Then WindDir=0
'TE525MM/TE525M Rain Gauge measurement Rain_mm
PulseCount(Rain_mm,1,2,2,0,0.1,0)
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
LCount_23=1
SubScan(0,uSec,2)
'Switch to next AM416 Multiplexer channel
PulsePort(1,10000)
'CS616 Water Content Reflectometer measurements VW() and PA_uS() on the AM16/32 Multiplexer:
CS616(PA_uS(LCount_23),3,2,2,3,1,0)
LCount_23=LCount_23+3
NextSubScan
'Switch to next AM416 Multiplexer channel
PulsePort(1,10000)
'CS616 Water Content Reflectometer measurements VW() and PA_uS() on the AM16/32 Multiplexer:
CS616(PA_uS(7),1,2,2,1,1,0)
For LCount_23=1 To 7
VW(LCount_23)=-0.0663+(-0.0063*PA_uS(LCount_23))+(0.0007*PA_uS(LCount_23)^2)
Next
'Turn AM16/32 Multiplexer Off
PortSet(3,0)
Delay(0,150,mSec)
'CNR1 Net Radiometer measurements CM3Up, CM3Dn, CG3Up, CG3Dn, CNR1TC, CNR1TK,
'NetRs, NetRl, Albedo, UpTot, DnTot, NetTot, CG3UpCo, and CG3DnCo
VoltDiff(CM3Up,1,mV25,3,True,0,_60Hz,100,0)
VoltDiff(CM3Dn,1,mV25,4,True,0,_60Hz,100,0)
VoltDiff(CG3Up,1,mV7_5,5,True,0,_60Hz,100,0)
VoltDiff(CG3Dn,1,mV7_5,6,True,0,_60Hz,100,0)
BrHalf4W(CNR1TC,1,mV25,mV25,7,1,1,2100,True,True,0,_60Hz,1,0)
PRT(CNR1TC,1,CNR1TC,1,0)
'CNR1TK=CNR1TC+273.18
'NetRs=CM3Up-CM3Dn
'NetRl=CG3Up-CG3Dn
'Albedo=CM3Dn/CM3Up
'UpTot=CM3Up+CG3Up
'DnTot=CM3Dn+CG3Dn
'NetTot=UpTot-DnTot
'CG3UpCo=CG3Up+5.67*10^-8*CNR1TK^4
'CG3DnCo=CG3Dn+5.67*10^-8*CNR1TK^4
'Call Data Tables and Store Data
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
PulsePort(1,10000)
'BF3
VoltDiff(DiffV(1),1,mV2500,1,True,0,_50Hz,1,0)
PulsePort(1,10000)
VoltDiff(DiffV(2),1,mV2500,1,True,0,_50Hz,1,0)
PortSet(3,0)
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
LCount_8=1
SubScan(0,uSec,2)
'Switch to next AM16/32 Multiplexer channel
PulsePort(1,10000)
'108 Temperature Probe (3-wire) measurements T108_C() on the AM16/32 Multiplexer:
Therm108(T108_C(LCount_,3,3,3,0,_60Hz,1,0)
LCount_8=LCount_8+3
NextSubScan
'Turn AM16/32 Multiplexer Off
PortSet(3,0)
Delay(0,150,mSec)
CallTable(Table1)
NextScan
EndProg
Best regards!
vik
Presumably the program is failing to compile for some reason, and the crbasic editor compile-check should identify the problem(s). That's really a necessary step before uploading the program to the logger.
If you've done that and it's still failing to load, you'll need to look at the compile error messages emitted by the logger to troubleshoot.
I reworked the program a bit, and can send it if you're interested. Just moved some things around and defined constants for the I/O channels, mainly. That puts the wiring information in one place in the program, as code, to make it easier to see what's going on.
Ken
Thank's Mr Ken for your message,
yes I'll interest the version reworked.
But I modify it, and I have this message:
The dataloger could not compile the programm file
line 180 : subscan without NextSubscan.
This is the version reworked.
'CR1000
'Created by Short Cut (2.8)
'Declare Variables and Units
Dim LCount_8
Dim LCount_23
Public BattV
Public TRHData(2)
Public WS_ms
Public WindDir
Public Rain_mm
Public VW(7)
Public PA_uS(7)
Public CM3Up
Public CM3Dn
Public CG3Up
Public CG3Dn
Public CNR1TC
'Public CNR1TK
'Public NetRs
'Public NetRl
'Public Albedo
'Public UpTot
'Public DnTot
'Public NetTot
'Public CG3UpCo
'Public CG3DnCo
Public DiffV(2)
Public T108_C(6)
Alias TRHData(1)=AirTC
Alias TRHData(2)=RH
Alias DiffV(1)= Diff1
Alias DiffV(2)= Diff2
Units BattV=Volts
Units WS_ms=meters/second
Units WindDir=degrees
Units Rain_mm=mm
Units PA_uS=uSec
Units CM3Up=W/m^2
Units CM3Dn=W/m^2
Units CG3Up=W/m^2
Units CG3Dn=W/m^2
Units CNR1TC=Deg C
'Units CNR1TK=K
'Units NetRs=W/m^2
'Units NetRl=W/m^2
'Units Albedo=W/m^2
'Units UpTot=W/m^2
'Units DnTot=W/m^2
'Units NetTot=W/m^2
'Units CG3UpCo=W/m^2
'Units CG3DnCo=W/m^2
Units AirTC=Deg C
Units RH=%
Units Diff1=mV
Units Diff2=mV
Units T108_C= Deg C
'BF3 1mV = 1micromol*m-2*s-1; 1mV=0.5 W*m-2
'Define Data Tables
DataTable(Table1,True,-1)
DataInterval(0,1,Min,10)
Average(1,BattV,FP2,False)
Average(1,AirTC,FP2,False)
Sample(1,RH,FP2)
Average(1,WS_ms,FP2,False)
Sample(1,WindDir,FP2)
Totalize(1,Rain_mm,FP2,False)
Average(1,CM3Up,FP2,False)
Average(1,CM3Dn,FP2,False)
Average(1,CG3Up,FP2,False)
Average(1,CG3Dn,FP2,False)
Average(1,CNR1TC,FP2,False)
'Average(1,CG3UpCo,FP2,False)
'Average(1,CG3DnCo,FP2,False)
Average(1,VW(1),FP2,False)
Average(1,VW(2),FP2,False)
Average(1,VW(3),FP2,False)
Average(1,VW(4),FP2,False)
Average(1,VW(5),FP2,False)
Average(1,VW(6),FP2,False)
Average(1,VW(7),FP2,False)
Average(1,Diff1,FP2,False)
Average(1,Diff2,FP2,False)
Average(1,T108_C(1),FP2,False)
Average(1,T108_C(2),FP2,False)
Average(1,T108_C(3),FP2,False)
Average(1,T108_C(4),FP2,False)
Average(1,T108_C(5),FP2,False)
Average(1,T108_C(6),FP2,False)
EndTable
'Main Program
BeginProg
Scan(30,Sec,1,0)
'Default Datalogger Battery Voltage measurement BattV
Battery(BattV)
'CS215 Temperature & Relative Humidity Sensor measurements AirTC and RH
SDI12Recorder(TRHData(),7,"0","M!",1,0)
'03101 Wind Speed Sensor measurement WS_ms
PulseCount(WS_ms,1,1,2,1,1.25,0)
If WS_ms<0.01 Then WS_ms=0
'03301 Wind Direction Sensor measurement WindDir
BrHalf(WindDir,1,mV2500,1,1,1,2500,True,0,_60Hz,355,0)
If WindDir>=360 Then WindDir=0
'TE525MM/TE525M Rain Gauge measurement Rain_mm
PulseCount(Rain_mm,1,2,2,0,0.1,0)
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
LCount_23=1
SubScan(0,uSec,2)
'Switch to next AM416 Multiplexer channel
PulsePort(1,10000)
'CS616 Water Content Reflectometer measurements VW() and PA_uS() on the AM16/32 Multiplexer:
CS616(PA_uS(LCount_23),3,2,2,3,1,0)
LCount_23=LCount_23+3
NextSubScan
'Switch to next AM416 Multiplexer channel
PulsePort(1,10000)
'CS616 Water Content Reflectometer measurements VW() and PA_uS() on the AM16/32 Multiplexer:
CS616(PA_uS(7),1,2,2,1,1,0)
For LCount_23=1 To 7
VW(LCount_23)=-0.0663+(-0.0063*PA_uS(LCount_23))+(0.0007*PA_uS(LCount_23)^2)
Next
'Turn AM16/32 Multiplexer Off
PortSet(3,0)
Delay(0,150,mSec)
'CNR1 Net Radiometer measurements CM3Up, CM3Dn, CG3Up, CG3Dn, CNR1TC, CNR1TK,
'NetRs, NetRl, Albedo, UpTot, DnTot, NetTot, CG3UpCo, and CG3DnCo
VoltDiff(CM3Up,1,mV25,3,True,0,_60Hz,100,0)
VoltDiff(CM3Dn,1,mV25,4,True,0,_60Hz,100,0)
VoltDiff(CG3Up,1,mV7_5,5,True,0,_60Hz,100,0)
VoltDiff(CG3Dn,1,mV7_5,6,True,0,_60Hz,100,0)
BrHalf3W(CNR1TC,1,mV25,13,VX2,1,2100,True,0,_60Hz,100,0)
PRT(CNR1TC,1,CNR1TC,1,0)
'CNR1TK=CNR1TC+273.18
'NetRs=CM3Up-CM3Dn
'NetRl=CG3Up-CG3Dn
'Albedo=CM3Dn/CM3Up
'UpTot=CM3Up+CG3Up
'DnTot=CM3Dn+CG3Dn
'NetTot=UpTot-DnTot
'CG3UpCo=CG3Up+5.67*10^-8*CNR1TK^4
'CG3DnCo=CG3Dn+5.67*10^-8*CNR1TK^4
'Call Data Tables and Store Data
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
PulsePort(1,10000)
'BF3
VoltDiff(DiffV(1),1,mV2500,1,True,0,_60Hz,1,0)
PulsePort(1,10000)
VoltDiff(DiffV(2),1,mV2500,1,True,0,_60Hz,1,0)
PortSet(3,0)
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
LCount_8=1
SubScan(0,uSec,2)
'Switch to next AM16/32 Multiplexer channel
PulsePort(1,10000)
'108 Temperature Probe (3-wire) measurements T108_C() on the AM16/32 Multiplexer:
Therm108(T108_C(LCount_8),3,3,3,0,_60Hz,1,0)
LCount_8=LCount_8+3
NextSubScan
PortSet(3,0)
CallTable(Table1)
NextScan
EndProg
I don't see an issue with the code. That sort of thing might result from a missing end-quote or paren, etc.. Are you getting that error from the crbasic compiler or the logger? The crbasic compiler may give a list of several errors, and it's important to fix them from the top down, since they can cascade. If it's from the logger, maybe the whole program isn't getting there?
If you're using linux to edit the program, you may need to make sure that CRLF line endings are used, not just LF, as that might result in wierd errors.
Here are some parts of the program that I edited to a more 'literate' style using constants, and using colon to put related statements on a single line.
Public BattV : Units BattV = Volts
Public WS_ms : Units WS_ms = meters/second
Public WindDir : Units WindDir = degrees
Public Rain_mm : Units Rain_mm = mm
...
'Public CG3UpCo : Units CG3UpCo = W/m^2
'Public CG3DnCo : Units CG3DnCo = W/m^2
Public T108_C(6) : Units T108_C = Deg C
Public TRHData(2)
Alias TRHData(1) = AirTC : Units AirTC = Deg C
Alias TRHData(2) = RH : Units RH = %
...
const wd_03301__se = 1
const MUX__se = 3
const MUX__diff = 2
const CM3Up__diff = 3
const CM3Dn__diff = 4
const CG3Up__diff = 5
const CG3Dn__diff = 6
const CNR1TC__diff = 7
const ws_03101__pp = 1
const MUX_step__cp = 1
const TE525MM__cp = 2
const MUX_enable__cp = 3
const CS215__cp = 7
BeginProg
Scan(30,Sec,1,0)
Battery(BattV)
SDI12Recorder(TRHData(),CS215__cp,"0","M!",1,0)
PulseCount(WS_ms,1,rmy_03101__pp,2,1,1.25,0)
If WS_ms<0.01 Then WS_ms=0
BrHalf(WindDir,1,mV2500,wd_03301__se,1,1,2500,True,0,_60Hz,355,0)
...
Morning Everybody,
Thank's Mr Kerving for your message.But I reworked the program and it compile with succeful and on the output table i have not a value for T108_C(2),T108_C(4),T108_C(5),T108_C(6)''(NAN)''. The T108_C(1),T108_C(2) and Diff(1), Diff(2) for BF3 (PAR) give me the negative values.
This is the program reworked:
'CR1000
'Created by Short Cut (2.8)
'station meteo bamako
'plan de cablage
'cs215 Temperature de l'air et humidité de l'air
'rouge 12V, blanc G,noir G, vert: control port C7, gris: |||-
'wind speed
'Blanc G, clear G, Noir P1
'wind direction
'rouge H1, blanc-|||-, Noir=VX1, gris=|||-
'pluviographe
'noir P2, blanc-|||-, gris-|||-
'CNR1
' CM3 up: rouge H3, blue L3, CG3 up: gris H5, jaune L5,
' CM3down: blanc H4, noir L4, CG3 down: marron H6, vert L6
' PT100 Ex1 10KOhm VX2. Rouge H7, jaune L7, vert AG, gris G reste non utilisé
'Multiplexeur
'cablage multiplexeur
' COM ground--> |||- cr1000; com odd H--> c2 CR1000; (2 wire) com odd H--> vx2 CR1000
' com odd L-->L1; GND-->G cr1000;12V--> 12V cr1000;
' CLK --> C1; RES--> C3;EVEN H --> H2; EVEN L --> L2
' BF3
'sur multiplexur: blanc H10, gris H11, vert L11, rouge V+ et violet power 0V, braid screen, jaune pas utilise
'CS616 water Content reflectometer sur multiplexer:
'cs616(1):orange H1,le vert L1, rouge 12 V et le noir et le gris en masse
'cs616(2):orange H1,le vert H2, rouge 12 V et le noir et le gris en masse
'cs616(3):orange H1,le vert L2, rouge 12 V et le noir et le gris en masse
'cs616(4):orange H3,le vert L3, rouge 12 V et le noir et le gris en masse
'cs616(5):orange H3,le vert H4, rouge 12 V et le noir et le gris en masse
'cs616(6):orange H3,le vert L4, rouge 12 V et le noir et le gris en masse
'cs616(7):orange H5,le vert L5, rouge 12 V et le noir et le gris en masse
'temperature T108_C(1) sur le multiplexeur:
' T108_C (1) Noir H6, rouge L6 , gris G
' T108_C (2) Noir H6, rouge H7 , gris G
' T108_C (3) Noir H6, rouge L7 , gris G
' T108_C (4) Noir H8, rouge L8 , gris G
' T108_C (5) Noir H8, rouge H9 , gris G
' T108_C (6) Noir H8, rouge L9 , gris G
'Declare Variables and Units
Dim LCount_8
Dim LCount_23
Public BattV
Public TRHData(2)
Public WS_ms
Public WindDir
Public Rain_mm
Public VW(7)
Public PA_uS(7)
Public CM3Up
Public CM3Dn
Public CG3Up
Public CG3Dn
Public CNR1TC
'Public CNR1TK
'Public NetRs
'Public NetRl
'Public Albedo
'Public UpTot
'Public DnTot
'Public NetTot
'Public CG3UpCo
'Public CG3DnCo
Public DiffV(2)
Public T108_C(6)
Alias TRHData(1)=AirTC
Alias TRHData(2)=RH
Alias DiffV(1)= Diff1
Alias DiffV(2)= Diff2
Units BattV=Volts
Units WS_ms=meters/second
Units WindDir=degrees
Units Rain_mm=mm
Units PA_uS=uSec
Units CM3Up=W/m^2
Units CM3Dn=W/m^2
Units CG3Up=W/m^2
Units CG3Dn=W/m^2
Units CNR1TC=Deg C
'Units CNR1TK=K
'Units NetRs=W/m^2
'Units NetRl=W/m^2
'Units Albedo=W/m^2
'Units UpTot=W/m^2
'Units DnTot=W/m^2
'Units NetTot=W/m^2
'Units CG3UpCo=W/m^2
'Units CG3DnCo=W/m^2
Units AirTC=Deg C
Units RH=%
Units Diff1=mV
Units Diff2=mV
Units T108_C= Deg C
'BF3 1mV = 1micromol*m-2*s-1; 1mV=0.5 W*m-2
'Define Data Tables
DataTable(Meteo,True,-1)
DataInterval(0,1,Min,10)
Average(1,BattV,FP2,False)
Average(1,AirTC,FP2,False)
Sample(1,RH,FP2)
Average(1,WS_ms,FP2,False)
Sample(1,WindDir,FP2)
Totalize(1,Rain_mm,FP2,False)
Average(1,CM3Up,FP2,False)
Average(1,CM3Dn,FP2,False)
Average(1,CG3Up,FP2,False)
Average(1,CG3Dn,FP2,False)
Average(1,CNR1TC,FP2,False)
'Average(1,CG3UpCo,FP2,False)
'Average(1,CG3DnCo,FP2,False)
Average(1,VW(1),FP2,False)
Average(1,VW(2),FP2,False)
Average(1,VW(3),FP2,False)
Average(1,VW(4),FP2,False)
Average(1,VW(5),FP2,False)
Average(1,VW(6),FP2,False)
Average(1,VW(7),FP2,False)
Average(1,Diff1,FP2,False)
Average(1,Diff2,FP2,False)
Average(1,T108_C(1),FP2,False)
Average(1,T108_C(2),FP2,False)
Average(1,T108_C(3),FP2,False)
Average(1,T108_C(4),FP2,False)
Average(1,T108_C(5),FP2,False)
Average(1,T108_C(6),FP2,False)
EndTable
'Main Program
BeginProg
Scan(30,Sec,1,0)
'Default Datalogger Battery Voltage measurement BattV
Battery(BattV)
'CS215 Temperature & Relative Humidity Sensor measurements AirTC and RH
SDI12Recorder(TRHData(),7,"0","M!",1,0)
'03101 Wind Speed Sensor measurement WS_ms
PulseCount(WS_ms,1,1,2,1,1.25,0)
If WS_ms<0.01 Then WS_ms=0
'03301 Wind Direction Sensor measurement WindDir
BrHalf(WindDir,1,mV2500,1,1,1,2500,True,0,_60Hz,355,0)
If WindDir>=360 Then WindDir=0
'TE525MM/TE525M Rain Gauge measurement Rain_mm
PulseCount(Rain_mm,1,2,2,0,0.1,0)
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
LCount_23=1
SubScan(0,uSec,2)
'Switch to next AM416 Multiplexer channel
PulsePort(1,10000)
'CS616 Water Content Reflectometer measurements VW() and PA_uS() on the AM16/32 Multiplexer:
CS616(PA_uS(LCount_23),3,2,2,3,1,0)
LCount_23=LCount_23+3
NextSubScan
'Switch to next AM416 Multiplexer channel
PulsePort(1,10000)
'CS616 Water Content Reflectometer measurements VW() and PA_uS() on the AM16/32 Multiplexer:
CS616(PA_uS(7),1,2,2,1,1,0)
For LCount_23=1 To 7
VW(LCount_23)=-0.0663+(-0.0063*PA_uS(LCount_23))+(0.0007*PA_uS(LCount_23)^2)
Next
'Turn AM16/32 Multiplexer Off
PortSet(3,0)
Delay(0,150,mSec)
'CNR1 Net Radiometer measurements CM3Up, CM3Dn, CG3Up, CG3Dn, CNR1TC, CNR1TK,
'NetRs, NetRl, Albedo, UpTot, DnTot, NetTot, CG3UpCo, and CG3DnCo
VoltDiff(CM3Up,1,mV25,3,True,0,_60Hz,100,0)
VoltDiff(CM3Dn,1,mV25,4,True,0,_60Hz,100,0)
VoltDiff(CG3Up,1,mV7_5,5,True,0,_60Hz,100,0)
VoltDiff(CG3Dn,1,mV7_5,6,True,0,_60Hz,100,0)
BrHalf3W(CNR1TC,1,mV25,13,VX2,1,2100,True,0,_60Hz,100,0)
PRT(CNR1TC,1,CNR1TC,1,0)
'CNR1TK=CNR1TC+273.18
'NetRs=CM3Up-CM3Dn
'NetRl=CG3Up-CG3Dn
'Albedo=CM3Dn/CM3Up
'UpTot=CM3Up+CG3Up
'DnTot=CM3Dn+CG3Dn
'NetTot=UpTot-DnTot
'CG3UpCo=CG3Up+5.67*10^-8*CNR1TK^4
'CG3DnCo=CG3Dn+5.67*10^-8*CNR1TK^4
'Call Data Tables and Store Data
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
PulsePort(1,10000)
'BF3
VoltDiff(DiffV(1),1,mV2500,1,True,0,_60Hz,1,0)
PulsePort(1,10000)
VoltDiff(DiffV(2),1,mV2500,1,True,0,_60Hz,1,0)
PortSet(3,0)
'Turn AM16/32 Multiplexer On
PortSet(3,1)
Delay(0,150,mSec)
LCount_8=1
SubScan(0,uSec,2)
'Switch to next AM16/32 Multiplexer channel
PulsePort(1,10000)
'108 Temperature Probe (3-wire) measurements T108_C() on the AM16/32 Multiplexer:
Therm108(T108_C(LCount_8),3,3,3,0,_60Hz,1,0)
LCount_8=LCount_8+3
NextSubScan
'Turn AM16/32 Multiplexer Off
PortSet(3,0)
Delay(0,150,mSec)
CallTable(Meteo)
NextScan
EndProg
Best regards!
vik