O}Nx .H1L!L`.8.text203h .data!L@.bss//`.loader.debug!΄ .except*:".3}1BP9 Pe)-1*@8`HA,A(| ~CxhpSN!A(AA(| QN!A(x9}sx}{x~xHa`@,AbDHA(| @__start!|A(( A X($Ad| DN!A(b (#Ac| CN!A(b((#Ac| CN!A(b0(#Ac| CN!A(b8(#Ac| CN!A(8!p}N 8!pN A__threads_init`88|ۡہ}&;;aA!axAp!h``XP9 `8!A`?88`PQR8@SXT``H+`;`889888 889(|8`X::H8(8x88|ؘ99< |:rR J˜  H`A(HaAA(8`8`88899< H`A(``Ha A(88`88899 `H`A( b888HaAA( H`A(_O, A(8x8`88899 H`9A( 8l88`!H`A(888`! H`A( `!H`AA(8b: <;<(9<p88889###H_A( 8888`H`5A(8888` H`A( 8 888`H_A( 8888`H_A( `!H_uA(88H``|`v:(|`x,(@`88bH]`8? (|`8 H`88H`1`c#8H`!`88H``|`v8|vxc#H_`|`v,(|wx:(@b88bH]Y`"(8~b|@bbc$be`H]%`3P:~՚,8t@c7bbH\`|P|v8 H`88H_I`88H_9`|`v; (|`x,(@`88c%`H\`"(89:8|`,@bc#bH\a`|P|y8 `H`88`88899 `H]!A( 88 8H]A(88| 888c8C  88(H]A( `H\A(8 8`88899 `H\A( 88 8`H]1A(8@8| 8888c8C  8`8(`H\A( H\YA(8X8`88899 H[A( 88 8`H\A(8h8| 88`8c8`C  88(H\AA( `!H[A(88`88899 H[EA( 88 8`!`H[A(8`8 8`! H[A( `!H[IA(8`(8:: :@1:`v:]:x; ;8?8_8a8<8?H[A(8a8<`899 HZUA( 8888`H[uA( HZyA(,#A\,#@T8a888H[A(888`88899 HYA( 888`!HZA( HZA(8888|8899?(p9@HD5`(, @088pt8`889?x_?9 __`__ _0HXA( 888`!HYA(8p8 8`! HYqA( 888`!HYUA(8 8 8`!HY-A(~W_4 8488`HY1A( ``!``HXuA(8p8 HY`88 HYy`88p`68 `JHYY`|`v8 |ex8p8PHY9`|ev8 |e(x8p x|)j:@HY `|`v8 |sx8pHX`|`v|cx:#`|@b3b8pbe`HVI`~3P:~u,8 @b0bcbHV`|P|s8 H`8p8 HXm`|`v8 |ex8:e`HXM`|`v: (|px8,(@bq`sbb%`HU`"(~sb`|@bbc8b%HUu`|P|s8 H`b88`88899 HV1A( 8 88`HVA(8888| `!``!8c8C  88(HVA( 888`!HViA( 888`!HVMA( `!HUA(88(HV`|`v8|xx8HV`|`vc|fx88HX`@88`88899 HU A( 888`!HUA( HU1A(88`88899 HTA( 8\88`!HUiA( HTA(~v8~x:`ze`!`!|@8:: 8 |,8`!<(@ 88` ``@<P8,8X|H`@88` 0<:8,8|@8:h`<rh8,8p|```x@d8:H<R8,8|@88` (ؚ<08,88|(@@D88` 0``@<8}v x 8}x ` h p X|x@88` @ @< J,@ 8rl8b`!,`@(88c8`!`!,A8r ` 0:'8? 8}: `9F_ H89i|b? (,9J| $.9 91| 2 P| * X9kb h`!? H`! P H X X ` H@` X ``@8c|2~'*  H? X|g$.|:_ hi9)`,`!GJ9J h`! ``@ ``H9`!|_9k| g9 H@ X A`@ h 8pt`!(`!@ `!|@_| g8|888889 9?(`H+i`(8r, @:* bb8 ,|}:`!|$.@HF(? h!rB*F`!U'8`})8? h`!Er*888c@<|$.}B,`!@K8a888HPA(808`88899 `HOA( p888`!HPAA( pHOA(8h8`88899 HOIA( x8x88`!`HOA(<8<88`! xHOA( x888`!HOA(ӿ@8@ x88`!HS1A( x`!HO A(88`88899 HNA( 888`!HOAA( HNA(,@t{lV8r5 bb,`!@A( 88%8H?QA( H>A($0~,@8 8`88899 H>EA( 8X88`!`H>A(8 88`! HBqA( 8l88`!H>A(80 88`!H>A( 888`!H>A( `!`H=A(h~v8`~xp8ze`!|x`!`@8:`H }v8` `8 x} x p : X` h| R|t!@(8:@ @`b,@, 8`@88c,`AcC.@P,@H8 `b`!|.|"8,A8c;A|`,AȀ,A@,3@$8,2RAbCH<-A(KbcH<A(`K8(9?98`<"8:x: 198ȑ:v88?8c#<H!`|}&9 8NMB!:`?`!*8`!`!@X,@Lx.x$|dP|}8c(|8c`!``B@`!~ı8cC ~ı҈} TdATcMBQ@@~v8~x8xe$|hHcPx8`@|)j@8 `H0A(,6@`!!@\;`:V0VV)(A L3A@y0,#@(V>:8;:,6`AsWrMB,#MBQ@p;  W0W((L3@hsWMB,#LJ@; W@>| L@|x@,9A,9AD!!Aa |} N 8"8`8889) H/YA(!!AaK88`"8889) H/A(!!Aa``KHb8?9?!p8`88m8899@H.]A(|p},#@TW@>W>| LW> |` @,@$x.x$|P|}8@K|0@KpH.mA(KH.aA(K8?9?88`88m889p9@H-A(|p},6@; ;`@h;hV0VV(+A OFӂA@|x*,#@V>:,6@LK`H-A(``K8?9?88`88m889p9@H,A(|pH c -__read_diag_NMOD__xlfN19diag_data_name_listD1;`~|aA!9`p@!1`!`A 88y| 8`8c8`C 8`8BB88;T`~@ACHDAy`X`!,#@D|dvhX|{ x~`8;@{ce`P@88,;8`88`!B@H8Pxd|zP|dxd|`|`i`!88cC 8!}!AaN ``H*A(~8,#A$8,;88`!B@KX8?pb9!a8`88l8899@H*A(|p`X|dvh{d|{ x~`|c{ce`P@TK!8!}`!N h8@8h8@888`HUK"A-__read_diag_NMOD__xlfN19diag_data_chan_listC1`p`}`aA`W>!`|}&9 8NMB!:`?`!b8`!`!@X,@Lx.x$|dP|}8c(|8c`!``B@`!~ı8cC ~ı҈} TdATcMBQ@ x~v8~x8xe$|hcxp`@|)j@8X`H(A(,6@`!!@\;`BV0VV)(A L3ADy8,#@,V>B8;:,6`AsWrMB,#MBQ@p;  T0T((L3@hsWMB,#LJ@; W@>| L@|x@,9A,9AD!!Aa |} N 8"8`8889)H'YA(!!AaK88`"8889)H'A(!!Aa``KHb8?9?!p8`88m8899@H&]A(|p},#@TWC>W>|` LT> | @,@$x.x$|P|}8@K|0@KpH&mA( KH&]A(K8?9?88`88m889p9@H%A(|p},6@; ;`x;xV0VV(+A OFӂA@|x*,#@V>:,6@LK`H%A(``K8?9?88`88m889p9@H$A(|pH c -__read_diag_NMOD__xlfN19diag_data_chan_listD1;`|}&aA!;;;`;@``aAa!`xp8!q ;`!aИV؛a!AA(g `!,$```@8|c"|8c|+x|v|c 8|`P:,5@dg0||c"~`SBV@0VCVD(+A OFӂAs8,#@ V@>B~t:,5AV0V((L3@H8?9!88`88m889p9@H"A(|pq,#@ lV> Q 8x8`, Q `!~0Q ~vq~x(z>$z$|cQ@ 8:``!`:@,0Q @<8Pbcbq8@@K:8qx:1x8P8@`,0Ab-@:9@`!U0UU(+A OFӂA p,#@ U>byL:x8`8c|eo|vOoOp|xxd@ ,#@ :1O,AX@~,@7 V AtV 0(V (L3@H8?9!88`88m889p9@H A(|pw,#@ V > 8`W8vW xwW @xdw wHyF0`!|dv|c xw(|c8xd|"|@ D8W _~xyJ_`!|dv|c x`x~d`#`|`@8;_P8.5@_88`h`!HA(|tyA_,0d@8`8899 H A(a>@b888H A(c888`aHA(aH A(4,+`84 8 4848 4$ 8$(4,(8,04408484<88<@4D@8DH4LH8LP4TP8TX4\X8\`4d`8dAlb hlptb@8 |P | |:!>} }J|:|.|.}^Rx8x,|2`!$D`d ЄФA@8@4P808!^$!~,}|Z p}R!^(, 0}\R`|(.3,}B@| 8!>|:! }J]|+.3$}~Z|,.30@ @@x,e8|;.~|I.}>J|`|h.|.}^R}B|.|.}~Z%x8x|:`C`!eЅХ@@K,<`@8,4@p8`8!} |px!Aa!AaN bHA(88!} |KcHA(KLN@BA<@48s8 , | $|2!(| }J|*8`c#C AL8s|9<,`|8xd|*88`,a&@T@X`8`@}`,@$|.|289`,A|.:;Z|n}>Jx`,@K@8s8 0 $| (|2@!,|  }J|*8`c#C AL8s|A9<0`|8xd|*8<`,a&@P@X`8`}`,@$|.|289`,A|.:;Z|n}>Jx`,@Kh4lh8lp4tp8tK88899 H5A(a>@@8b88H=A(c888`aHA(8a8`!8HA(aHA(K 8?9!88`88l889p9@HA(|p_88`x`!HA(|ty@8?9!88`88l889p@9@HiA(|pH5A(||y@t8?9!88`88l889p9@`H A(|p```HA(w,#@8?9!88`88l889p9@HA(|pHA(KHiA(,#o@@8?9!88`88l889p9@HEA(|p 8?9! 88`88l8(89p9@HA(|pHmA(K@08?9!088`88m8889p9@HA(|pH}A(q|sy@T8?9!8@8`8@8l889p9@HQA(|pHA(KHA(K@8?9!@88`88m8H89p9@HA(|pH"C!__read_diag_NMOD_read_radiag_data``|aAaa<!;;```aA!xp89b!   0q 8A Cae88c9889 `cCHA("c8X8aHHA(aHHA(, @s@ (0w|@  WAxW0(W(L3``@D!8?89!8`88m88p99@H5A(|pu,#@ W> :V0VAxV((L3``@D!8?89!8`88m88p99@HA(|p}0,#@ V>:`8,8` u :u 8u |v u|(xu0(x.@ 8:`!8r8}<:8`}PJ8 8` `!9};@|vH|x``!X@ x$x|c@ 8:`!0> y܁ਙ ,89DYPy\hytY9}x:y}": y(}, &y2}6$y(`<}@0:0y4F}J@98b98``@89`9B98aI88989) j j(j0j8H A(a|P88888`H EA(a`H A(8 8b;|8;x$x}'B8 |J,|:9$`!$`|``A8 9y|8yG$}9yJy $|Ry|:} B|:|B|"`!$dK؃L;yܨЀȨ訹c,̰XubPTyԀؐduhZ^ylurnvyxu|@:y`>@98b98`89`9B98aI88989) j j(j0j8H A(a|P88888`H 5A(aH A(8 8b;|8;x$x}'B8 |J,|:9$`!$|A$89y|8yG$}9yJy $|Ry|:} B|:|B|"`!$dKHA(}0|uy@P!08?9!088`88l8889p9@HA(|p`8?8! 9! 8`88l8(8p99@HA(|p```HMA(u|wy@0!8?9!88`88l889p9@H-A(|pHA(K|HA(K88`888899 HA(ap8888H9A(8088`!apHEA(apb88H-A(apHA(`K88`888899 HA(a`8 88`!HA(c88`!a`HA(a`8(88`!`HqA(8,a`88`!H}A(a`8088`!H9A(80a`88`!HEA(a`8888`!HA(8La`88`!``HA(a`8@88`!HA(8Ha`88`!HA(a`8H8 8`!HA(8Pa`88`!HA(a`8T88HUA(8Ta`88`!HaA(a``!HA(@, A 88`888P8A99 H)A(ah8\8=8`!HA(88`ah8HA(8@ah88HA(ahHA(K8cC8888pHA(8cC88c899 HA(aP8888`HA(88 88`aPHA(8aP8 88`HaA(8aP888`HAA(8aP888`H!A(8aP888`HA(8aP888`HA(8aP888`HA(8aP888`HA(8aP888`HA(8aP888`HaA(aP``!H]A(, @Ā8ЁԨ!|`"9a؀ܐ~0a ~a~aĀ`>&~"a(~,<a48~@HLPDT`K88`888899 `HA(aX88B8`!HA(aXH=A(@8!0}!Aa`!N  A#__read_diag_NMOD_read_radiag_header|fx|#x|3xH @bcopy @memmoveA( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N A( L| N |v|x|v| x|||t||@,%,@L@``!98||88`( @( @888|}8,`( @ؠ( @8A,%@88|9`8},( @```!`( @H8@888|9$`8} `,( @K,%A<,$8A|`( M `N `K`K884|( @``!`@$48|8( @K,$8AK| |0|v|@y|0T} TA }$}%$0c|H@0AL , }IA %0c|H@0AL |$0M OA|+x|3xOB9 =) | T} TA}$0c|H@A@$, }IM 0c( AM LL!N @_clc A( L| N (A( L| N 0A( L| N |`aA!;:aA!xph` ``!b8``?f, iC%08|@P``@ 88h:(889v87@H8xX`8F89Hp8@x8<```D8P`cKA(8bK`b8K`:8:_|`v|`x,(@`8bbK%`"(: ~R`, @bbCbb`K`~԰P:~,8T@bbbK`|P> |t8 H`97P8Xc8889`KA(P88(88 | ``!8c8C P888(KA(P`!`KeA(97x8c8889KA(K9A(97c88889KA(X888`!KEA(X`KA(8c889789KqA(`88 8 HIA(88 8 `H-A(88 88```KA(`8 88`!KA(`8888`!KuA(``!KA(9788c8889KA(`KA(:,:@?c8\:e8p:I:(:988997`@1$@:s:1`K A(hp8p888`KA(:R8bD88`!h`K]A(ht8t888``K5A(9h8a88`!KA(hx8x888`KA(:h8b88`!KA(h`!`KeA(:;9c88p889,97A97@c88889KA(p8888`!KEA(p`KA(97h8c8889KqA(KA(978c8889KEA(KA(97c8P8889`KA(xH8|8|88`KA(8888`xKiA(8x888``KAA(x8%xd8|(P8|8KA(@8x888`KA(x`!KA(97c88889`KA(0888`!KA(K9A(,`@;`~8} x$xd*; 8 K%`|`v;P|cx~^,P@`|8P8c`K}` P8P|`8 H`c8888997`K=A(88P8P8PHA(88P8P8PHA(88P88`KA(`<c8 KI`|`v8 |ex cK-`|ev8 |f(xc|x`|)j;apK`|`v8 |yxcK`|`v|tx|b@c3cc8beKE`|P|{8 `H`c8 K`|`vcd|ex88KA(cK5A(:;Z,A8w9708c8889KA(KA(80c888`!KA(!`hpA!xa}!Aa`!`N |p8|gx8|8P8 3H5`惟@K"a lcreate_ctl_bcoefHA( L| N |`8#`C c!888ap`!Ёp>6`!N6 (8@ *!(*!0*#8*!HA`88c`!H )`9x8|8 8@cA|t8atH m`; 3`+A  `!   !0}a~`&a68!P~`!N "Aw3movdat|``aA;!aA`8!xp8d;h`8!`;a|``!H`;{8|;{;8`,A;88aa8pA`3g}`]"=$~EA(7,S ~0s p`! 6ȡ@.F>ɡn H@Pa Ɂ0^f(08@H(!P( h@B0(`!z`!cH(`!: * !@!F!`HA(`s|`|P<`b8MT9<8a8tVp>h||6pt|*~2*!H=A(`r~ Tq>|c|P<`|`|``|d.pTx8a|8x}*HA(`n}To>|d|dP8||"Td||.p8a|"8|{*aHA(`<*0|g`h|P,|@|c}}1}_)|p}BT}(J|} R}<"|@ ,@} ,&} ~@0~`@`!!` A @a0a@``! >  > >@, @||)|ұ||2`@|`@,@<`` ||`'*||z|!|cP|P|c |caP|| P|`||1|t|P|P >|f |ca|+| `! > `! 8!}`hp!xAa!AaN xd`}|x&}&|c `!6 ||ȡ@.ȁ`& 6P|!|(P @|ȡP.` `!ȁ&0$$%*2K"Aw3reddat< P<<`8`%ELBA4% @||xN @@ e@^@#(!@AL@aM 8|N % <`A8|#xN "hA( L| N =*$|PPx&xj]$}h8PxgM|XP}PPxj6d|@Pxk&} 8Pxjd|RU+|c:T|gp||i(||p|c.p|B|Zxd|e"|P||p||(P|`!N  @iw3jdn= 9k9?.aAc!<`9C <`R`z<`y?d9#=W<`ff9Cfg|}`}~pW>{{td}{UdP{E|P{6dP{&|P9y>$;pP;{d{>$;P{.W|Жp`{\]${[M;P{X6dP{[&;P{Xdz|p|P;{6d{&W}$wP{&:P`W`}\P})X}J.p})p}j!{'{Aa}kPf|HP}&P%y.6d}^Py+&PPy>d}_U})R|(|0|*|p|"})px$}D(P|8|.p|jP|Z8xd|d8P|dp|d|(P|PN  @ w3fs26pA( L| N xA( L| N |!8appHiA(8!}N  A0errexitA( L| N A( L| N /gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/read_diag.f90?/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/read_diag.fIX) data_fix%soi land_type = fix_ x_tmp(22) datadata_fix%sfc_wnd(iag1 = fix_tmp(2,26) if ( head0ag_1 ) then 4 data_fix%dtw 8 = rmiss_radiag <ag else d@data_fix%dtw = fDix_tmp(29) Hnd if ! TransfLre do ich=1,hePh)%tbobs =data_tT  ag else ddata_fix%dtw = fix_tmp(29) nd if ! Transf re do ich=1,heh)%tbobs =data_t=data_tmp(2,data_tmp(3,ich) ?/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/read_diag.fIbifixIBMREAD_RADIAG_HEADER: ***ERROR*** Unknown file format. Cannot readIBREAD_RADIAG_HEADER: isis=IB nchan=I npred=I angord= idiag=I iversion=IB inewpc=READ_RADIAG_HEADER: extra diagnostic information available, IBMiextra=IREAD_RADIAG_HEADER: **WARNING** header_fix%npred,npred=lat IBlon IBzsges IBobstim IBscanpos IBsatzen IBsatazm IBsolzen IBsolazm IBsungln IBfwater IBfland IBfice IBfsnow IBtwater IBtland IBtice IBtsnow IBtsoil IBsoilmoi IBlandtyp IBvegfrac IBsnowdep IBwndspd IBqc1 IBqc2 IBtref IBdtw IBdtc IBtz_tr IBobs IBomgbc IBomgnbc IBerrinv IBqcmark IBemiss IBtlap IBtb_tz IBbifix IBbilap IBbilap2 IBbicons IBbiang IBbiclw IBbisst IBDEALLOCATEIfDEALLOCATE/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/bcoef.f90biascr.txtinputIsatnameInpredrnchanliyyIimmIiddIihhIidhhincrsuffiximkctlimkdataIretrievalI;/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/bcoef.fIҀ/.@-   IBM***ERROR*** user specified predictors > maximum allowedI npredr,maxpred=IBsatname .ieee_dI.ctldiag_rad =IBdata_file=IBctl_file =IBsuffix =IBcall read_diag_headerIBM***ERROR*** problem reading diag file header, iflag=satype,n_chan=_Istring,satname=I***ERROR*** inconsistent instrument typesIBM satname,string =Iallocate arraysI?57read in obs IBMcall create_ctl_bcoefIBMimkctl =write data to lungrd=IBMdeallocate arraysIBM***PROBLEM*** reading coefficient fileIB***PROBLEM*** reading diagnostic fileIBM***ERROR*** invalid nchanl=I STOP programIBload missing value I into output arrays. IBwrite output to lungrd=I, file=/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/create_ctl_bcoef.f90F/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/create_ctl_bcoef.f /dset ^-(/6 options template big_endian cray_32bit_ieee sequential/undef s /title s - -  /*XDEF is channel number 3/* x= is/ , channel= /  , iuse= /  , ratio= /  , wlth=  /  , freq=  /xdef is/ linear 1.0 1.0 /ydef 1 linear 1.0 1.0 /zdef 1 linear 1.0 1.0$/tdef 1 l/ linear /Z, iuse=-/ 06hr/ /vars 1 l- / 0 0 -  /endvarsIB.ieee_dIF@OY=?@(#)61 1.15 src/bos/usr/ccs/lib/libc/__threads_init.c, libcthrd, bos53H, h2006_10B1 3/5/06 16:44:58  vxP?vxP?vxP?vxP?vxP?vxP?vxP?vxP?vxP?v9xP?vExP?vNxP?X `y43.%y4%m2%d2%h2 <   xv=xh;v>xh;v?xh;vCxh;vDxh;vExh;vKxh;vOxh;vUxh;vVxh;vWxh;vXxh;v^xh;v_xh;vbxh;vfxh;vqxh;vtxh;vvxh;vwxh;v}xh;v~xh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;vxh;v xh;vxh;vxh;vxh;vxh;v%xh;penalty mean atmpath clw lapse2 lapse    .%y4%m2%d2%h2janfebmaraprmayjunjulaugsepoctnovdec6&v<xFv=xFv>xFv?xFv@xFvDxFvFxFvGxFvHxFvIxFvJxFv\xFvaxFvfxF<<LˀJ[Gj`Dz&\6`Q&\.H/P/h0 (p-h 8 @ @@%@ 2@ 9@ B@ M@\@y@@ @ @ @ @ @ @ @ @ @ $@ 3@ A@ T@ `@ k@ @ @ @ @ .8! ? ?X????8?p????P?@??8?(?P??0?h????H????(?`????@?x??? ?X??? ? 8? p? ? ?!?!P?!?!?!?"0?"h?"?"?#?#H?#?#?#?$(?$`?$?%?%?%?& ?&0?&P?&?&?&?'?'@?'p?'?'?'?'?(?(?(?)?)0?)X?)?)?)?)?* ?*H?*p?*?*?+?+8?+p?+?+?,?,P?,?,?,?-0?-h?-?-?.8?.@?.?.? .? .?.? .?.?.?.? .?.?.?.?.?/?/?/?/?/ ?/(?/0?/8?/@?/H? /P?/X?/`?/h?/p?/x?/?/?/?/?/?/?/? /?/?/?/?/nwprod/lib:/usr/lpp/xlf/lib:/usr/lib:/liblibc.ashr_64.olibxlf90.aio_64.olibxlf90.amath_64.oerrno ___memmove64 ___fill64 __mod_initexit__free __malloc __n_pthreads__malloc_user_defined_name__crt0v _xlfReadUfmt_xlfReadUfmtDT _xlfBeginIO_xlfWriteLDInt_xlfWriteLDChar_xlfWriteLDReal _xlfEndIO_xlfGetErrorMsg1_xlfErrorExitWithLocexit_ _xlfWriteFmt _xlfReadFmt_xlfReadFmtArray _xlfIOCmd _xlfStop_xlfWriteUfmtArray_xlfReadUfmtArray _xladjtl_xlgetelemaddr _xlimdlo__start__default_char:t302=-5diag_header_fix_list:T7=s0;diag_header_chan_list:T10=s0;diag_data_name_list:T15=s0;diag_data_fix_list:T21=s0;diag_data_chan_list:T22=s0;diag_data_extra_list:T29=s0;:t1=-29:t2=-11:t3=-12:t4=-11:t6=-23 :t9=M-2;10 :t8=M-2;20diag_header_fix_list:t7=s88isis:8,0,160;id:9,160,80;obstype:9,240,80;jiter:-29,320,32;nchan:-29,352,32;npred:-29,384,32;idate:-29,416,32;ireal:-29,448,32;ipchan:-29,480,32;iextra:-29,512,32;jextra:-29,544,32;idiag:-29,576,32;angord:-29,608,32;iversion:-29,640,32;inewpc:-29,672,32;;diag_header_chan_list:t10=s32freq:-12,0,32;polar:-12,32,32;wave:-12,64,32;varch:-12,96,32;tlapmean:-12,128,32;iuse:-29,160,32;nuchan:-29,192,32;iochan:-29,224,32;;:t11=10 :t12=@R1;A11 :t13=@F;12:t14=13:t17=9:t18=@R1;@A;A9:t16=ar0;1;30;9;diag_data_name_list:t15=s360fix:16,0,17520;chn:18,2432,0;;:t5=-11 :t19=M-2;2jdiag_data_fix_list:t21=s120lat:-12,0,32;lon:-12,32,32;zsges:-12,64,32;obstime:-12,96,32;senscn_pos:-12,128,32;satzen_ang:-12,160,32;satazm_ang:-12,192,32;solzen_ang:-12,224,32;solazm_ang:-12,256,32;sungln_ang:-12,288,32;water_frac:-12,320,32;land_frac:-12,352,32;ice_frac:-12,384,32;snow_frac:-12,416,32;water_temp:-12,448,32;land_temp:-12,480,32;ice_temp:-12,512,32;snow_temp:-12,544,32;soil_temp:-12,576,32;soil_mois:-12,608,32;land_type:-12,640,32;veg_frac:-12,672,32;snow_depth:-12,704,32;sfc_wndspd:-12,736,32;qcdiag1:-12,768,32;qcdiag2:-12,800,32;tref:-12,832,32;dtw:-12,864,32;dtc:-12,896,32;tz_tr:-12,928,32;; :t23=-12:t24=@R1;@A;A-12diag_data_chan_list:t22=s120tbobs:-12,0,32;omgbc:-12,32,32;omgnbc:-12,64,32;errinv:-12,96,32;qcmark:-12,128,32;emiss:-12,160,32;tlap:-12,192,32;tb_tz:-12,224,32;bicons:-12,256,32;biang:-12,288,32;biclw:-12,320,32;bilap2:-12,352,32;bilap:-12,384,32;bifix:24,448,0;bisst:-12,896,32;;:t25=22 :t26=@R1;A25 :t27=@F;26:t28=27,diag_data_extra_list:t29=s4extra:-12,0,32;;:t30=29:t31=30 :t32=@R2;A31 :t33=@F;32:t34=33 :t20=-11 :t35=-12:t36=35:t37=@R2;@A;A-12 :t38=-12:t39=@R1;@A;A-12 :t40=-29 :t41=-29 :t42=-29 :t43=-29 :t44=-29:t303=Ziversion_radiag:c=i13784;iversion_radiag_1:c=i11104;iversion_radiag_2:c=i13784;ireal_radiag:c=i30;ipchan_radiag:c=i8;ireal_old_radiag:c=i26;!rmiss_radiag:c=r -9.8999999E+11;2__read_diag_NMOD__xlfN19diag_data_name_listC1:F-12__read_diag_NMOD__xlfN19diag_data_name_listD1:F-12__read_diag_NMOD__xlfN19diag_data_chan_listC1:F-12__read_diag_NMOD__xlfN19diag_data_chan_listD1:F-1'__read_diag_NMOD_read_radiag_data:F-11 :t304=@i;-29 ftin:v304 :t305=@i;7header_fix:v305 :t306=@i;-23retrieval:v306 :t307=@o;21data_fix:v307data_chan:v28data_extra:v34 :t308=@o;-29 iflag:v308ich:-29 iang:-29.bs data_tmp:V37 fix_tmp:V39.es)__read_diag_NMOD_read_radiag_header:F-11 :t309=@i;-29 ftin:v309 :t310=@i;-29npred_radiag:v310 :t311=@i;-23retrieval:v311 :t312=@o;7header_fix:v312header_chan:v14data_name:v15 :t313=@o;-29 iflag:v313:t314=@i;@l;-23lverbose:v314 string:19satid:9 sentype:9 sensat:8i:-29 jiter:-29 nchanl:-29 npred:-29 ianldate:-29 ireal:-29 ipchan:-29 iextra:-29 jextra:-29 loutall:-23__default_char:t292=-5diag_header_fix_list:T31=s0;diag_header_chan_list:T32=s0;diag_data_name_list:T37=s0;diag_data_fix_list:T41=s0;diag_data_chan_list:T42=s0;diag_data_extra_list:T49=s0;:t4=-29:t5=-23 :t6=M-2;10:t7=ar0;1;6;6 :t9=M-2;40 :t10=-29:t11=@R1;@A;A-29 :t12=-29:t13=@R1;@A;A-29 :t14=-12:t15=@R1;@A;A-12 :t16=-12:t17=@R1;@A;A-12 :t18=-12:t19=@R1;@A;A-12 :t20=-12:t21=@R1;@A;A-12 :t22=-12:t23=@R1;@A;A-12 :t24=-12:t25=@R1;@A;A-12 :t26=-12:t27=@R1;@A;A-12 :t28=-12:t29=28:t30=@R2;@A;A-12diag_header_fix_list:t31=s88isis:8,0,160;id:6,160,80;obstype:6,240,80;jiter:-29,320,32;nchan:-29,352,32;npred:-29,384,32;idate:-29,416,32;ireal:-29,448,32;ipchan:-29,480,32;iextra:-29,512,32;jextra:-29,544,32;idiag:-29,576,32;angord:-29,608,32;iversion:-29,640,32;inewpc:-29,672,32;;diag_header_chan_list:t32=s32freq:-12,0,32;polar:-12,32,32;wave:-12,64,32;varch:-12,96,32;tlapmean:-12,128,32;iuse:-29,160,32;nuchan:-29,192,32;iochan:-29,224,32;;:t33=32 :t34=@R1;A33 :t35=@F;34:t39=6:t40=@R1;@A;A6:t38=ar0;1;30;6:diag_data_name_list:t37=s360fix:38,0,6000;chn:40,2432,0;;jdiag_data_fix_list:t41=s120lat:-12,0,32;lon:-12,32,32;zsges:-12,64,32;obstime:-12,96,32;senscn_pos:-12,128,32;satzen_ang:-12,160,32;satazm_ang:-12,192,32;solzen_ang:-12,224,32;solazm_ang:-12,256,32;sungln_ang:-12,288,32;water_frac:-12,320,32;land_frac:-12,352,32;ice_frac:-12,384,32;snow_frac:-12,416,32;water_temp:-12,448,32;land_temp:-12,480,32;ice_temp:-12,512,32;snow_temp:-12,544,32;soil_temp:-12,576,32;soil_mois:-12,608,32;land_type:-12,640,32;veg_frac:-12,672,32;snow_depth:-12,704,32;sfc_wndspd:-12,736,32;qcdiag1:-12,768,32;qcdiag2:-12,800,32;tref:-12,832,32;dtw:-12,864,32;dtc:-12,896,32;tz_tr:-12,928,32;; :t43=-12:t44=@R1;@A;A-12diag_data_chan_list:t42=s120tbobs:-12,0,32;omgbc:-12,32,32;omgnbc:-12,64,32;errinv:-12,96,32;qcmark:-12,128,32;emiss:-12,160,32;tlap:-12,192,32;tb_tz:-12,224,32;bicons:-12,256,32;biang:-12,288,32;biclw:-12,320,32;bilap2:-12,352,32;bilap:-12,384,32;bifix:44,448,0;bisst:-12,896,32;;:t45=42 :t46=@R1;A45 :t47=@F;46:t48=47,diag_data_extra_list:t49=s4extra:-12,0,32;;:t50=49:t51=50 :t52=@R2;A51 :t53=@F;52:t54=53 bcoef:F-29 ntype:c=i6;maxpred:c=i10;eof:-23 no_obs:-23dum:8 satname:8 satsis:8isis:8 satype:6dplat:6 string:9 diag_rad:9 data_file:9 ctl_file:9 suffix:6 npredr:-29iyy:-29imm:-29idd:-29ihh:-29 idhh:-29 incr:-29 iread:-29 iflag:-29 nchan:-29 n_chan:-29j:-29k:-29 idum:-29 ichan:-29npred_radiag:-29pen:-12 weight:-12 rread:-12header_fix:31 data_name:37 data_fix:41 ftype:V7 stringd:V8 luname:V-29 lungrd:V-29 lunctl:V-29 lncoef:V-29 lndiag:V-29 io_chan:V11 nu_chan:V13 rmiss:V-12wavenumbr:V15 count:V17 error:V19use:V21frequency:V23 penalty:V25 predr:V27 coefs:V30header_chan:V36data_chan:V48data_extra:V54retrieval:V-23 nchanl:V-29 imkctl:V-29 imkdata:V-29__default_char:t90=-5 :t5=M-2;10 :t7=M-2;40 :t14=M-2;2 :t15=M-2;3:t16=ar0;1;12;15 :t17=M-2;4 :t18=M-2;13 :t19=M-2;80:t20=ar0;1;8;-29:t21=ar0;1;8;-29:t22=ar0;1;5;-12:t91=Zcreate_ctl_bcoef:F-11 ntype:v-29:t6=ar0;1;T0;5 ftype:v6 n_chan:v-29 iyy:v-29 imm:v-29 idd:v-29 ihh:v-29 idhh:v-29 incr:v-29 ctl_file:v7 lunctl:v-29 rmiss:v-12 satname:v8 satype:v5 dplat:v5:t9=ar0;1;T0;-29 nu_chan:v9:t10=ar0;1;T0;-12use:v10:t11=ar0;1;T0;-12 ratio:v11:t12=ar0;1;T0;-12frequency:v12:t13=ar0;1;T0;-12wavenumbr:v13 cword:14 clatmin:15 clatmax:15 clonmin:17 clonmax:17 grad_file:7 idsat:-29 iuse:-29 iyy2:-29 imm2:-29 idd2:-29 ihh2:-29 ntime:-29ida:20jda:21wavelength:-12fha:22mon:V16 stringd:V18__default_char:t16=-5:t17=Z errexit:F-11 iret:v-29 jret:-29__default_char:t20=-5:t21=Z iw3jdn:F-29 iw3jdn:-29 iyear:v-29 month:v-29 iday:v-29__default_char:t26=-5:t27=Z w3fs26:F-11 jldayn:v-29 idaywk:v-29 idayyr:v-29l:-29n:-29__default_char:t32=-5:t5=ar0;1;5;-12:t6=ar0;1;8;-29:t7=ar0;1;8;-29:t8=ar0;1;5;-12:t9=ar0;1;5;-12:t33=Zw3movdat:F-11rinc:v5idat:v6jdat:v7rinc1:8rinc2:9 jldayn:-29 jdow:-29 jdoy:-29__default_char:t36=-5:t6=ar0;1;5;-12:t7=ar0;1;5;-29:t8=ar0;1;5;-29:t9=ar0;1;4;-29:t10=ar0;1;4;-29:t11=ar0;1;5;-29:t12=ar0;1;5;-29:t37=Zw3reddat:F-11it:v-29dinc:v6 np:c=i16;iinc:10jinc:11kinc:12ms:-29rp:-12itd:V7itm:V8itn:V93 8 8 9 ; !@ @ A *C E N O  Oh O P0 Pt P Q$ Q ES@ S ^ ^ _H X # $  $ $ %@ % % &` & .d . w4~~~~ BODJL N *68r~FvH\fr;E@;PEx;tTE;T TE&vX;xOOOOE $@0P ` p    (0 8  H  x  0 ; T PT `E ; T T E (; DT T E ; T T E ^ ; c E ^ 4; PT \E D ;<TdTTTYE  ( H x  0 4 h0;TPTlTTE  ; T,EP;lTxEx)P^x;TE;TY TDhTEx;TE^;mE^;mmm$r4EP h $^h;TEDx;TEPw\6h6x666666;T$Y4E^; | $E x; | E ^!;!,T!HY!TE!d6!;!m!m"m"$r"4E"P "h """#'#0;#HT#TE#)#"$'$("$x'$"$'$"%8'%H"%'%"%'&"&X'&p"&'&;'T' E'0;'LT'hT'T'T'E'i';(T( Y(,E(@i(l;(T(E(;(T)h) T)<Y)XY)lE*6*6+L^+;+|+E,;,(|,4E,;,T,Y,T- -$ -T -l --0- -T-E. ^.".\'.p".'.;.T/Y/,T/8E/Li/x;/T/E/;/T/E0;00T0LY0lY0E0i1vP130"3nT3'445P6 ,7JT7d17T717T8'8x6868T8'9@69VT9': P;x";T;'=P> ,?JT?d1?T?1?T@'@x6@6@T@'A@6AVTA'BnPCrTC'ErTE'F"G;G(@GH@GTEH6TITJ6K6M;M@N@N"TN<@NHENZTN'N"NTO'O"O*TO`'Ox"OTO'O6O"OTP('P6TPl'Px6PTP'P"PTQ'Q(6Q46QBTQx'R6PR;RTRJRES8'S'Y2PY:PY`;YJYEZfZPZf[<;[hO[xE[f[P\f\P] f]L;]xO]E]f]P^T"^'^'^"_@'_L6_X6_fP_;_T_Y_Y_E_P` ;`(T`DT`dT`Y`T`Y`T`YaTa0YaLTahYaTaYaEaPa;bTbTb4Yb@EbNPbd^bnPb;bcbcbcc cc,ccLcclcccccccccdEdPd;eTe Ef f ,fFRfnVfXfZf\g^g6`g^bgdghgjglh&nhNpkvxkzk|lz~m^m m mmnnHn`0n;nOnEo;o$EoH;ohOoxEo;oooOpOp8OpHEpl;pxEq;q(OqPOqxOqOqOqOqErH;rhOrxEr;rEr;rEr;s OsDOslOsOsOsEs;tOt$Et\ tt0t;tuu$Ou8 uT u u uu0u vOv(Evh;vpEv^wLxy@ߙyXy{{>{f|x|}}\~**j? j?Xj?j?j?j?8j?pj?j?j?j?Pj?@l?l?8l?(?P??0?h????H????(?`????@?x??? ?X??? ? 8? p? ? ?!?!P?!?!?!?"0?"h?"?"?#?#H?#?#?#?$(?$`?$?%?%?%?& ?&0?&P?&?&?&?'?'@?'p?'?'?'?'?(?(?(Y?)Y?)0Y?)XY?)Y?)Y?)Y?)Y?* Y?*HY?*pY?*Y?*Y?+Y?+8Y?+pY?+Y?+Y?,Y?,PY?,Y?,Y?,Y?-0Y?-hY?-Y?-Y?.8?.@@?.?.>?.Gh#Gl$Gp%Gt&Gx%G|&G'G(G'G(G)G*G)G*G+G,G+G,G-G.G-G.G/G0G/G0G1G2G1G2G3G4G3G4G5G6G5G6H7H8H7H 8H9H:H9H:H ;H$<H(;H,<H0>H4?H@@HDAHHBHLLHUHMHNHMHOHPHOHQHRHQHSHTHSHMHUHTHNHOIPIQIRI TISIUIVI cI$WI,XI0YI4cIH^IXcIhZI|XIYI]I[I]I[I]IXI\IYI_IaI`IcIXIcIYIXJZJ [JZJ\J]J \J$YJ,]J4XJ<ZJ@[JD\JH]JL^JXJxJJJJJJK KdK$eK,kK`fKhgKlkKpfKxgK|hKjKiKjKkKgKhKjKiKkKmKoLnLoL nL(oL0nL8qL@pLPqL\sLdyLtLuLyLtLuLvLxLwLxLyLuLvLxLwLyM({M8}MP|M\}M`|Mh}Mp|MxM~MMDMEMDMEMFMGMFMGMNTNOOx O OPxPQ(DQRLRXR\RRR-R2R2SX3Sh3S5T<6Td5Tl6T9T:T8T;T<T=T>T?T@TATBTCTDTETFT9T:U6U8U ;UGU9U;U$6U(8U,<U48U89U<<UD8UH9UP;UT=U\:Ud=Ul:Ut>U<U=U?U@U>U?UAUBU@UAUCUDVBVCVEVFV(DV,EV0GV8FV<GVDHVXJV\HV`JVdKVlIVtLVxMVNVOVPVQVRVSVTVUVWVXVKVGVIVLVIVJVLVIVJVMVYVIVMVIVLVNWJWKWNWJWKWOW(MW,NW0PW@QWPOWTPWXRWhSWxQW|RWTWUWSWTWWWXWUWXWWWXWYWXWYWZWYWZW`W[W\X]X^X`X ZX[XZX[XYX ZX$[X(\X,[X0\X8]X<[X@\XH]XP^XT]X\^Xl`XpaXtbXxgX|cXdXfXaXgXeXaXbXcXdXeXaXfXaXbXfXbXcXdXeXfYbYfYbY gYgY(Y0YYYYYYYYYYZ,hZ8nZ@jZDiZLkZPlZTnZ\mZ`iZhjZliZtkZjZkZjZlZkZlZmZnZoZpZo[p[o[p[q[p[o[q[p[q[p[q[r[s[r[s[r\s\ r\s\r\s\ r\$s\(r\,s\8r\Ds\Pt\Tz\\v\`u\hw\lx\pz\xy\|u\v\u\w\v\w\v\x\w\x\y\z\{\|\{]|]{]|]}]|]{]}]|]}]|]}]~]]~]]~^^ ~^^~^^ ~^$^(~^,^8~^D^T6^5_L3_X2_d._ a(a)bLbld dddd d(d,d0d4d<d@dLdPdTdXd\dddtdxdddddddddddddddddd e(l$X $H 0  h   % & ' * d+ - 3 9 3 9 3 4 9 5 4 3 4 9 4 545656 9;<=E4FG4HJPMXPdNlOtPONPNOPZUWZYWUVUV X(Y8U@VDYHVPU\VpUtZxU|VUVWXWZXYXUVXUVUVZUXV ](X4]<U@VDXPUTVXaczcdezlnmtmntomoz l,z<~X\ $P<@DHP ,8DHLLXH\< , 8     !`!"<"@"D"H"P""""""##`]#ha#]#a#c#a#c#a#c#e#a#d#}#J$$H%G&>'?'@'.(4/(L((()t** *(*8*X*`*h*t*****+T++,<,@,\,h-../@/X / / 0l4l@lhlxlllllllllllllllllllmmDmLmnhoo,opPpp!pp pp pq!r"r!r "r$!r("r,#r$r%r&s't,7t@8t9v0;v@9vL>vxCvGww ww ww ww w$w( w, w0w<wL wT wX w\w`wd i\d4@DHLPTX\`hl|  8X\`|                HP T X \ h l t     xxxxxxxxxy@yHy`ylytyxy|yyyyyy yyyy yz z z z{@{D{L{T{X{{|x|||||||| || | } } } } } }$ }( }0}4 }@}D }H}L }P}T }\}d}l}p}t}|}}}}}}}}}}}}}}}~L~ ~!~ ~!~ ~!d% ,DHX\x   , ; K [ e v             '5?J U Z a jw.Hk.k.k.wk.k.jk.Jk.k.k.ak.k.vk.k.ek.Zk/ k/k/[k/k/ k/(k/0;k/8,k/@k/Hk/Pk/Xk/`k/hKk/pk/xk/k/k/k/k/k/k/ k/k/k/k/Ukg gk.8 .H.P../g@Z`k` ke.X.`.h.p.x.pgSm?a,;Z.:EXl4AVt -:F[h}1k591 041d14 4 @4 4 (4 @04 X4 t1d1@ H*@ 1@e4|e4 T >  4e9e9F ` f  9egtmk9 ELeI08@HP/X?OY SeWgmc}xk9x8 Hdxe-   " .t :| Ix Vz$e5gBm c} } ! zk9z I((!zej@!)HP!54 !A!O![!g!s!~ 8! !! ek -kLg_xlirflr.fk9 pk g_xljltrm.fhk9h  gf#A)f* f 3 f < f D M gjSY g(ck((c$Y gfDik(fDi )Y gflsk(fls%.Y gfk(f*3Y gfk(f/8Y gfk(f4=Y gg k(g 9BY gg4k(g4>GY gg\k(g\CLY ggk(gHQY ggk(gMVY ggk(gR[Y gg k(g W`Y gh$ k(h$ \eY ghL (k(hL (ajY gkt 6k(kt 6foY gk Gk(k GktY gk Tk(k TpyY g fk( fu~Y g( pk(( pzY gx k(x Y g k( Y g k(  _xlfReadUfmt_xlfReadUfmtDT_xlfBeginIO_xlfWriteLDInt_xlfWriteLDChar_xlfWriteLDReal_xlfEndIO_xlfGetErrorMsg1_xlfErrorExitWithLocexit__xlfWriteFmt_xlfReadFmt_xlfReadFmtArray_xlfIOCmd_xlfStop_xlfWriteUfmtArray_xlfReadUfmtArray_xladjtl_xlgetelemaddr_xlimdloerrno___memmove64.___memmove64___fill64.___fill64__mod_initexit__free__malloc__n_pthreads__malloc_user_defined_name__crt0vTOC__C_runtime_pstartup_$STATIC_$STATIC_BSScrt0_64.s.__startp_xargcp_xargvp_xrcfgp_xrc.file../../../../../../../src/bos/usr/ccs/lib/libc/__threads_init.cTue Feb 12 10:37:47 2008 C for AIX Compiler Version 6.0.0.5 --- .__threads_init_malloc_user_defined_name__pth_init_routine_bsd_init_routine_xti_tli_init_routine_nsl_init_routine__dce_compat_init_routine/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/read_diag.f90Thu Apr 5 09:48:54 2012 IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0001.__read_diag_NMOD__&&_read_diag.bbread_diag.eb.__read_diag_NMOD__xlfN19diag_data_name_listC1.bf.ef.__read_diag_NMOD__xlfN19diag_data_name_listD1.__read_diag_NMOD__xlfN19diag_data_chan_listC1.__read_diag_NMOD__xlfN19diag_data_chan_listD1.__read_diag_NMOD_read_radiag_data.__read_diag_NMOD_read_radiag_header/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/bcoef.f90Thu Apr 5 09:48:55 2012 .bcoef.main/gpfs/c/nco/ops/nwpara/sorc/gdas_verf_radbcoef.fd/create_ctl_bcoef.f90.create_ctl_bcoef/gpfs/c/nco/ops/com/pmb/wx11jy/RFC/GRIB_UTILS/lib/sorc/w3/errexit.fTue Oct 18 14:38:55 2011 .errexit/gpfs/c/nco/ops/com/pmb/wx11jy/RFC/GRIB_UTILS/lib/sorc/w3/iw3jdn.fTue Oct 18 14:39:06 2011 .iw3jdn/gpfs/c/nco/ops/com/pmb/wx11jy/RFC/GRIB_UTILS/lib/sorc/w3/w3fs26.fTue Oct 18 14:39:41 2011 .w3fs26/gpfs/c/nco/ops/com/pmb/wx11jy/RFC/GRIB_UTILS/lib/sorc/w3/w3movdat.fTue Oct 18 14:39:57 2011 .w3movdat/gpfs/c/nco/ops/com/pmb/wx11jy/RFC/GRIB_UTILS/lib/sorc/w3/w3reddat.fTue Oct 18 14:39:59 2011 .w3reddatFri Nov 6 21:33:24 2009 IBM XL Fortran for AIX, V12.1 (5724-U82) Version 12.01.0000.0006._xlirflr._xljltrmmoveeq.s.bcopy.ovbcopy._moveeq.memcpy.memmoveclc.s._clcglink64.s.exit.__malloc._xlfErrorExitWithLoc._xlgetelemaddr._xlfGetErrorMsg1.__free._xlfBeginIO._xlfReadUfmtArray._xlfEndIO._xlfReadUfmtDT._xlfWriteFmt._xlfWriteLDChar._xlfWriteLDInt._xlfIOCmd._xlfReadUfmt._xlfWriteLDReal._xlfReadFmt._xlfReadFmtArray._xlfStop._xlfWriteUfmtArray._xladjtl.exit_._xlimdlo