*************************************
q1 = q1*86400
q2 = q2*86400
q1@units = "K/day"
q2@...;;Q2 = Q2*?????...;;Q1@units = "W/m2"
;;Q2@units = "W/m2"
return( [/q1, q2, Q1, Q2/] )
end
;========================...= Q1Q2_yanai(time,p,uwnd,vwnd,q,temp,omega,npr,opt)
print(q1q2)
q1 = q1q2[0]
q2 = q1q2[1...(q2,0)
print("================")
;Q1 = q1q2[2]
;Q2 = q1q2[3]
;*****************************