write_matrix_to_txt.f

           
            !Write temperature to a text file for debug
            if (time_step == 1) then
                    write(line_format, "(I8)") G_ni
                    line_format = "(" // trim(line_format) // "F8.3)"
            end if

            write(debug_txt_filename, "(A3,I3.3,A4)") "TT_", time_step, 
     $                                                ".txt"
            time_step = time_step + 1
            
            

            open(unit=230485, file=trim(debug_txt_filename),
     $           action="write", status="replace")

                    
            do jy = 1, G_nj
                write(230485, trim(line_format)) (g_t2m(ix, jy), ix = 1, G_ni)
            end do
            
            close(230485)