hp41programs

Courseulles

Courseulles-Sur-Mer Water-Level for the HP-41


Overview
 

-This program computes the water-levels in Courseulles/Mer -France ( Latitude = 49° 24' 37"8 N, Longitude = 0° 28' 35"4 W )

-I've calculated the harmonic constituents by the routine listed in "Harmonic Constituents for the free42" ( "HCST" )
 and 2000 water-levels given by the SHOM - http://www.shom.fr between March 2018 and April 2019

-Courseulles/Mer is a small port in Normandy.

-Many 6th-diurnal waves have a relatively large amplitude, so during high-tides, the water-level remains high for several hours.
-It may even happen that a high-tide actually contains 1 "low"-tide between 2 high-tides, for example water-level = 6.00m - 5.99m - 6.01m
 
 

Program Listing
 
 

Data Registers:   R00 thru R15: temp
Flags: /
Subroutines: /
 
 
 

 01 LBL "COURSL"
 02 DEG
 03 HR
 04 24
 05 /
 06 X<>Y
 07 1.012
 08 DDAYS
 09 -
 10 STO 00
 11 .985647
 12 *
 13 STO 03
 14 54
 15 +
 16 COS
 17 50
 18 *
 19 RCL 03
 20 ST+ X
 21 STO 05
 22 76
 23 +
 24 COS
 25 9
 26 *
 27 +
 28 RCL 00
 29 13.176396
 30 *
 31 STO 06
 32 RCL 00
 33 .111404
 34 *
 35 STO 08
 36 -
 37 STO 11
 38 80
 39 -
 40 COS
 41 3
 42 *
 43 +
 44 RCL 06
 45 ST+ X
 46 STO 12
 47 RCL 05
 48 -
 49 26
 50 +
 51 COS
 52 5
 53 *
 54 -
 55 RCL 12
 56 75
 57 +
 58 STO 07
 59 COS
 60 RCL 00
 61 .052954
 62 *
 63 235
 64 +
 65 STO 04
 66 RCL 07
 67 +
 68 COS
 69 .4
 70 *
 71 +
 72 6
 73 *
 74 -
 75 RCL 08
 76 RCL 12
 77 -
 78 ST+ X
 79 RCL 03
 80 +
 81 RCL 00
 82 360
 83 *
 84 STO 01
 85 +
 86 44
 87 -
 88 COS
 89 ST+ X
 90 +
 91 RCL 01
 92 RCL 06
 93 ST- Y
 94 RCL 03
 95 -
 96 STO 09
 97 3
 98 *
 99 -
100 31
101 -
102 COS
103 LASTX
104 RCL 04
105 -
106 COS
107 5
108 /
109 +
110 4
111 *
112 +
113 RCL 01
114 RCL 06
115 -
116 RCL 12
117 -
118 RCL 03
119 +
120 RCL 08
121 +
122 24
123 +
124 COS
125 LASTX
126 RCL 04
127 -
128 COS
129 5.3
130 /
131 +
132 13
133 *
134 +
135 RCL 01
136 RCL 09
137 ST- Y
138 ST+ X
139 STO 10
140 -
141 RCL 08
142 -
143 63
144 +
145 COS
146 ST+ X
147 +
148 RCL 01
149 RCL 03
150 +
151 RCL 12
152 -
153 STO 07
154 62
155 -
156 COS
157 LASTX
158 RCL 04
159 -
160 COS
161 5.3
162 /
163 +
164 54
165 *
166 -
167 RCL 07
168 RCL 05
169 +
170 45
171 -
172 COS
173 6
174 *
175 +
176 RCL 01
177 RCL 03
178 -
179 RCL 11
180 -
181 STO 07
182 9
183 +
184 COS
185 ST+ X
186 +
187 RCL 07
188 RCL 05
189 +
190 STO 07
191 78
192 -
193 COS
194 LASTX
195 RCL 04
196 +
197 COS
198 5
199 /
200 +
201 4
202 *
203 -
204 RCL 07
205 RCL 08
206 ST+ X
207 -
208 STO 07
209 31
210 -
211 COS
212 +
213 RCL 07
214 RCL 05
215 +
216 46
217 +
218 COS
219 -
220 RCL 00
221 47 E-6
222 *
223 STO 00
224 RCL 05
225 -
226 RCL 01
227 +
228 70
229 +
230 COS
231 3
232 *
233 -
234 RCL 01
235 RCL 03
236 -
237 64
238 +
239 COS
240 28
241 *
242 -
243 RCL 01
244 67
245 -
246 COS
247 6
248 *
249 -
250 RCL 01
251 RCL 03
252 +
253 75
254 +
255 COS		 256 LASTX
257 STO 07 
258 RCL 04            
259 ST+ 07
260 -
261 COS
262 50
263 /
264 -
265 RCL 07
266 COS
267 7.4
268 /
269 +
270 90
271 *
272 -
273 RCL 01
274 RCL 03
275 +
276 RCL 05
277 +
278 92
279 +
280 COS
281 +
282 RCL 01
283 RCL 09
284 +
285 RCL 08
286 +
287 25
288 +
289 COS
290 +
291 RCL 01
292 RCL 03
293 +
294 RCL 11
295 +
296 64
297 -
298 COS
299 LASTX
300 RCL 04
301 +
302 COS
303 5
304 /
305 +
306 6
307 *
308 +
309 RCL 01
310 RCL 03
311 -
312 RCL 12
313 +
314 37
315 -
316 COS
317 LASTX
318 RCL 04
319 +
320 COS
321 5
322 /
323 +
324 6
325 *
326 +
327 RCL 01
328 RCL 12
329 +
330 RCL 03
331 +
332 8
333 -
334 COS
335 LASTX
336 RCL 04
337 +
338 COS
339 .6
340 *
341 +
342 5
343 *
344 -
345 RCL 01
346 ST+ X
347 STO 02
348 RCL 10
349 3
350 *
351 -
352 STO 13
353 RCL 11
354 -
355 10
356 +
357 COS
358 4
359 *
360 -
361 RCL 13
362 RCL 05
363 -
364 36
365 +
366 COS
367 ST+ X
368 +
369 RCL 13
370 RCL 10
371 +
372 STO 14
373 RCL 11
374 ST+ X
375 STO 15
376 -
377 79
378 +
379 COS
380 4
381 *
382 +
383 RCL 13
384 25
385 -
386 COS
387 LASTX
388 RCL 04
389 -
390 COS
391 9
392 /
393 -
394 9
395 *
396 +
397 RCL 14
398 RCL 05
399 -
400 RCL 11
401 -
402 STO 07
403 72
404 -
405 COS
406 LASTX
407 RCL 04
408 -
409 COS
410 .4
411 *
412 +
413 12
414 *
415 +
416 RCL 07
417 RCL 08
418 ST+ X
419 +
420 96
421 -
422 COS
423 6
424 *
425 +
426 RCL 14
427 RCL 11
428 -
429 7
430 -
431 COS
432 LASTX
433 RCL 04
434 -
435 COS
436 13
437 /
438 -
439 15
440 *
441 -
442 RCL 13
443 RCL 11
444 +
445 50
446 +
447 COS
448 8
449 *
450 -
451 RCL 14
452 RCL 05
453 -
454 63
455 +
456 COS
457 LASTX
458 STO 07
459 RCL 04
460 ST+ 07
461 -
462 COS
463 .22
464 *
465 +
466 RCL 07
467 COS
468 31
469 /
470 +
471 29
472 *
473 +
474 RCL 02
475 RCL 10
476 -
477 RCL 15
478 -
479 COS
480 LASTX
481 RCL 04
482 -
483 COS
484 27
485 /
486 -
487 57
488 *
489 +
490 RCL 14
491 50
492 -
493 COS
494 LASTX
495 RCL 04
496 -
497 COS
498 26
499 /
500 -
501 67
502 *
503 +
504 RCL 14
505 RCL 03
506 +
507 RCL 00
508 -
509 26
510 +		 511 COS
512 8
513 *
514 +
515 RCL 02 
516 RCL 10            
517 -
518 RCL 11
519 -
520 69.9
521 -
522 COS
523 LASTX
524 RCL 04
525 -
526 COS
527 27
528 /
529 -
530 460
531 *
532 -
533 RCL 14
534 RCL 11
535 +
536 29
537 -
538 COS
539 LASTX
540 RCL 04
541 -
542 COS
543 26
544 /
545 -
546 98
547 *
548 -
549 RCL 02
550 RCL 12
551 -
552 67
553 +
554 COS
555 LASTX
556 RCL 04
557 -
558 COS
559 6
560 /
561 +
562 17
563 *
564 -
565 RCL 02
566 RCL 15
567 -
568 5
569 +
570 COS
571 10
572 *
573 -
574 RCL 02
575 RCL 12
576 -
577 RCL 03
578 +
579 RCL 00
580 +
581 12
582 +
583 COS
584 22
585 *
586 -
587 RCL 02
588 RCL 10
589 -
590 STO 07
591 38.16
592 +
593 COS
594 LASTX
595 RCL 04
596 -
597 COS
598 27
599 /
600 -
601 2426
602 *
603 -
604 RCL 07
605 RCL 03
606 +
607 RCL 00
608 -
609 59
610 -
611 COS
612 12
613 *
614 -
615 RCL 14
616 RCL 12
617 +
618 76
619 +
620 COS
621 11
622 *
623 -
624 RCL 02
625 RCL 11
626 -
627 37
628 -
629 COS
630 LASTX
631 RCL 04
632 -
633 COS
634 22
635 /
636 -
637 54
638 *
639 -
640 RCL 02
641 RCL 10
642 -
643 RCL 11
644 +
645 STO 07
646 12
647 -
648 COS
649 LASTX
650 RCL 04
651 -
652 COS
653 27
654 /
655 -
656 110
657 *
658 -
659 RCL 07
660 RCL 08
661 ST+ X
662 +
663 73
664 -
665 COS
666 LASTX
667 RCL 04
668 +
669 STO 07
670 COS
671 .44
672 *
673 +
674 RCL 07
675 RCL 04
676 +
677 COS
678 16
679 /
680 +
681 16
682 *
683 -
684 RCL 02
685 RCL 03
686 -
687 RCL 00
688 +
689 44
690 +
691 COS
692 43
693 *
694 +
695 RCL 02
696 34.8
697 +
698 COS
699 LASTX
700 RCL 04
701 -
702 COS
703 447
704 /
705 +
706 817
707 *
708 +
709 RCL 02
710 RCL 03
711 +
712 RCL 00
713 -
714 7
715 -
716 COS
717 7
718 *
719 -
720 RCL 02
721 RCL 05
722 +
723 57.3
724 +
725 COS
726 LASTX
727 STO 07
728 RCL 04
729 ST+ 07
730 -
731 COS
732 77
733 /
734 -
735 RCL 07
736 COS
737 .3
738 *
739 +
740 RCL 04
741 RCL 07
742 +
743 COS
744 31
745 /
746 +
747 233
748 *
749 -
750 RCL 02
751 RCL 11
752 +
753 23
754 -
755 COS
756 LASTX
757 STO 07
758 RCL 04
759 ST+ 07
760 -
761 COS
762 RCL 07
763 COS
764 +
765 27		 766 /
767 -
768 35
769 *
770 +
771 RCL 02 
772 RCL 06            
773 +
774 RCL 08
775 +
776 24
777 -
778 COS
779 LASTX
780 RCL 04
781 +
782 COS
783 2
784 /
785 +
786 ST+ X
787 +
788 RCL 02
789 RCL 11
790 +
791 RCL 05
792 +
793 67
794 -
795 COS
796 LASTX
797 RCL 04
798 +
799 COS
800 3
801 /
802 +
803 4
804 *
805 +
806 RCL 02
807 RCL 10
808 +
809 52
810 +
811 COS
812 LASTX
813 RCL 04
814 +
815 COS
816 27
817 /
818 -
819 43
820 *
821 +
822 RCL 02
823 RCL 12
824 +
825 76
826 +
827 COS
828 LASTX
829 RCL 04
830 +
831 COS
832 4
833 /
834 +
835 23
836 *
837 -
838 RCL 01
839 ST+ 02
840 ST+ 13
841 RCL 14
842 +
843 STO 14
844 RCL 11
845 -
846 RCL 03
847 -
848 94
849 -
850 COS
851 4
852 *
853 +
854 RCL 14
855 RCL 03
856 -
857 6
858 -
859 COS
860 10
861 *
862 +
863 RCL 14
864 RCL 03
865 +
866 65
867 +
868 COS
869 -
870 RCL 14
871 RCL 09
872 +
873 57
874 -
875 COS
876 8
877 *
878 -
879 RCL 02
880 RCL 12
881 -
882 RCL 03
883 +
884 38
885 -
886 COS
887 LASTX
888 RCL 04
889 -
890 COS
891 5
892 /
893 +
894 5
895 *
896 -
897 RCL 02
898 RCL 10
899 -
900 RCL 03
901 +
902 STO 07
903 55
904 -
905 COS
906 LASTX
907 RCL 04
908 +
909 COS
910 7
911 /
912 +
913 10
914 *
915 -
916 RCL 07
917 RCL 06
918 +
919 70
920 -
921 COS
922 +
923 RCL 02
924 RCL 03
925 -
926 15
927 -
928 COS
929 ST+ X
930 +
931 RCL 02
932 47
933 +
934 COS
935 ST+ X
936 +
937 RCL 02
938 RCL 03
939 +
940 42
941 -
942 COS
943 ST+ X
944 +
945 RCL 01
946 ST+ 02
947 ST+ 14
948 RCL 13
949 +
950 STO 13
951 RCL 11
952 ST+ X
953 -
954 82
955 +
956 COS
957 PI
958 *
959 +
960 RCL 13
961 RCL 10
962 -
963 STO 07
964 43
965 -
966 COS
967 ST+ X
968 +
969 RCL 13
970 RCL 11
971 -
972 2
973 -
974 COS
975 LASTX
976 RCL 04
977 -
978 COS
979 9
980 /
981 -
982 12
983 *
984 -
985 RCL 07
986 RCL 11
987 +
988 34
989 +
990 COS
991 5
992 *
993 -
994 RCL 14
995 RCL 12
996 -
997 55
998 +
999 COS
1000 LASTX
1001 RCL 04
1002 -
1003 COS
1004 5
1005 /
1006 +
1007 7
1008 *
1009 +
1010 RCL 14
1011 RCL 15
1012 -
1013 4
1014 +
1015 COS
1016 LASTX
1017 RCL 04
1018 -
1019 COS
1020 13		 1021 /
1022 -
1023 16
1024 *
1025 +
1026 RCL 13          
1027 69
1028 -
1029 COS
1030 LASTX
1031 RCL 04
1032 -
1033 COS
1034 9
1035 /
1036 -
1037 23
1038 *
1039 +
1040 RCL 14
1041 RCL 11
1042 -
1043 69
1044 -
1045 COS
1046 LASTX
1047 RCL 04
1048 -
1049 COS
1050 13
1051 /
1052 -
1053 78
1054 *
1055 -
1056 RCL 13
1057 RCL 11
1058 +
1059 19
1060 -
1061 COS
1062 LASTX
1063 RCL 04
1064 -
1065 COS
1066 13
1067 /
1068 -
1069 20
1070 *
1071 -
1072 RCL 14
1073 RCL 05
1074 -
1075 56
1076 +
1077 COS
1078 LASTX
1079 RCL 04
1080 -
1081 COS
1082 4
1083 /
1084 +
1085 6
1086 *
1087 -
1088 RCL 14
1089 36.6
1090 +
1091 COS
1092 LASTX
1093 RCL 04
1094 -
1095 COS
1096 13
1097 /
1098 -
1099 220
1100 *
1101 -
1102 RCL 14
1103 RCL 05
1104 +
1105 71
1106 -
1107 COS
1108 LASTX
1109 RCL 04
1110 +
1111 COS
1112 .3
1113 *
1114 +
1115 6
1116 *
1117 +
1118 RCL 02
1119 RCL 10
1120 -
1121 RCL 11
1122 -
1123 64
1124 +
1125 COS
1126 17
1127 *
1128 -
1129 RCL 14
1130 RCL 11
1131 +
1132 15
1133 -
1134 COS
1135 LASTX
1136 STO 07
1137 RCL 04
1138 ST+ 07
1139 -
1140 COS
1141 9
1142 /
1143 -
1144 RCL 07
1145 COS
1146 27
1147 /
1148 -
1149 23
1150 *
1151 -
1152 RCL 14
1153 RCL 06
1154 +
1155 RCL 08
1156 +
1157 61
1158 -
1159 COS
1160 LASTX
1161 RCL 04
1162 +
1163 COS
1164 .3
1165 *
1166 +
1167 9
1168 *
1169 -
1170 RCL 02
1171 RCL 12
1172 -
1173 RCL 03
1174 +
1175 RCL 00
1176 +
1177 42
1178 +
1179 COS
1180 6
1181 *
1182 +
1183 RCL 02
1184 RCL 10
1185 -
1186 26.4
1187 +
1188 COS
1189 LASTX
1190 RCL 04
1191 -
1192 COS
1193 29
1194 /
1195 -
1196 149
1197 *
1198 +
1199 RCL 14
1200 RCL 12
1201 +
1202 49
1203 +
1204 COS
1205 LASTX
1206 STO 07
1207 RCL 04
1208 ST+ 07
1209 -
1210 COS
1211 20
1212 /
1213 -
1214 RCL 07
1215 COS
1216 .3
1217 *
1218 +
1219 43
1220 *
1221 -
1222 RCL 02
1223 RCL 11
1224 -
1225 60
1226 -
1227 COS
1228 6
1229 *
1230 +
1231 RCL 02
1232 RCL 10
1233 -
1234 RCL 11
1235 +
1236 28
1237 -
1238 COS
1239 LASTX
1240 RCL 04
1241 -
1242 COS
1243 13
1244 /
1245 -
1246 18
1247 *
1248 +
1249 RCL 14
1250 RCL 11
1251 +
1252 RCL 12
1253 +
1254 15
1255 +
1256 COS
1257 3
1258 *
1259 -
1260 RCL 02
1261 4
1262 -
1263 COS
1264 16
1265 *
1266 -
1267 RCL 02
1268 RCL 05
1269 +
1270 18
1271 +
1272 COS
1273 LASTX
1274 RCL 04
1275 +		 1276 COS
1277 .3
1278 *
1279 +
1280 10
1281 *
1282 +
1283 RCL 01          
1284 ST+ X
1285 STO 01
1286 ST+ 02
1287 ST+ 14
1288 RCL 13
1289 +
1290 STO 13
1291 RCL 12
1292 -
1293 RCL 11
1294 -
1295 STO 07
1296 6
1297 +
1298 COS
1299 LASTX
1300 RCL 04
1301 -
1302 COS
1303 5
1304 /
1305 +
1306 5
1307 *
1308 -
1309 RCL 07
1310 RCL 05
1311 +
1312 STO 07
1313 39
1314 +
1315 COS
1316 LASTX
1317 RCL 04
1318 -
1319 COS
1320 7
1321 /
1322 -
1323 9
1324 *
1325 +
1326 RCL 07
1327 RCL 05
1328 +
1329 RCL 08
1330 ST+ X
1331 -
1332 69
1333 +
1334 COS
1335 4
1336 *
1337 +
1338 RCL 13
1339 RCL 12
1340 -
1341 STO 07
1342 67
1343 -
1344 COS
1345 5
1346 *
1347 +
1348 RCL 07
1349 RCL 08
1350 ST+ X
1351 +
1352 74
1353 -
1354 COS
1355 LASTX
1356 RCL 04
1357 -
1358 COS
1359 9
1360 /
1361 -
1362 18
1363 *
1364 +
1365 RCL 13
1366 RCL 10
1367 -
1368 STO 15
1369 29
1370 -
1371 COS
1372 LASTX
1373 RCL 04
1374 -
1375 COS
1376 7
1377 /
1378 -
1379 8
1380 *
1381 -
1382 RCL 13
1383 RCL 11
1384 -
1385 30
1386 +
1387 COS
1388 LASTX
1389 RCL 04
1390 -
1391 COS
1392 9
1393 /
1394 -
1395 63
1396 *
1397 +
1398 RCL 15
1399 RCL 11
1400 +
1401 62
1402 +
1403 COS
1404 LASTX
1405 RCL 04
1406 -
1407 COS
1408 9
1409 /
1410 -
1411 18
1412 *
1413 +
1414 RCL 14
1415 RCL 12
1416 -
1417 55
1418 -
1419 COS
1420 LASTX
1421 RCL 04
1422 -
1423 COS
1424 5
1425 /
1426 +
1427 8
1428 *
1429 -
1430 RCL 13
1431 47
1432 -
1433 COS
1434 LASTX
1435 RCL 04
1436 -
1437 COS
1438 9
1439 /
1440 -
1441 116
1442 *
1443 -
1444 RCL 13
1445 RCL 05
1446 +
1447 6
1448 -
1449 COS
1450 LASTX
1451 RCL 04
1452 +
1453 COS
1454 .3
1455 *
1456 +
1457 5
1458 *
1459 -
1460 RCL 14
1461 RCL 11
1462 -
1463 24
1464 +
1465 COS
1466 LASTX
1467 RCL 04
1468 -
1469 COS
1470 14
1471 /
1472 -
1473 29
1474 *
1475 -
1476 RCL 13
1477 RCL 11
1478 +
1479 67
1480 +
1481 COS
1482 LASTX
1483 RCL 04
1484 -
1485 COS
1486 7
1487 /
1488 -
1489 13
1490 *
1491 +
1492 RCL 13
1493 RCL 06
1494 +
1495 RCL 08
1496 +
1497 47
1498 +
1499 COS
1500 LASTX
1501 STO 07
1502 RCL 04
1503 ST+ 07
1504 -
1505 COS
1506 11
1507 /
1508 -
1509 RCL 07
1510 COS
1511 .3
1512 *
1513 +
1514 12
1515 *
1516 +
1517 RCL 14
1518 RCL 03
1519 -
1520 RCL 00
1521 +
1522 17
1523 -
1524 COS
1525 7
1526 *
1527 +
1528 RCL 14
1529 48.4
1530 -		 1531 COS
1532 LASTX
1533 RCL 04
1534 -
1535 COS
1536 14
1537 /
1538 -
1539 117
1540 *
1541 +
1542 RCL 14          
1543 RCL 05
1544 +
1545 28
1546 -
1547 COS
1548 LASTX
1549 STO 07
1550 RCL 04
1551 ST+ 07
1552 -
1553 COS
1554 11
1555 /
1556 -
1557 RCL 07
1558 COS
1559 .3
1560 *
1561 +
1562 32
1563 *
1564 -
1565 RCL 02
1566 RCL 10
1567 -
1568 RCL 11
1569 -
1570 36
1571 +
1572 COS
1573 4
1574 *
1575 -
1576 RCL 14
1577 RCL 11
1578 +
1579 61
1580 +
1581 COS
1582 LASTX
1583 STO 07
1584 RCL 04
1585 ST+ 07
1586 -
1587 COS
1588 9
1589 /
1590 -
1591 RCL 07
1592 COS
1593 27
1594 /
1595 -
1596 23
1597 *
1598 -
1599 RCL 13
1600 RCL 11
1601 +
1602 RCL 12
1603 +
1604 87
1605 +
1606 COS
1607 LASTX
1608 RCL 04
1609 +
1610 COS
1611 4
1612 /
1613 +
1614 PI
1615 *
1616 +
1617 RCL 02
1618 RCL 10
1619 -
1620 52
1621 -
1622 COS
1623 LASTX
1624 RCL 04
1625 -
1626 COS
1627 30
1628 /
1629 -
1630 27
1631 *
1632 -
1633 RCL 14
1634 RCL 12
1635 +
1636 34
1637 -
1638 COS
1639 LASTX
1640 STO 07
1641 RCL 04
1642 ST+ 07
1643 -
1644 COS
1645 21
1646 /
1647 -
1648 RCL 07
1649 COS
1650 .3
1651 *
1652 +
1653 17
1654 *
1655 +
1656 RCL 01
1657 ST+ 02
1658 ST+ 13
1659 ST+ 14
1660 RCL 15
1661 +
1662 STO 15
1663 RCL 11
1664 ST+ X
1665 -
1666 18
1667 -
1668 COS
1669 +
1670 RCL 15
1671 RCL 11
1672 -
1673 79
1674 +
1675 COS
1676 ST+ X
1677 +
1678 RCL 15
1679 2
1680 -
1681 COS
1682 ST+ X
1683 -
1684 RCL 13
1685 RCL 11
1686 -
1687 96
1688 -
1689 COS
1690 +
1691 RCL 15
1692 RCL 11
1693 +
1694 34
1695 +
1696 COS
1697 -
1698 RCL 15
1699 RCL 06
1700 +
1701 RCL 08
1702 +
1703 98
1704 +
1705 COS
1706 +
1707 RCL 13
1708 8
1709 -
1710 COS
1711 ST+ X
1712 +
1713 RCL 15
1714 RCL 12
1715 +
1716 15
1717 +
1718 COS
1719 -
1720 RCL 13
1721 RCL 06
1722 +
1723 RCL 08
1724 +
1725 22
1726 +
1727 COS
1728 -
1729 RCL 14
1730 24
1731 -
1732 COS
1733 -
1734 RCL 14
1735 RCL 05
1736 +
1737 19
1738 -
1739 COS
1740 +
1741 RCL 01
1742 ST+ 13
1743 RCL 15
1744 +
1745 STO 15
1746 RCL 10
1747 -
1748 STO 14
1749 RCL 11
1750 -
1751 93
1752 -
1753 COS
1754 +
1755 RCL 14
1756 COS
1757 +
1758 RCL 15
1759 RCL 11
1760 -
1761 68
1762 +
1763 COS
1764 +
1765 RCL 15
1766 COS
1767 ST+ X
1768 -
1769 RCL 15
1770 RCL 11
1771 +
1772 46
1773 -
1774 COS
1775 ST+ X
1776 +
1777 RCL 13
1778 32
1779 -
1780 COS
1781 +
1782 4593
1783 +
1784 .1
1785 %
1786 END

 
      ( 2136 bytes / SIZE 016 )
 
 

      STACK        INPUTS      OUTPUTS
           Y          Date             /
           X      Time ( UT )  Water-Level (m)

 
Example:      2019 June 06th  16h41 UT

      6.062109   ENTER^
        16.41       XEQ "COURSL"              >>>>                            WL = 2.303 m
 

Notes:

-Compared to the 2000 water-levels used to calculate the harmonic constituents, the root-mean-square error is about 0.6 cm and the maximum error is 2.2 cm
-But nothing proves the errors are never larger on other intervals of time !
 
 

Reference:

[1] SHOM - https://maree.shom.fr/harbor/COURSEULLES_LARGE/wl/