<div dir="ltr">Hello All, <div>I am trying to write ascii file from wrfout file. and I want to convert axis that row to column text.</div><div>This script write values in row, how should i convert this to column?</div><div>(<span style="color:rgb(66,66,66);font-family:-apple-system,BlinkMacSystemFont,"Malgun Gothic","\00b9d1\00c740  \00ace0\00b515",helvetica,"Apple SD Gothic Neo",helvetica,"\00b098\00b214\00bc14\00b978\00ace0\00b515  \00c61b\00d55c\00ae00","NanumBarunGothic YetHangul",sans-serif;font-size:13px;letter-spacing:-0.1px">I want to change from horizontal to vertical text form)</span></div><div><br></div><div>here is my script.</div><div>Bold text need to be change. I dont know how to change it.</div><div><br></div><div>==============================================</div><div>load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"<br>load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"<br>load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"<br>load "$NCARG_ROOT/lib/ncarg/nclscripts/wrf/WRFUserARW.ncl"<br>load "$NCARG_ROOT/lib/ncarg/nclscripts/wrf/WRF_contributed.ncl"<br></div><div><br></div><div> a = "/home/wrfout/"+domain+"/"<br> adirs = systemfunc ("ls "+a)<br> startday = ind(str_get_cols(adirs,0,7).eq.start)<br> nt=24*12+1<br> it=ispan(1,nt,1)<br></div><div><br></div><div><b>SWDOWN= new((/dimsizes(lampdirs)+1,nt+1/),"string")<br></b></div><div><b>SWDOWN(0,0)= "SWDOWN"<br></b></div><div><b>SWDOWN(0,1:nt)= it<br></b></div><div><b><br></b></div><div><b>SWDOWNstring = new(dimsizes(lampdirs)+1,"string")<br></b></div><div><b>SWDOWNstring(0)=SWDOWN(0,0)+" "<br></b></div><div><b><br></b></div><div><b>do ith=1,nt<br></b></div><div><b>SWDOWNstring(0) = SWDOWNstring(0)+SWDOWN(0,ith)+" "<br>end do</b><br></div><div><br></div><div>write_table(outdir+"SWDOWN_ONION_"+station+".txt","w",[/SWDOWNstring(0)/],"%s")<br></div><div>===================================================================</div><div>i=startday<br></div><div>fils = systemfunc ("ls "+a+adirs(i)+"/wrfout*")<br>    afi = addfiles(fils,"r")<br>    aref = addfile(fils(0),"r")<br>    ListSetType(afi,"cat")<br></div><div> opt = True<br> opt@returnInt = True<br> locij = wrf_user_ll_to_ij(aref, slon, slat, opt)<br> locij = locij-1<br> locX = locij(0)<br> locY = locij(1)<br><br>input_utim=wrf_user_getvar(afi, "times", -1)<br>ntim=dimsizes(input_utim)<br></div><div><br></div><div>swdown=wrf_user_getvar(lampfi, "SWDOWN", -1)<br>swdown_point= swdown(:, locY, locX)</div><div>===CREATE FILE=====================================================</div><div><b>SWDOWN(i+1,0) = lampdirs(i)<br></b></div><div><b>SWDOWN(i+1,1:dimsizes(swdown_point)) = swdown_point<br><br></b></div><div><b>SWDOWNstring(i+1)= SWDOWN(0,i+1)+" "</b><br>do ith=1,nt<br></div><div><b>SWDOWNstring(i+1) = SWDOWNstring(i+1)+SWDOWN(i+1,ith)+" "</b></div><div>end do<br></div><div>==================================================================</div><div><br></div><div>Thanks</div><div><br></div><div><br></div><div><br></div><div><br></div></div>