Campbell Scientific CSAT3 Manuel D'utilisation page 34

CSAT3 Anémomètre sonique tridimensionnel
'Paramétrage de la vitesse de l'horloge SDM.
SDMSpeed (SDM_PER)
Scan (SCAN_INTERVAL,mSec,3,0)
Température du bornier de la centrale CRBasic.
PanelTemp (panel_temp,250)
'Prise du vent du CSAT3 et des données de la température sonique.
CSAT3 (Ux,1,3,91,CSAT_OPT)
'mesure de la tension de batterie.
Battery (batt_volt)
'Copie et conversion des données du CSAT3 pour le calcul du vecteur vent.
wind_east = -1*Uy
wind_north = Ux
'Définition du code 61502 comme NaN.
If ( diag_csat = NaN ) Then ( diag_csat = 61502 )
'Séparation des quatre drapeaux d'alerte du CSAT3 en quatre octet séparés.
diag_csat_work = diag_csat
del_T_f = diag_csat_work AND &h8000
sig_lck_f = diag_csat_work AND &h4000
amp_h_f = diag_csat_work AND &h2000
amp_l_f = diag_csat_work AND &h1000
'Mise en route du traitement intermédiaire lorsque l'un des drapeaux du CSAT3 d'alerte
'est « haut » , y compris les cas NaN (61502), Perte du déclenchement (61440), Pas de données
'(61503), une erreur SDM (61441), ou mal intégrés CSAT3 code (61442).
'Turn on the intermediate processing disable flag when any CSAT3 warning flag is 'high, including the
special cases NaN (61502), perte du déclenchement « a Lost Trigger » (61440), pas de données « No
'Data « (61503),erreur SDM « an SDM error » (61441), or ou mauvais code intégré du CSAT3 «
'wrong CSAT3 embedded code « (61442).
disable_flag_on(1) = diag_csat_work AND &hf000
'Mise en route uniquement si l'un de drapeaux d'alerte est activé.
disable_flag_on(2) = ( disable_flag_on(1) AND NOT (Ts = NaN) )
'Sauvegarde des 4 bit les plus significatifs des diagnostiques du CST3, excepté pour le cas spéciaux
'NaN (61502), perte du déclenchement « a Lost Trigger » (61440), pas de données « No Data
'« (61503),erreur SDM « an SDM error » (61441), or ou mauvais code intégré du CSAT3 « wrong
'CSAT3 embedded code « (61442).
If ( diag_csat_work < &hf000 ) Then ( diag_csat = INT (diag_csat_work/&h1000) )
'Calcule des vecteurs vent.
CallTable wnd_vec
If ( wnd_vec.Output(1,1) ) Then
EndIf
CallTable stats
NextScan
EndProg
24
GetRecord (wnd_out(1),wnd_vec,1)
'La direction du vent de la boussole doit être comprise entre 0 et 360 degrés.
wnd_dir_compass = (wnd_dir_compass+CSAT3_AZIMUTH) MOD 360
'La direction du vent du CSAT3 doit être comprise entre 0 to 180 degrés et 0 to -180 'degrés.
If ( wnd_dir_csat3 ) > 180 Then ( wnd_dir_csat3 = wnd_dir_csat3-360 )