def golowtran(c1: Dict[str, Any]) -> xarray.Dataset:
<EOL><INDENT>c1.setdefault('<STR_LIT:time>', None)<EOL>defp = ('<STR_LIT>', '<STR_LIT>', '<STR_LIT>', '<STR_LIT>', '<STR_LIT>', '<STR_LIT>', '<STR_LIT>', '<STR_LIT>', '<STR_LIT:p>', '<STR_LIT:t>')<EOL>for p in defp:<EOL><INDENT>c1.setdefault(p, <NUM_LIT:0>)<EOL><DEDENT>c1.setdefault('<STR_LIT>', [<NUM_LIT:0>]*<NUM_LIT:12>)<EOL>assert len(c1['<STR_LIT>']) == <NUM_LIT:12>, '<STR_LIT>'<EOL>assert np.isfinite(c1['<STR_LIT>']), '<STR_LIT>'<EOL>c1.setdefault('<STR_LIT>', <NUM_LIT:20>)<EOL>if c1['<STR_LIT>'] < <NUM_LIT:5>:<EOL><INDENT>logging.critical('<STR_LIT>')<EOL><DEDENT>wlshort, wllong, nwl = nm2lt7(c1['<STR_LIT>'], c1['<STR_LIT>'], c1['<STR_LIT>'])<EOL>if not <NUM_LIT:0> < wlshort and wllong <= <NUM_LIT>:<EOL><INDENT>logging.critical('<STR_LIT>')<EOL><DEDENT>"""<STR_LIT>"""<EOL>Tx, V, Alam, trace, unif, suma, irrad, sumvv = lowtran7.lwtrn7(<EOL>True, nwl, wllong, wlshort, c1['<STR_LIT>'],<EOL>c1['<STR_LIT>'], c1['<STR_LIT>'], c1['<STR_LIT>'], c1['<STR_LIT>'],<EOL>c1['<STR_LIT>'], c1['<STR_LIT>'],<EOL>c1['<STR_LIT>'], c1['<STR_LIT:p>'], c1['<STR_LIT:t>'], c1['<STR_LIT>'],<EOL>c1['<STR_LIT>'], c1['<STR_LIT>'], c1['<STR_LIT>'], c1['<STR_LIT>'])<EOL>dims = ('<STR_LIT:time>', '<STR_LIT>', '<STR_LIT>')<EOL>TR = xarray.Dataset({'<STR_LIT>': (dims, Tx[:, <NUM_LIT:9>][None, :, None]),<EOL>'<STR_LIT>': (dims, sumvv[None, :, None]),<EOL>'<STR_LIT>': (dims, irrad[:, <NUM_LIT:0>][None, :, None]),<EOL>'<STR_LIT>': (dims, irrad[:, <NUM_LIT:2>][None, :, None])},<EOL>coords={'<STR_LIT:time>': [c1['<STR_LIT:time>']],<EOL>'<STR_LIT>': Alam*<NUM_LIT>,<EOL>'<STR_LIT>': [c1['<STR_LIT>']]})<EOL>return TR<EOL><DEDENT>
directly run Fortran code