35 '$Id: CRTM_SensorInfo.f90 60152 2015-08-13 19:19:13Z paul.vandelst@noaa.gov $' 38 INTEGER,
PUBLIC,
PARAMETER ::
wmo_msu = 623
44 INTEGER,
PUBLIC,
PARAMETER ::
wmo_mhs = 203
45 INTEGER,
PUBLIC,
PARAMETER ::
wmo_vas = 630
53 INTEGER,
PUBLIC,
PARAMETER ::
wmo_hsb = 246
120 nChannels , & ! Optional output
121 nFOVs , & ! Optional output
122 Detector , & ! Optional output
123 WMO_Sensor_Id , & ! Optional output
124 WMO_Satellite_Id, & ! Optional output
125 SensorName , & ! Optional output
126 SatelliteName , & ! Optional output
127 RCS_Id , & ! Version control
129 result( error_status )
131 CHARACTER(*),
INTENT(IN) :: sensor_id
132 INTEGER,
OPTIONAL,
INTENT(OUT) :: nchannels
133 INTEGER,
OPTIONAL,
INTENT(OUT) :: nfovs
134 INTEGER,
OPTIONAL,
INTENT(OUT) :: detector
135 INTEGER,
OPTIONAL,
INTENT(OUT) :: wmo_sensor_id
136 INTEGER,
OPTIONAL,
INTENT(OUT) :: wmo_satellite_id
137 CHARACTER(*),
OPTIONAL,
INTENT(OUT) :: sensorname
138 CHARACTER(*),
OPTIONAL,
INTENT(OUT) :: satellitename
139 CHARACTER(*),
OPTIONAL,
INTENT(OUT) :: rcs_id
140 CHARACTER(*),
OPTIONAL,
INTENT(IN) :: message_log
142 INTEGER :: error_status
144 CHARACTER(*),
PARAMETER :: routine_name=
'CRTM_Get_SensorAttributes' 145 INTEGER,
PARAMETER :: sl=20
147 INTEGER :: local_nchannels
148 INTEGER :: local_nfovs
149 INTEGER :: local_detector
150 INTEGER :: local_wmo_sensor_id
151 INTEGER :: local_wmo_satellite_id
152 CHARACTER(SL) :: local_sensorname
153 CHARACTER(SL) :: local_satellitename
164 local_sensorname =
'NONE' 165 local_satellitename =
'NONE' 170 SELECT CASE (trim(adjustl(sensor_id)))
175 local_wmo_sensor_id = 605
176 local_wmo_satellite_id = 708
177 local_sensorname =
'HIRS/2' 178 local_satellitename =
'TIROS-N' 183 local_wmo_sensor_id = 623
184 local_wmo_satellite_id = 708
185 local_sensorname =
'MSU' 186 local_satellitename =
'TIROS-N' 191 local_wmo_sensor_id = 627
192 local_wmo_satellite_id = 708
193 local_sensorname =
'SSU' 194 local_satellitename =
'TIROS-N' 199 local_wmo_sensor_id = 590
200 local_wmo_satellite_id = 708
201 local_sensorname =
'AVHRR/2' 202 local_satellitename =
'TIROS-N' 207 local_wmo_sensor_id = 605
208 local_wmo_satellite_id = 706
209 local_sensorname =
'HIRS/2' 210 local_satellitename =
'NOAA-06' 215 local_wmo_sensor_id = 623
216 local_wmo_satellite_id = 706
217 local_sensorname =
'MSU' 218 local_satellitename =
'NOAA-06' 223 local_wmo_sensor_id = 627
224 local_wmo_satellite_id = 706
225 local_sensorname =
'SSU' 226 local_satellitename =
'NOAA-06' 231 local_wmo_sensor_id = 590
232 local_wmo_satellite_id = 706
233 local_sensorname =
'AVHRR/2' 234 local_satellitename =
'NOAA-06' 239 local_wmo_sensor_id = 605
240 local_wmo_satellite_id = 707
241 local_sensorname =
'HIRS/2' 242 local_satellitename =
'NOAA-07' 247 local_wmo_sensor_id = 623
248 local_wmo_satellite_id = 707
249 local_sensorname =
'MSU' 250 local_satellitename =
'NOAA-07' 255 local_wmo_sensor_id = 627
256 local_wmo_satellite_id = 707
257 local_sensorname =
'SSU' 258 local_satellitename =
'NOAA-07' 263 local_wmo_sensor_id = 590
264 local_wmo_satellite_id = 707
265 local_sensorname =
'AVHRR/2' 266 local_satellitename =
'NOAA-07' 271 local_wmo_sensor_id = 605
272 local_wmo_satellite_id = 200
273 local_sensorname =
'HIRS/2' 274 local_satellitename =
'NOAA-08' 279 local_wmo_sensor_id = 623
280 local_wmo_satellite_id = 200
281 local_sensorname =
'MSU' 282 local_satellitename =
'NOAA-08' 287 local_wmo_sensor_id = 627
288 local_wmo_satellite_id = 200
289 local_sensorname =
'SSU' 290 local_satellitename =
'NOAA-08' 295 local_wmo_sensor_id = 590
296 local_wmo_satellite_id = 200
297 local_sensorname =
'AVHRR/2' 298 local_satellitename =
'NOAA-08' 303 local_wmo_sensor_id = 605
304 local_wmo_satellite_id = 201
305 local_sensorname =
'HIRS/2' 306 local_satellitename =
'NOAA-09' 311 local_wmo_sensor_id = 623
312 local_wmo_satellite_id = 201
313 local_sensorname =
'MSU' 314 local_satellitename =
'NOAA-09' 319 local_wmo_sensor_id = 627
320 local_wmo_satellite_id = 201
321 local_sensorname =
'SSU' 322 local_satellitename =
'NOAA-09' 327 local_wmo_sensor_id = 590
328 local_wmo_satellite_id = 201
329 local_sensorname =
'AVHRR/2' 330 local_satellitename =
'NOAA-09' 335 local_wmo_sensor_id = 605
336 local_wmo_satellite_id = 202
337 local_sensorname =
'HIRS/2' 338 local_satellitename =
'NOAA-10' 343 local_wmo_sensor_id = 623
344 local_wmo_satellite_id = 202
345 local_sensorname =
'MSU' 346 local_satellitename =
'NOAA-10' 351 local_wmo_sensor_id = 590
352 local_wmo_satellite_id = 202
353 local_sensorname =
'AVHRR/2' 354 local_satellitename =
'NOAA-10' 359 local_wmo_sensor_id = 605
360 local_wmo_satellite_id = 203
361 local_sensorname =
'HIRS/2' 362 local_satellitename =
'NOAA-11' 367 local_wmo_sensor_id = 623
368 local_wmo_satellite_id = 203
369 local_sensorname =
'MSU' 370 local_satellitename =
'NOAA-11' 375 local_wmo_sensor_id = 627
376 local_wmo_satellite_id = 203
377 local_sensorname =
'SSU' 378 local_satellitename =
'NOAA-11' 383 local_wmo_sensor_id = 590
384 local_wmo_satellite_id = 203
385 local_sensorname =
'AVHRR/2' 386 local_satellitename =
'NOAA-11' 391 local_wmo_sensor_id = 605
392 local_wmo_satellite_id = 204
393 local_sensorname =
'HIRS/2' 394 local_satellitename =
'NOAA-12' 399 local_wmo_sensor_id = 623
400 local_wmo_satellite_id = 204
401 local_sensorname =
'MSU' 402 local_satellitename =
'NOAA-12' 407 local_wmo_sensor_id = 590
408 local_wmo_satellite_id = 204
409 local_sensorname =
'AVHRR/2' 410 local_satellitename =
'NOAA-12' 415 local_wmo_sensor_id = 605
416 local_wmo_satellite_id = 205
417 local_sensorname =
'HIRS/2' 418 local_satellitename =
'NOAA-14' 423 local_wmo_sensor_id = 623
424 local_wmo_satellite_id = 205
425 local_sensorname =
'MSU' 426 local_satellitename =
'NOAA-14' 431 local_wmo_sensor_id = 627
432 local_wmo_satellite_id = 205
433 local_sensorname =
'SSU' 434 local_satellitename =
'NOAA-14' 439 local_wmo_sensor_id = 590
440 local_wmo_satellite_id = 205
441 local_sensorname =
'AVHRR/2' 442 local_satellitename =
'NOAA-14' 447 local_wmo_sensor_id = 606
448 local_wmo_satellite_id = 206
449 local_sensorname =
'HIRS/3' 450 local_satellitename =
'NOAA-15' 455 local_wmo_sensor_id = 570
456 local_wmo_satellite_id = 206
457 local_sensorname =
'AMSU-A' 458 local_satellitename =
'NOAA-15' 463 local_wmo_sensor_id = 574
464 local_wmo_satellite_id = 206
465 local_sensorname =
'AMSU-B' 466 local_satellitename =
'NOAA-15' 471 local_wmo_sensor_id = 591
472 local_wmo_satellite_id = 206
473 local_sensorname =
'AVHRR/3' 474 local_satellitename =
'NOAA-15' 479 local_wmo_sensor_id = 606
480 local_wmo_satellite_id = 207
481 local_sensorname =
'HIRS/3' 482 local_satellitename =
'NOAA-16' 487 local_wmo_sensor_id = 570
488 local_wmo_satellite_id = 207
489 local_sensorname =
'AMSU-A' 490 local_satellitename =
'NOAA-16' 495 local_wmo_sensor_id = 574
496 local_wmo_satellite_id = 207
497 local_sensorname =
'AMSU-B' 498 local_satellitename =
'NOAA-16' 503 local_wmo_sensor_id = 591
504 local_wmo_satellite_id = 207
505 local_sensorname =
'AVHRR/3' 506 local_satellitename =
'NOAA-16' 511 local_wmo_sensor_id = 606
512 local_wmo_satellite_id = 208
513 local_sensorname =
'HIRS/3' 514 local_satellitename =
'NOAA-17' 519 local_wmo_sensor_id = 570
520 local_wmo_satellite_id = 208
521 local_sensorname =
'AMSU-A' 522 local_satellitename =
'NOAA-17' 527 local_wmo_sensor_id = 574
528 local_wmo_satellite_id = 208
529 local_sensorname =
'AMSU-B' 530 local_satellitename =
'NOAA-17' 535 local_wmo_sensor_id = 591
536 local_wmo_satellite_id = 208
537 local_sensorname =
'AVHRR/3' 538 local_satellitename =
'NOAA-17' 543 local_wmo_sensor_id = 607
544 local_wmo_satellite_id = 209
545 local_sensorname =
'HIRS/4' 546 local_satellitename =
'NOAA-18' 551 local_wmo_sensor_id = 570
552 local_wmo_satellite_id = 209
553 local_sensorname =
'AMSU-A' 554 local_satellitename =
'NOAA-18' 559 local_wmo_sensor_id = 203
560 local_wmo_satellite_id = 209
561 local_sensorname =
'MHS' 562 local_satellitename =
'NOAA-18' 567 local_wmo_sensor_id = 591
568 local_wmo_satellite_id = 209
569 local_sensorname =
'AVHRR/3' 570 local_satellitename =
'NOAA-18' 575 local_wmo_sensor_id = 570
576 local_wmo_satellite_id = 210
577 local_sensorname =
'AMSU-A' 578 local_satellitename =
'NOAA-19' 583 local_wmo_sensor_id = 203
584 local_wmo_satellite_id = 210
585 local_sensorname =
'MHS' 586 local_satellitename =
'NOAA-19' 587 CASE(
'hirs4_metop-a')
591 local_wmo_sensor_id = 607
592 local_wmo_satellite_id = 4
593 local_sensorname =
'HIRS/4' 594 local_satellitename =
'MetOp-A' 595 CASE(
'avhrr3_metop-a')
599 local_wmo_sensor_id = 591
600 local_wmo_satellite_id = 4
601 local_sensorname =
'AVHRR/3' 602 local_satellitename =
'MetOp-A' 603 CASE(
'amsua_metop-a')
607 local_wmo_sensor_id = 570
608 local_wmo_satellite_id = 4
609 local_sensorname =
'AMSU-A' 610 local_satellitename =
'MetOp-A' 615 local_wmo_sensor_id = 203
616 local_wmo_satellite_id = 4
617 local_sensorname =
'MHS' 618 local_satellitename =
'MetOp-A' 619 CASE(
'amsua_metop-b')
623 local_wmo_sensor_id = 570
624 local_wmo_satellite_id = 3
625 local_sensorname =
'AMSU-A' 626 local_satellitename =
'MetOp-B' 631 local_wmo_sensor_id = 203
632 local_wmo_satellite_id = 3
633 local_sensorname =
'MHS' 634 local_satellitename =
'MetOp-B' 635 CASE(
'amsua_metop-c')
639 local_wmo_sensor_id = 570
640 local_wmo_satellite_id = 5
641 local_sensorname =
'AMSU-A' 642 local_satellitename =
'MetOp-C' 647 local_wmo_sensor_id = 203
648 local_wmo_satellite_id = 5
649 local_sensorname =
'MHS' 650 local_satellitename =
'MetOp-C' 655 local_wmo_sensor_id = 630
656 local_wmo_satellite_id = 734
657 local_sensorname =
'VAS' 658 local_satellitename =
'GOES-04' 663 local_wmo_sensor_id = 630
664 local_wmo_satellite_id = 735
665 local_sensorname =
'VAS' 666 local_satellitename =
'GOES-05' 671 local_wmo_sensor_id = 630
672 local_wmo_satellite_id = 250
673 local_sensorname =
'VAS' 674 local_satellitename =
'GOES-06' 679 local_wmo_sensor_id = 630
680 local_wmo_satellite_id = 251
681 local_sensorname =
'VAS' 682 local_satellitename =
'GOES-07' 687 local_wmo_sensor_id = 626
688 local_wmo_satellite_id = 252
689 local_sensorname =
'SOUNDER' 690 local_satellitename =
'GOES-08' 695 local_wmo_sensor_id = 615
696 local_wmo_satellite_id = 252
697 local_sensorname =
'IMAGER' 698 local_satellitename =
'GOES-08' 703 local_wmo_sensor_id = 626
704 local_wmo_satellite_id = 253
705 local_sensorname =
'SOUNDER' 706 local_satellitename =
'GOES-09' 711 local_wmo_sensor_id = 615
712 local_wmo_satellite_id = 253
713 local_sensorname =
'IMAGER' 714 local_satellitename =
'GOES-09' 719 local_wmo_sensor_id = 626
720 local_wmo_satellite_id = 254
721 local_sensorname =
'SOUNDER' 722 local_satellitename =
'GOES-10' 727 local_wmo_sensor_id = 626
728 local_wmo_satellite_id = 254
729 local_sensorname =
'SOUNDER' 730 local_satellitename =
'GOES-10' 735 local_wmo_sensor_id = 626
736 local_wmo_satellite_id = 254
737 local_sensorname =
'SOUNDER' 738 local_satellitename =
'GOES-10' 743 local_wmo_sensor_id = 626
744 local_wmo_satellite_id = 254
745 local_sensorname =
'SOUNDER' 746 local_satellitename =
'GOES-10' 751 local_wmo_sensor_id = 626
752 local_wmo_satellite_id = 254
753 local_sensorname =
'SOUNDER' 754 local_satellitename =
'GOES-10' 759 local_wmo_sensor_id = 615
760 local_wmo_satellite_id = 254
761 local_sensorname =
'IMAGER' 762 local_satellitename =
'GOES-10' 767 local_wmo_sensor_id = 626
768 local_wmo_satellite_id = 255
769 local_sensorname =
'SOUNDER' 770 local_satellitename =
'GOES-11' 775 local_wmo_sensor_id = 626
776 local_wmo_satellite_id = 255
777 local_sensorname =
'SOUNDER' 778 local_satellitename =
'GOES-11' 783 local_wmo_sensor_id = 626
784 local_wmo_satellite_id = 255
785 local_sensorname =
'SOUNDER' 786 local_satellitename =
'GOES-11' 791 local_wmo_sensor_id = 626
792 local_wmo_satellite_id = 255
793 local_sensorname =
'SOUNDER' 794 local_satellitename =
'GOES-11' 799 local_wmo_sensor_id = 626
800 local_wmo_satellite_id = 255
801 local_sensorname =
'SOUNDER' 802 local_satellitename =
'GOES-11' 807 local_wmo_sensor_id = 615
808 local_wmo_satellite_id = 255
809 local_sensorname =
'IMAGER' 810 local_satellitename =
'GOES-11' 815 local_wmo_sensor_id = 626
816 local_wmo_satellite_id = 256
817 local_sensorname =
'SOUNDER' 818 local_satellitename =
'GOES-12' 823 local_wmo_sensor_id = 626
824 local_wmo_satellite_id = 256
825 local_sensorname =
'SOUNDER' 826 local_satellitename =
'GOES-12' 831 local_wmo_sensor_id = 626
832 local_wmo_satellite_id = 256
833 local_sensorname =
'SOUNDER' 834 local_satellitename =
'GOES-12' 839 local_wmo_sensor_id = 626
840 local_wmo_satellite_id = 256
841 local_sensorname =
'SOUNDER' 842 local_satellitename =
'GOES-12' 847 local_wmo_sensor_id = 626
848 local_wmo_satellite_id = 256
849 local_sensorname =
'SOUNDER' 850 local_satellitename =
'GOES-12' 855 local_wmo_sensor_id = 615
856 local_wmo_satellite_id = 256
857 local_sensorname =
'IMAGER' 858 local_satellitename =
'GOES-12' 863 local_wmo_sensor_id = 626
864 local_wmo_satellite_id = 257
865 local_sensorname =
'SOUNDER' 866 local_satellitename =
'GOES-13' 871 local_wmo_sensor_id = 626
872 local_wmo_satellite_id = 257
873 local_sensorname =
'SOUNDER' 874 local_satellitename =
'GOES-13' 879 local_wmo_sensor_id = 626
880 local_wmo_satellite_id = 257
881 local_sensorname =
'SOUNDER' 882 local_satellitename =
'GOES-13' 887 local_wmo_sensor_id = 626
888 local_wmo_satellite_id = 257
889 local_sensorname =
'SOUNDER' 890 local_satellitename =
'GOES-13' 895 local_wmo_sensor_id = 626
896 local_wmo_satellite_id = 257
897 local_sensorname =
'SOUNDER' 898 local_satellitename =
'GOES-13' 903 local_wmo_sensor_id = 615
904 local_wmo_satellite_id = 257
905 local_sensorname =
'IMAGER' 906 local_satellitename =
'GOES-13' 911 local_wmo_sensor_id = 615
912 local_wmo_satellite_id = 257
913 local_sensorname =
'IMAGER' 914 local_satellitename =
'GOES-13' 919 local_wmo_sensor_id = 615
920 local_wmo_satellite_id = 257
921 local_sensorname =
'IMAGER' 922 local_satellitename =
'GOES-13' 927 local_wmo_sensor_id = 615
928 local_wmo_satellite_id = 257
929 local_sensorname =
'IMAGER' 930 local_satellitename =
'GOES-13' 935 local_wmo_sensor_id = 615
936 local_wmo_satellite_id = 257
937 local_sensorname =
'IMAGER' 938 local_satellitename =
'GOES-13' 943 local_wmo_sensor_id = 615
944 local_wmo_satellite_id = 257
945 local_sensorname =
'IMAGER' 946 local_satellitename =
'GOES-13' 951 local_wmo_sensor_id = 615
952 local_wmo_satellite_id = 257
953 local_sensorname =
'IMAGER' 954 local_satellitename =
'GOES-13' 959 local_wmo_sensor_id = -1
960 local_wmo_satellite_id = -1
961 local_sensorname =
'ABI' 962 local_satellitename =
'GOES-R' 967 local_wmo_sensor_id = 294
968 local_wmo_satellite_id = 171
969 local_sensorname =
'IMAGER' 970 local_satellitename =
'MTSAT-1R' 975 local_wmo_sensor_id = 905
976 local_wmo_satellite_id = 246
977 local_sensorname =
'SSM/I' 978 local_satellitename =
'DMSP-13' 983 local_wmo_sensor_id = 905
984 local_wmo_satellite_id = 247
985 local_sensorname =
'SSM/I' 986 local_satellitename =
'DMSP-14' 991 local_wmo_sensor_id = 905
992 local_wmo_satellite_id = 248
993 local_sensorname =
'SSM/I' 994 local_satellitename =
'DMSP-15' 999 local_wmo_sensor_id = 906
1000 local_wmo_satellite_id = 246
1001 local_sensorname =
'SSM/T-1' 1002 local_satellitename =
'DMSP-13' 1007 local_wmo_sensor_id = 906
1008 local_wmo_satellite_id = 248
1009 local_sensorname =
'SSM/T-1' 1010 local_satellitename =
'DMSP-15' 1015 local_wmo_sensor_id = 907
1016 local_wmo_satellite_id = 247
1017 local_sensorname =
'SSM/T-2' 1018 local_satellitename =
'DMSP-14' 1023 local_wmo_sensor_id = 907
1024 local_wmo_satellite_id = 248
1025 local_sensorname =
'SSM/T-2' 1026 local_satellitename =
'DMSP-15' 1028 local_nchannels = 24
1031 local_wmo_sensor_id = 908
1032 local_wmo_satellite_id = 249
1033 local_sensorname =
'SSMIS' 1034 local_satellitename =
'DMSP-16' 1036 local_nchannels = 24
1041 local_sensorname =
'SSMIS' 1042 local_satellitename =
'DMSP-17' 1044 local_nchannels = 24
1049 local_sensorname =
'SSMIS' 1050 local_satellitename =
'DMSP-18' 1052 local_nchannels = 24
1057 local_sensorname =
'SSMIS' 1058 local_satellitename =
'DMSP-19' 1060 local_nchannels = 24
1065 local_sensorname =
'SSMIS' 1066 local_satellitename =
'DMSP-20' 1068 local_nchannels = 15
1071 local_wmo_sensor_id = 570
1072 local_wmo_satellite_id = 784
1073 local_sensorname =
'AMSU-A' 1074 local_satellitename =
'AQUA' 1079 local_wmo_sensor_id = 246
1080 local_wmo_satellite_id = 784
1081 local_sensorname =
'HSB' 1082 local_satellitename =
'AQUA' 1084 local_nchannels = 12
1087 local_wmo_sensor_id = 345
1088 local_wmo_satellite_id = 784
1089 local_sensorname =
'AMSR-E' 1090 local_satellitename =
'AQUA' 1091 CASE(
'airs281SUBSET_aqua')
1092 local_nchannels = 281
1095 local_wmo_sensor_id = 420
1096 local_wmo_satellite_id = 784
1097 local_sensorname =
'AIRS' 1098 local_satellitename =
'Aqua' 1099 CASE(
'airs324SUBSET_aqua')
1100 local_nchannels = 324
1103 local_wmo_sensor_id = 420
1104 local_wmo_satellite_id = 784
1105 local_sensorname =
'AIRS' 1106 local_satellitename =
'Aqua' 1107 CASE(
'airsM12_aqua')
1108 local_nchannels = 130
1111 local_wmo_sensor_id = 420
1112 local_wmo_satellite_id = 784
1113 local_sensorname =
'AIRS' 1114 local_satellitename =
'Aqua' 1115 CASE(
'airsM11_aqua')
1116 local_nchannels = 144
1119 local_wmo_sensor_id = 420
1120 local_wmo_satellite_id = 784
1121 local_sensorname =
'AIRS' 1122 local_satellitename =
'Aqua' 1123 CASE(
'airsM10_aqua')
1124 local_nchannels = 167
1127 local_wmo_sensor_id = 420
1128 local_wmo_satellite_id = 784
1129 local_sensorname =
'AIRS' 1130 local_satellitename =
'Aqua' 1132 local_nchannels = 167
1135 local_wmo_sensor_id = 420
1136 local_wmo_satellite_id = 784
1137 local_sensorname =
'AIRS' 1138 local_satellitename =
'Aqua' 1140 local_nchannels = 161
1143 local_wmo_sensor_id = 420
1144 local_wmo_satellite_id = 784
1145 local_sensorname =
'AIRS' 1146 local_satellitename =
'Aqua' 1148 local_nchannels = 167
1151 local_wmo_sensor_id = 420
1152 local_wmo_satellite_id = 784
1153 local_sensorname =
'AIRS' 1154 local_satellitename =
'Aqua' 1156 local_nchannels = 167
1159 local_wmo_sensor_id = 420
1160 local_wmo_satellite_id = 784
1161 local_sensorname =
'AIRS' 1162 local_satellitename =
'Aqua' 1164 local_nchannels = 159
1167 local_wmo_sensor_id = 420
1168 local_wmo_satellite_id = 784
1169 local_sensorname =
'AIRS' 1170 local_satellitename =
'Aqua' 1171 CASE(
'airsM4d_aqua')
1172 local_nchannels = 106
1175 local_wmo_sensor_id = 420
1176 local_wmo_satellite_id = 784
1177 local_sensorname =
'AIRS' 1178 local_satellitename =
'Aqua' 1179 CASE(
'airsM4c_aqua')
1180 local_nchannels = 94
1183 local_wmo_sensor_id = 420
1184 local_wmo_satellite_id = 784
1185 local_sensorname =
'AIRS' 1186 local_satellitename =
'Aqua' 1188 local_nchannels = 192
1191 local_wmo_sensor_id = 420
1192 local_wmo_satellite_id = 784
1193 local_sensorname =
'AIRS' 1194 local_satellitename =
'Aqua' 1195 CASE(
'airsM4b_aqua')
1196 local_nchannels = 106
1199 local_wmo_sensor_id = 420
1200 local_wmo_satellite_id = 784
1201 local_sensorname =
'AIRS' 1202 local_satellitename =
'Aqua' 1203 CASE(
'airsM4a_aqua')
1204 local_nchannels = 104
1207 local_wmo_sensor_id = 420
1208 local_wmo_satellite_id = 784
1209 local_sensorname =
'AIRS' 1210 local_satellitename =
'Aqua' 1211 CASE(
'airsM2b_aqua')
1212 local_nchannels = 150
1215 local_wmo_sensor_id = 420
1216 local_wmo_satellite_id = 784
1217 local_sensorname =
'AIRS' 1218 local_satellitename =
'Aqua' 1219 CASE(
'airsM1b_aqua')
1220 local_nchannels = 130
1223 local_wmo_sensor_id = 420
1224 local_wmo_satellite_id = 784
1225 local_sensorname =
'AIRS' 1226 local_satellitename =
'Aqua' 1227 CASE(
'airsM2a_aqua')
1228 local_nchannels = 116
1231 local_wmo_sensor_id = 420
1232 local_wmo_satellite_id = 784
1233 local_sensorname =
'AIRS' 1234 local_satellitename =
'Aqua' 1235 CASE(
'airsM1a_aqua')
1236 local_nchannels = 118
1239 local_wmo_sensor_id = 420
1240 local_wmo_satellite_id = 784
1241 local_sensorname =
'AIRS' 1242 local_satellitename =
'Aqua' 1244 local_nchannels = 16
1247 local_wmo_sensor_id = 389
1248 local_wmo_satellite_id = 783
1249 local_sensorname =
'MODIS' 1250 local_satellitename =
'TERRA' 1251 CASE(
'modisD01_terra')
1252 local_nchannels = 16
1255 local_wmo_sensor_id = 389
1256 local_wmo_satellite_id = 783
1257 local_sensorname =
'MODIS' 1258 local_satellitename =
'TERRA' 1259 CASE(
'modisD02_terra')
1260 local_nchannels = 16
1263 local_wmo_sensor_id = 389
1264 local_wmo_satellite_id = 783
1265 local_sensorname =
'MODIS' 1266 local_satellitename =
'TERRA' 1267 CASE(
'modisD03_terra')
1268 local_nchannels = 16
1271 local_wmo_sensor_id = 389
1272 local_wmo_satellite_id = 783
1273 local_sensorname =
'MODIS' 1274 local_satellitename =
'TERRA' 1275 CASE(
'modisD04_terra')
1276 local_nchannels = 16
1279 local_wmo_sensor_id = 389
1280 local_wmo_satellite_id = 783
1281 local_sensorname =
'MODIS' 1282 local_satellitename =
'TERRA' 1283 CASE(
'modisD05_terra')
1284 local_nchannels = 16
1287 local_wmo_sensor_id = 389
1288 local_wmo_satellite_id = 783
1289 local_sensorname =
'MODIS' 1290 local_satellitename =
'TERRA' 1291 CASE(
'modisD06_terra')
1292 local_nchannels = 16
1295 local_wmo_sensor_id = 389
1296 local_wmo_satellite_id = 783
1297 local_sensorname =
'MODIS' 1298 local_satellitename =
'TERRA' 1299 CASE(
'modisD07_terra')
1300 local_nchannels = 16
1303 local_wmo_sensor_id = 389
1304 local_wmo_satellite_id = 783
1305 local_sensorname =
'MODIS' 1306 local_satellitename =
'TERRA' 1307 CASE(
'modisD08_terra')
1308 local_nchannels = 16
1311 local_wmo_sensor_id = 389
1312 local_wmo_satellite_id = 783
1313 local_sensorname =
'MODIS' 1314 local_satellitename =
'TERRA' 1315 CASE(
'modisD09_terra')
1316 local_nchannels = 16
1319 local_wmo_sensor_id = 389
1320 local_wmo_satellite_id = 783
1321 local_sensorname =
'MODIS' 1322 local_satellitename =
'TERRA' 1323 CASE(
'modisD10_terra')
1324 local_nchannels = 16
1327 local_wmo_sensor_id = 389
1328 local_wmo_satellite_id = 783
1329 local_sensorname =
'MODIS' 1330 local_satellitename =
'TERRA' 1332 local_nchannels = 16
1335 local_wmo_sensor_id = 389
1336 local_wmo_satellite_id = 784
1337 local_sensorname =
'MODIS' 1338 local_satellitename =
'AQUA' 1339 CASE(
'modisD01_aqua')
1340 local_nchannels = 16
1343 local_wmo_sensor_id = 389
1344 local_wmo_satellite_id = 784
1345 local_sensorname =
'MODIS' 1346 local_satellitename =
'AQUA' 1347 CASE(
'modisD02_aqua')
1348 local_nchannels = 16
1351 local_wmo_sensor_id = 389
1352 local_wmo_satellite_id = 784
1353 local_sensorname =
'MODIS' 1354 local_satellitename =
'AQUA' 1355 CASE(
'modisD03_aqua')
1356 local_nchannels = 16
1359 local_wmo_sensor_id = 389
1360 local_wmo_satellite_id = 784
1361 local_sensorname =
'MODIS' 1362 local_satellitename =
'AQUA' 1363 CASE(
'modisD04_aqua')
1364 local_nchannels = 16
1367 local_wmo_sensor_id = 389
1368 local_wmo_satellite_id = 784
1369 local_sensorname =
'MODIS' 1370 local_satellitename =
'AQUA' 1371 CASE(
'modisD05_aqua')
1372 local_nchannels = 16
1375 local_wmo_sensor_id = 389
1376 local_wmo_satellite_id = 784
1377 local_sensorname =
'MODIS' 1378 local_satellitename =
'AQUA' 1379 CASE(
'modisD06_aqua')
1380 local_nchannels = 16
1383 local_wmo_sensor_id = 389
1384 local_wmo_satellite_id = 784
1385 local_sensorname =
'MODIS' 1386 local_satellitename =
'AQUA' 1387 CASE(
'modisD07_aqua')
1388 local_nchannels = 16
1391 local_wmo_sensor_id = 389
1392 local_wmo_satellite_id = 784
1393 local_sensorname =
'MODIS' 1394 local_satellitename =
'AQUA' 1395 CASE(
'modisD08_aqua')
1396 local_nchannels = 16
1399 local_wmo_sensor_id = 389
1400 local_wmo_satellite_id = 784
1401 local_sensorname =
'MODIS' 1402 local_satellitename =
'AQUA' 1403 CASE(
'modisD09_aqua')
1404 local_nchannels = 16
1407 local_wmo_sensor_id = 389
1408 local_wmo_satellite_id = 784
1409 local_sensorname =
'MODIS' 1410 local_satellitename =
'AQUA' 1411 CASE(
'modisD10_aqua')
1412 local_nchannels = 16
1415 local_wmo_sensor_id = 389
1416 local_wmo_satellite_id = 784
1417 local_sensorname =
'MODIS' 1418 local_satellitename =
'AQUA' 1419 CASE(
'vissrDetA_gms5')
1423 local_wmo_sensor_id = 489
1424 local_wmo_satellite_id = 152
1425 local_sensorname =
'VISSR' 1426 local_satellitename =
'GMS-5' 1427 CASE(
'vissrDetB_gms5')
1431 local_wmo_sensor_id = 489
1432 local_wmo_satellite_id = 152
1433 local_sensorname =
'VISSR' 1434 local_satellitename =
'GMS-5' 1435 CASE(
'mviriNOM_m03')
1439 local_wmo_sensor_id = 205
1440 local_wmo_satellite_id = 50
1441 local_sensorname =
'MVIRI' 1442 local_satellitename =
'METEOSAT-03' 1443 CASE(
'mviriBKUP_m03')
1447 local_wmo_sensor_id = 205
1448 local_wmo_satellite_id = 50
1449 local_sensorname =
'MVIRI' 1450 local_satellitename =
'METEOSAT-03' 1451 CASE(
'mviriNOM_m04')
1455 local_wmo_sensor_id = 205
1456 local_wmo_satellite_id = 51
1457 local_sensorname =
'MVIRI' 1458 local_satellitename =
'METEOSAT-04' 1459 CASE(
'mviriBKUP_m04')
1463 local_wmo_sensor_id = 205
1464 local_wmo_satellite_id = 51
1465 local_sensorname =
'MVIRI' 1466 local_satellitename =
'METEOSAT-04' 1467 CASE(
'mviriNOM_m05')
1471 local_wmo_sensor_id = 205
1472 local_wmo_satellite_id = 52
1473 local_sensorname =
'MVIRI' 1474 local_satellitename =
'METEOSAT-05' 1475 CASE(
'mviriBKUP_m05')
1479 local_wmo_sensor_id = 205
1480 local_wmo_satellite_id = 52
1481 local_sensorname =
'MVIRI' 1482 local_satellitename =
'METEOSAT-05' 1483 CASE(
'mviriNOM_m06')
1487 local_wmo_sensor_id = 205
1488 local_wmo_satellite_id = 53
1489 local_sensorname =
'MVIRI' 1490 local_satellitename =
'METEOSAT-06' 1491 CASE(
'mviriBKUP_m06')
1495 local_wmo_sensor_id = 205
1496 local_wmo_satellite_id = 53
1497 local_sensorname =
'MVIRI' 1498 local_satellitename =
'METEOSAT-06' 1499 CASE(
'mviriNOM_m07')
1503 local_wmo_sensor_id = 205
1504 local_wmo_satellite_id = 54
1505 local_sensorname =
'MVIRI' 1506 local_satellitename =
'METEOSAT-07' 1507 CASE(
'mviriBKUP_m07')
1511 local_wmo_sensor_id = 205
1512 local_wmo_satellite_id = 54
1513 local_sensorname =
'MVIRI' 1514 local_satellitename =
'METEOSAT-07' 1521 local_sensorname =
'SEVIRI' 1522 local_satellitename =
'METEOSAT-08' 1529 local_sensorname =
'SEVIRI' 1530 local_satellitename =
'METEOSAT-09' 1537 local_sensorname =
'SEVIRI' 1538 local_satellitename =
'METEOSAT-10' 1545 local_sensorname =
'SEVIRI' 1546 local_satellitename =
'METEOSAT-11' 1547 CASE(
'windsat_coriolis')
1548 local_nchannels = 16
1551 local_wmo_sensor_id = 2047
1552 local_wmo_satellite_id = 283
1553 local_sensorname =
'WindSat' 1554 local_satellitename =
'Coriolis' 1556 local_nchannels = 22
1561 local_sensorname =
'ATMS' 1562 local_satellitename =
'NPOESS-C1' 1564 local_nchannels = 2378
1567 local_wmo_sensor_id = 420
1568 local_wmo_satellite_id = 784
1569 local_sensorname =
'AIRS' 1570 local_satellitename =
'Aqua' 1574 'No entry for Sensor_Id'//trim(adjustl(sensor_id)), &
1576 message_log=message_log)
1580 IF (
PRESENT(nchannels ) ) nchannels = local_nchannels
1581 IF (
PRESENT(nfovs ) ) nfovs = local_nfovs
1582 IF (
PRESENT(detector ) ) detector = local_detector
1583 IF (
PRESENT(wmo_sensor_id ) ) wmo_sensor_id = local_wmo_sensor_id
1584 IF (
PRESENT(wmo_satellite_id) ) wmo_satellite_id = local_wmo_satellite_id
1585 IF (
PRESENT(sensorname ) ) sensorname = local_sensorname
1586 IF (
PRESENT(satellitename ) ) satellitename = local_satellitename
integer, parameter, public wmo_dmsp15
integer, parameter, public wmo_dmsp18
integer, parameter, public wmo_goes06
integer, parameter, public wmo_ssmi
integer, parameter, public wmo_npoessc1
integer, parameter, public failure
integer, parameter, public invalid_wmo_sensor_id
integer, parameter, public wmo_meteosat09
integer, parameter, public wmo_meteosat03
integer, parameter, public wmo_mhs
integer, parameter, public wmo_amsre
integer, parameter, public wmo_noaa17
integer, parameter, public wmo_goes11
integer, parameter, public wmo_noaa14
integer, parameter, public wmo_noaa05
character(*), parameter module_rcs_id
integer, parameter, public wmo_meteosat10
integer, parameter, public wmo_aqua
integer, parameter, public wmo_noaa19
integer, parameter, public wmo_noaa16
integer, parameter, public wmo_dmsp19
integer, parameter, public wmo_dmsp17
integer, parameter, public wmo_noaa10
integer, parameter, public wmo_meteosat05
integer, parameter, public wmo_metopc
integer, parameter, public wmo_ssmis
integer, parameter, public wmo_gms5
integer, parameter, public wmo_goes07
integer, parameter, public wmo_goes10
integer, parameter, public wmo_imager
integer, parameter, public invalid_wmo_satellite_id
integer, parameter, public wmo_noaa07
integer, parameter, public wmo_modis
integer, parameter, public wmo_vas
integer, parameter, public wmo_meteosat04
integer, parameter, public wmo_msu
integer, parameter, public wmo_noaa12
integer, parameter, public wmo_goesr
integer, parameter, public wmo_tirosn
integer, parameter, public wmo_dmsp14
integer, parameter, public wmo_dmsp16
integer, parameter, public wmo_hsb
integer, parameter, public wmo_goes12
recursive subroutine, public display_message(Routine_Name, Message, Error_State, Message_Log)
integer, parameter, public wmo_windsat
integer, parameter, public wmo_coriolis
integer, parameter, public wmo_ssmt2
integer, parameter, public wmo_amsua
integer, parameter, public wmo_noaa08
integer, parameter, public wmo_mviri
integer, parameter, public wmo_noaa18
integer, parameter, public wmo_hirs3
integer, parameter, public wmo_avhrr2
integer, parameter, public wmo_goes09
integer, parameter, public wmo_noaa11
integer, parameter, public wmo_atms
integer, parameter, public wmo_meteosat07
integer, parameter, public wmo_meteosat06
integer, parameter, public wmo_sounder
integer, parameter, public wmo_goes08
integer, parameter, public wmo_goes13
integer, parameter, public wmo_meteosat08
integer, parameter, public wmo_avhrr3
integer, parameter, public wmo_dmsp13
integer, parameter, public wmo_terra
integer, parameter, public wmo_dmsp20
integer, parameter, public wmo_amsub
integer, parameter, public wmo_iasi
integer, parameter, public wmo_noaa09
integer, parameter, public wmo_noaa15
integer, parameter, public wmo_ssmt1
integer, parameter, public wmo_seviri
integer, parameter, public wmo_metopa
integer function, public crtm_get_sensorattributes(Sensor_Id, nChannels, nFOVs, Detector, WMO_Sensor_Id, WMO_Satellite_Id, SensorName, SatelliteName, RCS_Id, Message_Log)
integer, parameter, public wmo_hirs2
integer, parameter, public wmo_goes05
integer, parameter, public wmo_noaa06
integer, parameter, public wmo_airs
integer, parameter, public success
integer, parameter, public wmo_goes04
integer, parameter, public wmo_meteosat11
integer, parameter, public wmo_metopb
integer, parameter, public wmo_vissr
integer, parameter, public wmo_abi