Home
last modified time | relevance | path

Searched refs:KTDEXP (Results 1 – 25 of 37) sorted by relevance

12

/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/
H A Dbuget_opera_image.F92 DIMENSION KTDEXP(*)
120 IF(KTDEXP(i).eq.005031) THEN
128 IF(KTDEXP(i).eq.030001) THEN
142 IF(KTDEXP(I).EQ.005031.AND.KTDEXP(i-1).EQ.031002) THEN
151 KTDEXP_IMG(I)=KTDEXP(I)
179 IF(KTDEXP(I).EQ.030001.AND.KTDEXP(I-1).EQ.031012) THEN
191 ELSEIF(KTDEXP(I).EQ.030002.AND.KTDEXP(I-1).EQ.031012) THEN
204 ELSEIF(KTDEXP(i).EQ.030004.AND.KTDEXP(I-1).EQ.031012) THEN
216 ELSEIF(KTDEXP(I).EQ.030001.AND.KTDEXP(I-1).EQ.031011) THEN
228 ELSEIF(KTDEXP(I).EQ.030002.AND.KTDEXP(I-1).EQ.031011) THEN
[all …]
H A Dbucrekey.F114 IF(KTDEXP(I).EQ.001006) IPAID=I
115 IF(KTDEXP(I).EQ.001007) IPSID=I
116 IF(KTDEXP(I).EQ.001005) IPBUOY=I
118 IF(KTDEXP(I).EQ.001063) IPMET=I
119 IF(KTDEXP(I).EQ.001011) IPSHIP=I
120 IF(KTDEXP(I).EQ.001001) IPBLOK=I
124 IF(KTDEXP(I).EQ.004003) IPDAY=I
128 IF(KTDEXP(I).EQ.005001) IPLAT=I
129 IF(KTDEXP(I).EQ.006001) IPLON=I
130 IF(KTDEXP(I).EQ.005002) IPLAT=I
[all …]
H A Dbucrkey.F121 IF(KTDEXP(I).EQ.001006) IPAID=I
122 IF(KTDEXP(I).EQ.001007) IPSID=I
123 IF(KTDEXP(I).EQ.001005) IPBUOY=I
125 IF(KTDEXP(I).EQ.001194) IPAID=I
126 IF(KTDEXP(I).EQ.001063) IPMET=I
127 IF(KTDEXP(I).EQ.001011) IPSHIP=I
132 IF(KTDEXP(I).EQ.004003) IPDAY=I
136 IF(KTDEXP(I).EQ.005001) IPLAT=I
137 IF(KTDEXP(I).EQ.006001) IPLON=I
138 IF(KTDEXP(I).EQ.005002) IPLAT=I
[all …]
H A Dbugtll.F58 DIMENSION KTDEXP(*)
95 IF(KTDEXP(I).EQ.004001) THEN
98 IF(KTDEXP(I).EQ.004002) THEN
101 IF(KTDEXP(I).EQ.004003) THEN
104 IF(KTDEXP(I).EQ.004004) THEN
107 IF(KTDEXP(I).EQ.004005) THEN
110 IF(KTDEXP(I).EQ.004006) THEN
113 IF(KTDEXP(I).EQ.005001) THEN
116 IF(KTDEXP(I).EQ.006001) THEN
119 IF(KTDEXP(I).EQ.005002) THEN
[all …]
H A Dbusel2.F11 SUBROUTINE BUSEL2(KSUBSET,KELEM,KTDLEN,KTDLST,KTDEXL,KTDEXP, argument
76 DIMENSION KTDLST(*),KTDEXP(*)
110 KTDEXP(I)=NWTRG(IIJ)
111 CALL GET_NAME_UNIT(KTDEXP(I),CNAMES(I),CUNITS(I))
H A Dbuxdes.F12 2 KTDEXL,KTDEXP,CNAMES,CUNITS,KERR)
100 DIMENSION KTDEXP(KELEM)
141 KTDEXP(I)=NWTR(I)
162 WRITE(KNTN,'(1H ,I5,2X,I6.6,2X,A,2X,A)') I,KTDEXP(I),
H A Dbusel.F11 SUBROUTINE BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR) argument
71 DIMENSION KTDLST(*),KTDEXP(*)
92 KTDEXP(I)=NTDEXP(I)
H A Dbuprs3.F11 SUBROUTINE BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KELEM,CNAMES) argument
75 DIMENSION KTDLST(KTDLEN),KTDEXP(KTDEXL)
110 WRITE(KNTN,'(1H ,I5,2X,I6.6,2X,A)') I,KTDEXP(I),CNAMES(I)
H A Dbbuprs3.F12 1 KTDEXP,KELEM,CNAMES)
76 DIMENSION KTDEXP(KTDEXL)
111 WRITE(KNT,'(1H ,I5,2X,I6.6,2X,A)') I,KTDEXP(I),CNAMES(I)
/dports/misc/libemos/libemos-4.5.9-Source/tools/bufrtools_wmo/
H A Dbufr_ntm.F835 IF(KTDEXP(I).EQ.031001.OR.KTDEXP(I).EQ.031002) THEN
867 IF(KTDEXP(I).GE.13019.AND.KTDEXP(I).LE.13023) THEN
970 IF(KTDEXP(I).EQ.031001.OR.KTDEXP(I).EQ.031002) THEN
1001 IF(KTDEXP(I).GE.13019.AND.KTDEXP(I).LE.13023) THEN
1329 IF(KTDEXP(I).GE.22021.AND.KTDEXP(I).LE.22023) THEN
1338 IF(KTDEXP(I).GE.13019.AND.KTDEXP(I).LE.13023) THEN
1771 IF(KTDEXP(I).EQ.10003.OR.KTDEXP(I).EQ.10008) THEN
1910 IF(KTDEXP(I).EQ.10003.OR.KTDEXP(I).EQ.10008) THEN
2045 IF(KTDEXP(I).EQ.10003.OR.KTDEXP(I).EQ.10008) THEN
2120 IF(KTDEXP(I).EQ.31192.OR.KTDEXP(I).EQ.31031) THEN
[all …]
H A Dbufr_0t2.F613 IF(KTDEXP(I).EQ.031001.OR.KTDEXP(I).EQ.031002) THEN
645 IF(KTDEXP(I).GE.13019.AND.KTDEXP(I).LE.13023) THEN
748 IF(KTDEXP(I).EQ.031001.OR.KTDEXP(I).EQ.031002) THEN
779 IF(KTDEXP(I).GE.13019.AND.KTDEXP(I).LE.13023) THEN
881 IF(KTDEXP(I).EQ.031001.OR.KTDEXP(I).EQ.031002) THEN
1028 IF(KTDEXP(I).EQ.031001.OR.KTDEXP(I).EQ.031002) THEN
1107 IF(KTDEXP(I).GE.22021.AND.KTDEXP(I).LE.22023) THEN
1116 IF(KTDEXP(I).GE.13019.AND.KTDEXP(I).LE.13023) THEN
1210 IF(KTDEXP(I).EQ.031001.OR.KTDEXP(I).EQ.031002) THEN
1546 IF(KTDEXP(I).EQ.10003.OR.KTDEXP(I).EQ.10008) THEN
[all …]
H A Demoslib_bufr_filter.F556 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
557 2 KTDEXP(K).EQ.31000.OR.
558 1 KTDEXP(K).EQ.31011.OR.KTDEXP(K).EQ.31012) THEN
602 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
603 2 KTDEXP(K).EQ.31000.OR.
604 1 KTDEXP(K).EQ.31011.OR.KTDEXP(K).EQ.31012) THEN
1106 DIMENSION KTDEXP(*),KEY(*)
1147 IF(KTDEXP(I).EQ.001006) then
1150 IF(KTDEXP(I).EQ.001007) then
1153 IF(KTDEXP(I).EQ.001005) then
[all …]
H A Dbufr_obs_filter.F89 DIMENSION KTDLST(KELEM),KTDEXP(KELEM)
513 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
514 1 KTDEXP(K).EQ.31011.OR.KTDEXP(K).EQ.31012) THEN
560 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
561 1 KTDEXP(K).EQ.31011.OR.KTDEXP(K).EQ.31012) THEN
1059 DIMENSION KTDEXP(*),KEY(*)
1097 IF(KTDEXP(I).EQ.001006) IPAID=I
1098 IF(KTDEXP(I).EQ.001007) IPSID=I
1100 IF(KTDEXP(I).EQ.001008) IPARN=I
1106 IF(KTDEXP(I).EQ.004003) IPDAY=I
[all …]
H A Dbufr_repack_206t205.F73 DIMENSION KTDLST(kELEM),KTDEXP(kELEM),KRQ(KELEM)
232 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
275 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
281 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
326 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
342 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
343 1 KTDEXP(K).EQ.31000) THEN
H A Dbufr_repack_satid.F74 DIMENSION KTDLST(KELEM),KTDEXP(KELEM),KRQ(KELEM)
242 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
285 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
291 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
320 CALL BUBOX(IK,KSUP,KEL,KTDEXP,CNAMES,CUNITS,KVALS,VALUES,
336 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
352 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
353 1 KTDEXP(K).EQ.31000) THEN
H A Dbufr_nt1.F75 DIMENSION KTDLST(KELEM),KTDEXP(KELEM),KRQ(KELEM)
268 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
311 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
317 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
346 CALL BUBOX(IK,KSUP,KEL,KTDEXP,CNAMES,CUNITS,KVALS,VALUES,
362 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
382 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002) THEN
418 CALL BUCRKEY(KEL,KTDEXP,KSUP,KSEC1,KSEC3,KEY,
H A Dbufr_repack.F74 DIMENSION KTDLST(KELEM),KTDEXP(KELEM),KRQ(KELEM)
241 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
284 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
290 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
319 CALL BUBOX(IK,KSUP,KEL,KTDEXP,CNAMES,CUNITS,KVALS,VALUES,
335 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
351 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
352 1 KTDEXP(K).EQ.31000) THEN
495 CALL BUCRKEY(KEL,KTDEXP,KSUP,KSEC1,KSEC3,KEY,
H A Dsnow_key_repack.F74 DIMENSION KTDLST(JELEM),KTDEXP(JELEM),KRQ(KELEM)
238 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
281 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
287 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
332 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
348 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
349 1 KTDEXP(K).EQ.31000) THEN
H A Dbufr_decode.F78 DIMENSION KTDLST(JELEM),KTDEXP(JELEM),KRQ(KELEM)
324 CALL BUSEL2(ISUBSET,KEL,KTDLEN,KTDLST,KTDEXL,KTDEXP,CNAMES,
385 CALL BUSEL2(ISUBSET,KEL,KTDLEN,KTDLST,KTDEXL,KTDEXP,CNAMES,
392 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
459 CALL BUSEL2(J,KEL,KTDLEN,KTDLST,KTDEXL,KTDEXP,CNAMES,
476 IF(KTDEXP(I).EQ.31001.OR.KTDEXP(I).EQ.31002) THEN
480 IF(KTDEXP(I).EQ.004001) THEN
H A Dbufr_decode_all.F80 DIMENSION KTDLST(JELEM),KTDEXP(JELEM),KRQ(KELEM)
352 CALL BUSEL2(ISUBSET,KEL,KTDLEN,KTDLST,KTDEXL,KTDEXP,CNAMES,
413 CALL BUSEL2(ISUBSET,KEL,KTDLEN,KTDLST,KTDEXL,KTDEXP,CNAMES,
420 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
489 CALL BUSEL2(J,KEL,KTDLEN,KTDLST,KTDEXL,KTDEXP,CNAMES,
506 IF(KTDEXP(I).EQ.31001.OR.KTDEXP(I).EQ.31002) THEN
510 IF(KTDEXP(I).EQ.004001) THEN
H A Dbufr_88t89.F77 DIMENSION KTDLST(KELEM),KTDEXP(KELEM),KRQ(KELEM)
246 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
289 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
295 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
324 CALL BUBOX(IK,KSUP,KEL,KTDEXP,CNAMES,CUNITS,KVALS,VALUES,
340 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
356 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
357 1 KTDEXP(K).EQ.31000) THEN
597 CALL BUCREKEY(KTDEXP,KSUP,KSEC1,KEY,VALUES,CVALS,KERR)
H A Dbufr_ship_anmh.F74 DIMENSION KTDLST(KELEM),KTDEXP(KELEM),KRQ(KELEM)
277 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
320 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
326 CALL BUPRS3(KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP,KEL,CNAMES)
355 CALL BUBOX(IK,KSUP,KEL,KTDEXP,CNAMES,CUNITS,KVALS,VALUES,
371 CALL BUSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR)
387 IF(KTDEXP(K).EQ.31001.OR.KTDEXP(K).EQ.31002.OR.
388 1 KTDEXP(K).EQ.31000) THEN
/dports/misc/libemos/libemos-4.5.9-Source/crexdc/
H A Dcrexsel2.F11 SUBROUTINE CREXSEL2(KSUBSET,KELEM,KTDLEN,KTDLST,KTDEXL,KTDEXP, argument
92 DIMENSION KTDLST(*),KTDEXP(*)
119 KTDEXP(I)=NCREXWTRG(IIJ)
120 CALL CREX_GET_NAME_UNIT(KTDEXP(I),CNAMES(I),CUNITS(I))
H A Dcrexsel.F11 SUBROUTINE CREXSEL(KTDLEN,KTDLST,KTDEXL,KTDEXP,KERR) argument
83 DIMENSION KTDLST(*),KTDEXP(*)
104 KTDEXP(I)=NCREXTDEXP(I)
H A Dcrexprs1.F11 SUBROUTINE CREXPRS1(KSEC1,KSEC3,KTDLEN,KTDLST,KTDEXL,KTDEXP, argument
119 DIMENSION KTDLST(KTDLEN),KTDEXP(KTDEXL)
186 write(yyyyyy,'(i6.6)') KTDEXP(I)

12